Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Презентации / Обработка табличного алгоритма на языке программирования Паскаль
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 26 апреля.

Подать заявку на курс
  • Информатика

Обработка табличного алгоритма на языке программирования Паскаль

Выберите документ из архива для просмотра:

Выбранный для просмотра документ Обработка табличноо алгоритма на языке Паскаль.pptx

библиотека
материалов
Обработка Табличного алгоритма на языке Программирования Паскаль РОССИЙСКАЯ Ф...
Структура программы на языке Паскаль Program (название программы); Var ( опис...
Задача1. Формирование и вывод элементов массива на экран program massiv; var...
Задача 2. Нахождение суммы элементов массива program summa; var b:array[1..50...
Задача 3. Найти среднее значение элементов массива. Задача 4. Найти произведе...
Задача 6:Нахождение максимального элемента массива program macsimum; var a:ar...
program kolichestvo; var b:array[1..30] of integer; n,i,s:integer; begin cls;...
program Prim; var a: array[1..100] of Integer; n,s,i,max,min:integer; begin c...
program Prim; var a: array[1..100] of Integer; n,s,i,max:integer; begin cls;...
program perestanovka; var a: array[1..100] of Integer; r,n,s,i,max,min:intege...
Задача 11: Сформировать и вывести на экран двумерный массив. program Prim; co...
Задача 12: Сформировать и вывести на экран двумерный массив. program Prim; co...
program porjdok; var b:array[1..500] of integer; n,i,s:integer; begin cls; re...
program Prim; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j,s:integ...
program abssumma; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j,s:i...
program Perestanovka; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j...
program Prim; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j:integer...
Задача 18: сформировать двумерный массив случайным образом на отрезке [-10,40...
program primer; var n,k,s:string; begin cls; n:=‘дед’; k:=‘мороз’; s:=n+' '+k...
program primer; var n,k:integer; s,s1:string; begin cls; readln(n); s:=' '; w...
program primer; var a:array[1..16] of integer; n,i,k:integer; begin cls; read...
Задача 22. Сформировать массив , содержащий цифры, образующие запись данного...
Задача 1. В двумерном массиве определить индексы элементов, значение которых...
Задача 3. При предоставлении работнику ежегодного оплачиваемого отпуска в К т...
program zadacha; const n=30; var b:array[1..n] of integer; i,s:integer; begin...
program zadacha; var b:array[1..30] of integer; i,n,maxp:integer; begin cls;...
program zadacha; var b:array[1..30] of integer; i,n,maxp:integer; begin cls;...
program zadacha; var b:array[1..30] of integer; i,n,s,sr,k:integer; begin cls...
Задача 27 : Дан линейный массив из 8 целочисленных чисел. Среди них есть отри...
program Prim; var a: array[1..5,1..5] of Integer; b: array[1..25] of Integer;...
program Prim; var a: array[1..10] of Integer; max,min,r,i:integer; begin cls;...
Задача 30: В квадратном массиве из 9 элементов найти произведение элементов г...
Program naddiagon; const n=5;m=5; var a: array[1..5,1..5] of Integer; p,j,i:i...
Задача 32: В квадратном массиве из 16 элементов найти сумму элементов под гла...
Задача 33: Дан линейный целочисленный массив из 12 элементов выполните «сжати...
program Prim; const n=5;m=5; var a: array[1..5,1..5] of Integer; j,i:integer;...
program gldiagonal; const n=4;m=4; var a: array[1..n,1..m] of Integer; s,s2,j...
Задача 36: Дана последовательность Из 10 действительных чисел. Укажите те её...
Задача из материалов ЕГЭ : значение двух массивов А[100] и B[100] задаются с...
Задача из материалов ЕГЭ : значение двух массивов А[200] и B[200] задаются с...
Задача из материалов ЕГЭ : значение двух массивов А[300] и B[300] задаются с...
Задача из материалов ЕГЭ : значение двумерного массива 7 * 7 задаются с помощ...
Задача из материалов ЕГЭ :элементы двумерного массива А размером N*N первонач...
Задача из материалов ЕГЭ : значение двух массивов А[1..100] и B[1..100] задаю...
Задача 37 : Перевести десятичное число в систему счисления Фибоначчи program...
Желаю удачи!
46 1

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs

Описание презентации по отдельным слайдам:

№ слайда 1 Обработка Табличного алгоритма на языке Программирования Паскаль РОССИЙСКАЯ Ф
Описание слайда:

Обработка Табличного алгоритма на языке Программирования Паскаль РОССИЙСКАЯ ФЕДЕРАЦИЯ Министерство образования Иркутской области Составитель: Кузьминова Ирина Юрьевна, учитель информатики, ГОКУ «Санаторная школа-интернат №4», первая квалификационная категория г. Усолье-Сибирское 2015 г.

№ слайда 2 Структура программы на языке Паскаль Program (название программы); Var ( опис
Описание слайда:

Структура программы на языке Паскаль Program (название программы); Var ( описание переменных с указанием типа); Begin (начало программы) Cls (очистка экрана); Read(запрос значений для переменных, исходных данных); Действия программы (операторы присвоения, проверка условия, циклические алгоритмы); Writeln(‘пояснение’, числовое значение) end. (конец программы)

№ слайда 3 Задача1. Формирование и вывод элементов массива на экран program massiv; var
Описание слайда:

Задача1. Формирование и вывод элементов массива на экран program massiv; var b:array[1..500] of integer; n,i:integer; begin cls; read(n); for i:=1 to n do begin read(b[i]); end; cls; For i:=1 to n do begin writeln(b[i]); end; end. начало b[1..500] Ввод: n i:=1 to n Ввод: b[i] i:=1 to n Вывод: b[i] конец

№ слайда 4 Задача 2. Нахождение суммы элементов массива program summa; var b:array[1..50
Описание слайда:

Задача 2. Нахождение суммы элементов массива program summa; var b:array[1..500] of integer; n,i,s:integer; begin cls; read(n); s:=0; for i:=1 to n do begin read(b[i]); s:=s+b[i]; end; cls; For i:=1 to n do begin writeln(b[i]); end; write(s) end.

№ слайда 5 Задача 3. Найти среднее значение элементов массива. Задача 4. Найти произведе
Описание слайда:

Задача 3. Найти среднее значение элементов массива. Задача 4. Найти произведение элементов массива. Задача 5. Найти произведение первого и последнего элементов массива.

№ слайда 6 Задача 6:Нахождение максимального элемента массива program macsimum; var a:ar
Описание слайда:

Задача 6:Нахождение максимального элемента массива program macsimum; var a:array[1..100] of integer; n,i,max:integer; begin cls; read(n); for i:=1 to n do begin read(a[i]); end; cls; max:=a[1]; For i:=2 to n do begin if a[i]>max then begin max:=a[i] end; writeln(a[i]); end; write('max=', max) end.

№ слайда 7 program kolichestvo; var b:array[1..30] of integer; n,i,s:integer; begin cls;
Описание слайда:

program kolichestvo; var b:array[1..30] of integer; n,i,s:integer; begin cls; read(n); s:=0; for i:=1 to n do begin read(b[i]); if (b[i]<0) then s:=s+1; end; cls; For i:=1 to n do begin writeln(b[i]); end; write(‘s=‘, s) end. Задача 7:Вывести на экран количество дней, за первые 10 дней ноября месяца, в которые температура понижалась ниже 0 градусов

№ слайда 8 program Prim; var a: array[1..100] of Integer; n,s,i,max,min:integer; begin c
Описание слайда:

program Prim; var a: array[1..100] of Integer; n,s,i,max,min:integer; begin cls; read(n); for i:=1 to n do begin read(a[i]); end; cls; max:=a[1]; min:=a[1]; for i:=2 to n do begin if a[i]>max then begin max:=a[i] end; if a[i]<max then begin min:=a[i] end; end; writeln(max, ' ', min) end. Задача 8: Поиск max и min элементов массива.

№ слайда 9 program Prim; var a: array[1..100] of Integer; n,s,i,max:integer; begin cls;
Описание слайда:

program Prim; var a: array[1..100] of Integer; n,s,i,max:integer; begin cls; read(n); for i:=1 to n do begin read(a[i]); end; cls; max:=a[1]; for i:=2 to n do if a[i]>max then begin max:=a[i] end; Begin writeln(a[i]); if max<50 then writeln(sqr(max)) else writeln(sqrt(max)); end; writeln('max=',max); end. Задача 9: В одномерном массиве найти максимальный элемент, если его значение меньше 50, то возвести элемент в квадрат, иначе, найти значение квадратного корня.

№ слайда 10 program perestanovka; var a: array[1..100] of Integer; r,n,s,i,max,min:intege
Описание слайда:

program perestanovka; var a: array[1..100] of Integer; r,n,s,i,max,min:integer; begin cls; read(n); for i:=1 to n do begin read(a[i]); end; cls; max:=a[1]; min:=a[1]; for i:=2 to n do begin if a[i]>max then begin max:=a[i] end; if a[i]<min then begin min:=a[i] end; end; writeln(max,' ',min); writeln (‘производим перестановку'); r:=max; max:=min; min:=r; writeln(max,' ',min); end. Задача 10: Поменять в данной последовательности целых чисел местами наибольший и наименьший элементы массива.

№ слайда 11 Задача 11: Сформировать и вывести на экран двумерный массив. program Prim; co
Описание слайда:

Задача 11: Сформировать и вывести на экран двумерный массив. program Prim; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j:integer; begin cls; for i:=1 to n do for j:=1 to m do begin read(a[i,j]); end; cls; for i:=1 to n do begin for j:=1 to m do writeln(a[i,j]:5); writeln('переход на начало следующей строки'); end; end.

№ слайда 12 Задача 12: Сформировать и вывести на экран двумерный массив. program Prim; co
Описание слайда:

Задача 12: Сформировать и вывести на экран двумерный массив. program Prim; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j:integer; begin cls; for i:=1 to n do for j:=1 to m do begin read(a[i,j]); end; cls; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:5); writeln(‘ ‘); end; end.

№ слайда 13 program porjdok; var b:array[1..500] of integer; n,i,s:integer; begin cls; re
Описание слайда:

program porjdok; var b:array[1..500] of integer; n,i,s:integer; begin cls; read(n); s:=0; for i:=1 to n do begin read(b[i]); if (b[i]=0) then begin writeln(‘порядковые номера нулевых элементов’, i:5); s:=s+1 end; end; write(' количество кулевых элементов S=',s) end. Задача 13: В одномерном массиве определить индексы на которых стоят элементы со значением 0 и найти количество нулевых элементов.

№ слайда 14 program Prim; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j,s:integ
Описание слайда:

program Prim; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j,s:integer; begin cls; for i:=1 to n do for j:=1 to m do begin read(a[i,j]); end; cls; S:=0; for i:=1 to n do for j:=1 to n do begin for j:=1 to m do writeln(a[i,j]:5); writeln('переход на начало следующей строки'); end; for i:=1 to n do for j:=1 to m do begin if ( a[i,j]=0) then begin writeln('порядковые номера нулевых элементов',' ', i,j:3); s:=s+1 end; end; writeln ('s=', s) end. Задача 14: В двумерном массиве определить индексы на которых стоят элементы со значением 0 и найти количество нулевых элементов.

№ слайда 15 program abssumma; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j,s:i
Описание слайда:

program abssumma; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j,s:integer; begin cls; S:=0; for i:=1 to n do for j:=1 to m do begin read(a[i,j]); s:=s+abs(a[i,j]); end; cls; for i:=1 to n do begin for j:=1 to m do writeln(a[i,j]:5); writeln(‘переход на начало следующей строки’); end; writeln('s=',' ',s) end. Задача 15: Сформировать двумерный массив, найти сумму элементов по правилу

№ слайда 16 program Perestanovka; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j
Описание слайда:

program Perestanovka; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j,p:integer; begin cls; for i:=1 to n do for j:=1 to m do begin read(a[i,j]); end; cls; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:5); writeln(' '); end; p:=a[1,1]; a[1,1]:=a[n,m]; a[n,m]:=p; write(‘ ‘); write (' массив после перестановки '); writeln(' '); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:5); writeln(' '); end; end. Задача 16: В двумерном массиве произвести перестановку первого и последнего элементов

№ слайда 17 program Prim; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j:integer
Описание слайда:

program Prim; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j:integer; begin cls; randomize; for i:=1 to n do for j:=1 to m do begin a[i,j]:=-10+random(30); end; cls; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:5); writeln(' '); end; end. Сформировать двумерный массив случайным образом на отрезке [-10,20]. Все отрицательные элементы массива заменить на 0 Задача 17:

№ слайда 18 Задача 18: сформировать двумерный массив случайным образом на отрезке [-10,40
Описание слайда:

Задача 18: сформировать двумерный массив случайным образом на отрезке [-10,40] все отрицательные элементы заменить на 5 program Prim; const n=3; m=4; var a: array[1..n,1..m] of Integer; i,j,p:integer; begin cls; randomize; for i:=1 to n do for j:=1 to m do begin a[i,j]:=-10+random(40); end; cls; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:5); writeln(' '); end; for i:=1 to n do for j:=1 to m do if (a[i,j]<0) then begin a[i,j]:=0 end; for i:=1 to n do begin write(‘ ‘); write (' новый массив '); writeln(' '); end; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:5); writeln(' '); end; end.

№ слайда 19 program primer; var n,k,s:string; begin cls; n:=‘дед’; k:=‘мороз’; s:=n+&#039; &#039;+k
Описание слайда:

program primer; var n,k,s:string; begin cls; n:=‘дед’; k:=‘мороз’; s:=n+' '+k; writeln(s) end. Задача 19. Из двух слов «дед» и «мороз» получить Словосочетание «дед мороз» используя операцию конкатенации

№ слайда 20 program primer; var n,k:integer; s,s1:string; begin cls; readln(n); s:=&#039; &#039;; w
Описание слайда:

program primer; var n,k:integer; s,s1:string; begin cls; readln(n); s:=' '; while n>0 do begin k:=n mod 2; n:=n div 2; str(k,s1); s:=s1+s; end; writeln(s) end. Задача20. Найти строку, содержащую запись данного числа в системе счисления по основанию 2

№ слайда 21 program primer; var a:array[1..16] of integer; n,i,k:integer; begin cls; read
Описание слайда:

program primer; var a:array[1..16] of integer; n,i,k:integer; begin cls; readln(n); i:=1; while n>0 do begin a[i]:=n mod 5; n:=n div 5; i:=i+1; end; k:=i-1; for i:=k downto 1 do writeln(a[i]); writeln; end. Задача21. Сформировать массив , содержащий цифры, образующие запись данного целого числа в системе счисления по основанию 5, и вывести их на экран.

№ слайда 22 Задача 22. Сформировать массив , содержащий цифры, образующие запись данного
Описание слайда:

Задача 22. Сформировать массив , содержащий цифры, образующие запись данного целого числа в системе счисления с основанием 9. program primer; var n,s,k:integer; begin cls; readln(n); s:=0; while n>0 do begin k:=n mod 9; n:=n div 9; s:=s+k; end; writeln(‘сумма цифр числа в системе с основанием 9', s) end.

№ слайда 23 Задача 1. В двумерном массиве определить индексы элементов, значение которых
Описание слайда:

Задача 1. В двумерном массиве определить индексы элементов, значение которых равно 0, найти количество нулевых элементов. Самостоятельная работа. «Решение задач и разработка блок-схем» Задача 2. В соревнованиях по бросанию ядра принимают участие спортсмены из 12 стран, каждый спортсмен делает по три броска. Вывести таблицу результатов, и определить сколько спортсменов и на какое расстояние метнули ядро за пределы 70 метров.

№ слайда 24 Задача 3. При предоставлении работнику ежегодного оплачиваемого отпуска в К т
Описание слайда:

Задача 3. При предоставлении работнику ежегодного оплачиваемого отпуска в К трудовых дней ему начисляют «отпускные» следующим образом: вычисляется средняя заработная плата за последние 12 месяцев; Результат делится на 25,4; Умножается на количество дней отпуска. Данные о ежемесячных зарплатах, полученных работником в течение года, задаются в массиве А с помощью генератора случайных чисел. Величина К вводится . Написать программу для начисления «отпускных».

№ слайда 25 program zadacha; const n=30; var b:array[1..n] of integer; i,s:integer; begin
Описание слайда:

program zadacha; const n=30; var b:array[1..n] of integer; i,s:integer; begin cls; s:=0; randomize; for i:=1 to n do begin b[i]:=10+random(40); end; for i:=1 to n-1 do begin s:=s+b[i]*b[i+1] ; end; writeln ('s=',s); end. Задача 23 Опишите на русском языке или одном из языков программирования алгоритм подсчёта произведений последовательных пар элементов в целочисленном массиве из 30 элементов (Это означает, что надо сосчитать сумму произведений первого и второго, третьего и четвёртого, пятого и шестого элементов и т.д.)

№ слайда 26 program zadacha; var b:array[1..30] of integer; i,n,maxp:integer; begin cls;
Описание слайда:

program zadacha; var b:array[1..30] of integer; i,n,maxp:integer; begin cls; randomize; read(n); ',‘номер for i:=1 to n do begin b[i]:=-10+random(30); end; maxp:=b[1]*b[2]; for i:=3 to n-1 do begin if b[i]*b[i+1]>maxp then begin maxp:=b[i]*b[i+1]end; end; writeln (‘максимальное произведение',maxp); writeln (номер элемента', i); end. Задача 24 Опишите на русском языке или одном из языков программирования алгоритм поиска номера первого из последовательных элементов в целочисленном массиве из 30 произведение которых максимально (если таких пар несколько, то можно выбрать любую из них)

№ слайда 27 program zadacha; var b:array[1..30] of integer; i,n,maxp:integer; begin cls;
Описание слайда:

program zadacha; var b:array[1..30] of integer; i,n,maxp:integer; begin cls; randomize; read(n); ',‘номер for i:=1 to n do begin b[i]:=-10+random(20); end; maxp:=b[1]*b[2]; for i:=2 to n-1 do begin if b[i]+b[i+1]>maxp then begin maxp:=b[i]+b[i+1]end; end; writeln (‘максимальное произведение',maxp); writeln (номер элемента', i); end. Задача 25. Опишите на русском языке или одном из языков программирования алгоритм поиска номера первого из последовательных элементов в целочисленном массиве из 30 элементов, сумма которых максимальна (если таких пар несколько, то можно выбрать любую из них)

№ слайда 28 program zadacha; var b:array[1..30] of integer; i,n,s,sr,k:integer; begin cls
Описание слайда:

program zadacha; var b:array[1..30] of integer; i,n,s,sr,k:integer; begin cls; randomize; read(n); s:=0; k:=0; for i:=1 to n do begin b[i]:=-10+random(30); end; for i:=1 to n do begin if b[i]<0 then begin s:=s+ b[i]; k:=k+1 end; end; for i:=1 to n do begin writeln(b[i],5); end; Sr:=s/k; writeln (‘среднее знач. отрицательных элементов’,sr) end. Задача 26 Опишите на русском языке или одном из языков программирования алгоритм подсчёта среднего значения отрицательных элементов в целочисленном из 30 в предложении, что в нём есть хотя бы один отрицательный элемент

№ слайда 29 Задача 27 : Дан линейный массив из 8 целочисленных чисел. Среди них есть отри
Описание слайда:

Задача 27 : Дан линейный массив из 8 целочисленных чисел. Среди них есть отрицательные элементы. Создать новый массив из номеров этих элементов. program Prim; var a: array[1..8] of Integer; b: array[1..8] of Integer; j,i:integer; begin cls; j:=1; for i:=1 to 8 do begin read(a[i]); if (a[i]<0) then begin b[j]:=i; j:=j+1 end; end; cls; for j:=1 to 8 do begin write(b[j]); end; end.

№ слайда 30 program Prim; var a: array[1..5,1..5] of Integer; b: array[1..25] of Integer;
Описание слайда:

program Prim; var a: array[1..5,1..5] of Integer; b: array[1..25] of Integer; n,j,i:integer; begin cls; randomize; n:=1; for i:=1 to 5 do for j:=1 to 5 do begin a[i,j]:=-10+random(30); if (a[i,j]>0) then begin b[n]:=i; n:=n+1 end; end; for i:=1 to 5 do begin for j:=1 to 5 do write(a[i,j]:5); writeln(' '); end; for n:=1 to 8 do begin writeln(b[n]); end; end. Задача 28: Дан двумерный массив из 25 целочисленных чисел. Среди них есть положительные элементы. Создать массив из номеров строк , в которых расположены положительные элементы.

№ слайда 31 program Prim; var a: array[1..10] of Integer; max,min,r,i:integer; begin cls;
Описание слайда:

program Prim; var a: array[1..10] of Integer; max,min,r,i:integer; begin cls; for i:=1 to 10 do begin read(a[i]); end; i:=2; max:= a[2]; while (i<11) do begin if (a[i]>max) then max:=a[i]; i:=i+2; end; writeln(max); i:=1; min:=a[1]; while (i<11) do begin if (a[i]<min) then min:=a[i]; i:=i+2; end; writeln(min); r:=max+min; write(r); end. Задача 29: дан одномерный массив из 10 элементов. Найти max(а2, а4,…а2к) + min(a1, a3…a2k+1)

№ слайда 32 Задача 30: В квадратном массиве из 9 элементов найти произведение элементов г
Описание слайда:

Задача 30: В квадратном массиве из 9 элементов найти произведение элементов главной диагонали program gldiagonal; const n=3;m=3; var a: array[1..n,1..m] of Integer; p,j,i:integer; begin cls; p:=1; for i:=1 to n do for j:=1to m do begin read(a[i,j]); end; for i:=1 to n do begin p:=p*a[i,i]; end; for i:=1 to n do begin for j:=1to m do write(a[i,j]:5); writeln('') end; write(p); end.

№ слайда 33 Program naddiagon; const n=5;m=5; var a: array[1..5,1..5] of Integer; p,j,i:i
Описание слайда:

Program naddiagon; const n=5;m=5; var a: array[1..5,1..5] of Integer; p,j,i:integer; begin cls; randomize; for i:=1 to 5 do for j:=1 to 5 do begin a[i,j]:=-10+random(30); end; p:=1; for i:=1 to 5 do for j:=i+1 to 5 do begin p:=p*a[i,j]; end; for i:=1 to 5 do begin for j:=1 to 5 do write(a[i,j]:5); writeln(' '); end; writeln(p); Задача 31: В квадратном массиве из 25 элементов найти произведение элементов над главной диагональю

№ слайда 34 Задача 32: В квадратном массиве из 16 элементов найти сумму элементов под гла
Описание слайда:

Задача 32: В квадратном массиве из 16 элементов найти сумму элементов под главной диагональю program pjddiag; const n=4;m=4; var a: array[1..5,1..5] of Integer; s,j,i:integer; begin cls; randomize; for i:=1 to 4 do for j:=1 to 4 do begin a[i,j]:=-10+random(30); end; s:=0; for i:=2 to 4 do for j:=1 to i-1 do begin s:=s+a[i,j]; end; for i:=1 to 4 do begin for j:=1 to 4 do write(a[i,j]:5); writeln(' '); end; writeln(s); end.

№ слайда 35 Задача 33: Дан линейный целочисленный массив из 12 элементов выполните «сжати
Описание слайда:

Задача 33: Дан линейный целочисленный массив из 12 элементов выполните «сжатие» массива, выбросив из него каждый третий элемент. Дополнительный массив создавать не нужно. program szatie; var a: array[1..15] of Integer; i:integer; begin cls; for i:=1 to 12 do begin read(a[i]); end; i:=1; while ( i<12) do begin write (a[i]); i:=i+3; end; end.

№ слайда 36 program Prim; const n=5;m=5; var a: array[1..5,1..5] of Integer; j,i:integer;
Описание слайда:

program Prim; const n=5;m=5; var a: array[1..5,1..5] of Integer; j,i:integer; begin cls; randomize; for i:=1 to 5 do for j:=1 to 5 do begin a[i,j]:=-10+random(30); end; for i:=1 to 4 do for j:=1 to j-1 do begin a[i,j]:=0; end; for i:=1 to 5 do begin for j:=1 to 5 do write(a[i,j]:5); writeln(' '); end; end. Задача 34: В квадратной матрице из произвольного количества столбцов и строк произвести замену всех элементов массив, находящихся над вспомогательной диагональю на значение 1

№ слайда 37 program gldiagonal; const n=4;m=4; var a: array[1..n,1..m] of Integer; s,s2,j
Описание слайда:

program gldiagonal; const n=4;m=4; var a: array[1..n,1..m] of Integer; s,s2,j,i:integer; s1:real; begin cls; s:=0; for i:=1 to n do for j:=1to m do begin read(a[i,j]); end; for i:=1 to n do begin s:=s+a[i,i]; end; s1:= s/4; s2:=0; for i:=1 to n do for j:=1to m do begin if (a[i,j]>s1) and (a[i,j]>0) then s2:=s2+a[i,j]; end; for i:=1 to n do begin for j:=1to m do write(a[i,j]:5); writeln('') end; write(s,' ',s1,' ',s2); end. Задача 35: Опишите на русском языке или на одном из языков программирования алгоритм суммирования положительных элементов квадратной матрицы, превышающих, по величине среднее арифметическое всех элементов по главной диагонали.

№ слайда 38 Задача 36: Дана последовательность Из 10 действительных чисел. Укажите те её
Описание слайда:

Задача 36: Дана последовательность Из 10 действительных чисел. Укажите те её элементы, которые принадлежат отрезку [c;d], где c и d заданные числа. program Prim; var a: array[1..100] of Integer; c,d,n,i:integer; begin 6 cls; read(n); read (c,d); for i:=1 to n do begin read(a[i]); if (a[i]>c) and (a[i]<d) then writeln (a[i]) end; end.

№ слайда 39 Задача из материалов ЕГЭ : значение двух массивов А[100] и B[100] задаются с
Описание слайда:

Задача из материалов ЕГЭ : значение двух массивов А[100] и B[100] задаются с помощью фрагмента программы: For n:=1 to 100 do A[n]:=n-10; For n:=1 to 100 do B[n]:=A[n]*n Сколько элементов массива B будут иметь положительные значения? 10 50 90 100

№ слайда 40 Задача из материалов ЕГЭ : значение двух массивов А[200] и B[200] задаются с
Описание слайда:

Задача из материалов ЕГЭ : значение двух массивов А[200] и B[200] задаются с помощью фрагмента программы: For n:=1 to 200 do A[n]:=n +100; For n:=1 to 200 do B[n]:=2*A[n] - 500 Сколько элементов массива B будут иметь положительные значения? 50 51 149 150

№ слайда 41 Задача из материалов ЕГЭ : значение двух массивов А[300] и B[300] задаются с
Описание слайда:

Задача из материалов ЕГЭ : значение двух массивов А[300] и B[300] задаются с помощью фрагмента программы: For n:=1 to 300 do A[n]:=100 - n; For n:=1 to 300 do B[n]:=2*A[n] + 1 Сколько элементов массива B будут иметь положительные значения? 99 100 200 201

№ слайда 42 Задача из материалов ЕГЭ : значение двумерного массива 7 * 7 задаются с помощ
Описание слайда:

Задача из материалов ЕГЭ : значение двумерного массива 7 * 7 задаются с помощью фрагмента программы: For n:=1 to 7 do For k:=1 to 7 do B[n, k]:= k - n Сколько элементов массива B будут иметь положительные значения? 49 28 21 7

№ слайда 43 Задача из материалов ЕГЭ :элементы двумерного массива А размером N*N первонач
Описание слайда:

Задача из материалов ЕГЭ :элементы двумерного массива А размером N*N первоначально были равны 1000. Затем значения некоторых из них меняются с помощью вложенного оператора цикла в представленном фрагменте программы (ниже представлен фрагмент одной и той же программы, записанный на разных языках программирования). K:=0 For i:= 1 to n do For j:= n – i+ 1 to n do Begin K:= k + 1; A [I, j] = k; end. Какой элемент массива в результате будет иметь минимальное значение? a[1,1] a[1, n] a[n,1] a[n, n]

№ слайда 44 Задача из материалов ЕГЭ : значение двух массивов А[1..100] и B[1..100] задаю
Описание слайда:

Задача из материалов ЕГЭ : значение двух массивов А[1..100] и B[1..100] задаются с помощью следующего фрагмента программы: For i:= 1 to 100 do A[n]: = (n – 80) * (n – 80); For i:= 1 to 100 do B[101 –n]: = a[n] Какой элемент массива В будет наибольшим? B[1] B[21] B[80] B[100]

№ слайда 45 Задача 37 : Перевести десятичное число в систему счисления Фибоначчи program
Описание слайда:

Задача 37 : Перевести десятичное число в систему счисления Фибоначчи program z3; var n,i:integer; fib:Array[1..50] of integer; input,output:text; begin fib[1]:=1; fib[2]:=2; i:=2; assign(input,'input.txt'); reset(input); read(input,n); while n>fib[i] do begin i:=i+1; fib[i]:=fib[i-1]+fib[i-2]; end; if n<>fib[i] then i:=i-1; assign(output,'output.txt'); rewrite(output); while (n>=0) and (i>0) do begin if (n-fib[i]>=0) then begin n:=n-fib[i]; write(output,'1'); end else write(output,'0'); i:=i-1; end; close(input); close(output); end.

№ слайда 46 Желаю удачи!
Описание слайда:

Желаю удачи!

Краткое описание документа:

 Презентация «Обработка табличного алгоритма на языке программирования Паскаль» предназначена  для изучения данного языка учащимися, решения задач и их   программирования.

 В данной работе  представлено 37 разобранных задачи для одномерного и двумерного массивов,   от основной  задачи  «Формирование массива» до сложных задач.

 Разобрана задача «Нахождение суммы элементов массива», на основе, которой учащиеся самостоятельно  смогут  найти произведение и среднее значение элементов. Следующая, категория классических задач – нахождение максимального элемента массива, на основе, которой учащиеся смогут найти минимальный элемент, задачи на нахождение количества определённых элементов, перестановки элементов, определение их индексов. Рассмотрены задачи, которые позволяют работать  с элементами, находящимися  на главной и вспомогательной  диагонали. Разобрана задача на сжатие массива. К некоторым задачам добавлены скрины  с ответами. В   задачах  красным цветом выделены новые ключевые моменты,  относящиеся к конкретной задаче,  позволяющие  решить её. 

Автор
Дата добавления 03.03.2015
Раздел Информатика
Подраздел Презентации
Просмотров248
Номер материала 419716
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх