Алгоритмы на языке Паскаль

1. Написать программу, которая для целочисленной матрицы 3х4 определяет среднее арифметическое ее элементов и количество положительных элементов в каждой строке. Приложение 2

program sred_n;
const m=3;
n= 4;
var
a: array[1..m,1..n] of integer;
i,j,n_pos_el:integer;
sred:real;
begin
for i:=1 to m do
for j:=1 to n do read(a[i,j]);
sred:=0;
for i:=1 to m do begin
n_pos_el:=0;
for j:=1 to n do begin
sred:=sred+a[i,j];
if a[i,j]>0 then inc(n_pos_el);
end;
writeln('V',i,'-oi stroke',n_pos_el,'polozitelnix elementov');
end;
sred:=sred/m/n;
writeln('Srednee arifmeticheskoe:',sred:6:2);
end.

2. Написать программу, которая для прямоугольной целочисленной матрицы 3х4 определяет номер самого левого столбца, содержащего только положительные элементы. Если такого столбца нет, выводится сообщение. Приложение 3

program num_posit;
const m=3;
n=4;
var
a: array[1..m,1..n] of integer;
i,j,num:integer;
all_posit:boolean;
begin
randomize;
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(100)-10;
write(a[i,j]:4);
end;
writeln;
end;
num:=0;
for j:=1 to n do begin
all_posit:=true;
for i:=1 to m do
if a[i,j] < 0 then
begin
all_posit:=false;
break; end;
if all_posit then begin
num:=j; break; end;
end;
if num = 0 then
writeln('Takix stolbcov net')
else
writeln('Nomer stolbca:',num);
end.

Ученики загружают файлы в Паскале, анализируют данный алгоритмы, просматривают результаты выполнения программ, отвечают на дополнительные вопросы:

1. Как организуется двумерный массив?

2. Что означает процедура inc?

3. Что означает процедура break?

4. Как используется генератор случайных чисел?

Дата добавления: 2015-07-11