- 03.04.2014
- 3365
- 3
Рабочие листы
к вашим урокам
Скачать
Триединая задача урока: Познавательная Формировать навыки и умения составления программ с использованием массивов. Развивающая Учить строить аналогии, выделять главное, ставить и решать проблемы. Воспитательная Воспитывать аккуратность, внимательность, вежливость и дисциплинированность. План урока: 1. Составление программ a. Заполнить массив случайными числами и вывести его на экран компьютера. Program Random_mas; uses Crt; Var i: integer; Ran : array [1..10] of integer; begin Clrscr; Randomize; For i:=1 to 10 do begin ran[i]:=random(100); writeln(ran[i]); end; readln; end. b. Определить, содержит ли массив A[1..20] случайных чисел число Х, введенное с клавиатуры. Program Poisk_mas; uses Crt; Var i, x: integer; A : array [1..20] of integer; c: string; begin Clrscr; Randomize; Write ('Zadayte chislo X '); readln (x); c:='v massive net chisla x'; For i:=1 to 20 do begin a[i]:=random(10); writeln(A[i]); if a[i]=x then c:='v massive est chislo x'; end; writeln (c); readln; end. c. Заполнить массив значениями, вычисляемыми по формуле: a[i]:=sin i *i2 Вывести элементы этого массива на экран компьютера и найти максимальное значение среди них. Program Max_mas; uses Crt; Var i:integer; max: real; A : array [1..10] of real; begin Clrscr; For i:=1 to 10 do begin a[i]:=sin(i)*sqr(i); writeln(A[i]:8:3); end; max:=A[1]; For i:=2 to 10 do if a[i]> max then max:=a[i]; writeln; writeln ('max=', max:8:3); readln; end. d. Составить программу подсчета суммы и произведения элементов одномерного массива. Program sum-prois; uses crt; const n = 100; var a: array [1…n] of real; n, k, i: integer; p, s: real; begin clrscr; s: = 0; p: =1; writeln ('введите размер массива'); readln (nk); writeln ('введите элемент массива'); for i:=1 to nk do readln (a[i] ); for i:=1 to nk do begin s:= s + a[ i ]; p:= p * a[ i ]; end; writeln ('Сум. = ', s, 'Произ. =' , p); end. Необходимо подготовить ячейки: - при накапливании суммы - s=0 - при подсчете произведения - p=1. Задача рассчитана на обработку массива с максимальным размером 100 элементов (n=100). Конкретный размер массива вводится с клавиатуры (nk). При каждом прохождении через цикл с клавиатуры вводится только один элемент массива. Два цикла for можно было объединить в один. Пр. Задача формирования массива по правилу: Задан массив X из 8 элементов. Сформировать массив Y по правилу Y[i]= 4X[i], если I – четное Cos 2X[i], если I – нечетное и найти количество его положительных элементов. Var x,y: array [1..8] of real; I,k:integer; Begin Writeln ('Введите массив X из 8 элементов'); For i:=1 to 8 do begin Read (x[i]); If I mod 2 =0 then y[i]:=4*x[i] Else y[i]:=cos(2*x[i]); End; K:=0; Writeln ('Массив Y'); For i:=1 to 8 do begin If y[i]>0 then k:=k+1; Write (y[i]:8:2); End; Writeln; Writeln ('K=',k); End.
6 664 320 материалов в базе
Настоящий материал опубликован пользователем Латыпова Лилия Солтановна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материал
Ваша скидка на курсы
40%
Курс профессиональной переподготовки
300/600 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Курс профессиональной переподготовки
300 ч. — 1200 ч.
Мини-курс
6 ч.
Мини-курс
2 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.