close

Вход

Забыли?

вход по аккаунту

?

Процедуры в паскаль

код для вставки
программирование паскаль
Тема: Решение задач с использованием процедур.
тип урока комбинированный (2 часа)
Цель урока:
1). Дать определение глобальных, локальных переменных, формальных и
фактических параметров при использовании процедур в программе
2). Научить корректно использовать процедуры при составлении программ
3). Развивать логическое мышление. Повышать уровень компьютерной
грамотности.
План
1. Организационный момент: (перекличка, проверка домашнего задания)
2. Опрос
3. Сообщение нового материала.
4. Решение задач – составление программ.
5. Выставление оценок. Подведение итогов
6. Домашнее задание.
Даны массивы действительных чисел А и В, количество элементов каждого
массива — 12. Массивы заполнить случайным образом. Вычислить:
l=мах(а1,а2…а12)+мах(b1,b2…b12).
program f2;
const n=12;
type
mas=array[1..n] of integer;
var a,b:mas; n2,n1,s,ma,mb:integer;
procedure init(x,y:integer;var m:mas);
var k:byte;
begin
for k:=1 to n do
m[k]:=random(y-x)+x;end;
procedure print(m:mas);
var k:byte;
begin
for k:=1 to n do
write (m[k]:4);writeln;end;
procedure maxsimum(m:mas;var max:integer);
var k:byte;
begin
max:=m[1];
for k:=1 to n do
if m[k]>max then max:=m[k]; writeln('max=',max);
end;
begin {основная программа}
randomize;
write('n1,n2 '); readln(n1,n2);
init(n1,n2,a);
init(n1,n2,b);
print(a);
maxsimum(a,ma); print(b);
maxsimum(b,mb); s:=ma+mb;
write('s=',s);readln; end.
1. Найти номера четных элементов массива.
2.Найти количество положительных и отрицательных элементов в данном
массиве
3.Найти сумму положительных элементов массива
4.Найти сумму чётных элементов массива
Автор
ovsianik
Документ
Категория
Образование
Просмотров
10
Размер файла
25 Кб
Теги
процедур
1/--страниц
Пожаловаться на содержимое документа