Помогите, пожалуйста, составить блок-схему. program lol; uses crt; const nmax=20;//максимальный размер матрицы var a:array[1..nmax,1..nmax] of
10-11 класс
|
integer;//тип матрицы n,m,i,j:byte;//переменные - размеры матрицы, счетчики циклов sm,b:integer;//сумма, переменная для чтения чисел s1,s2:set of byte;//множества чисел от 0 до 255 begin clrscr;//очищаем экран randomize;//генерация псевдо-случайных чисел repeat write('Количество строк='); readln(m); until m in [1..nmax];//проверяем правильность ввода repeat write('Количество столбцов='); readln(n); until n in [1..nmax]; writeln('Исходная матрица:'); for i:=1 to m do//выводим матрицу по строкам begin for j:=1 to n do begin a[i,j]:=random(20);//случайные числа от 0 до 19 write(a[i,j]:4); end; writeln; end; writeln; writeln('Множество S1:'); s1:=[];//пустое множество for i:=1 to m do begin b:=random(m)+1;//наполняем случайными числами от одного до количества строк s1:=s1+[b];//записываем в множество end; for i:=1 to m do if i in s1 then write(i,' ');//выводим элементы множества на экран writeln; writeln('Множество S2:'); s2:=[]; for i:=1 to n do begin b:=random(n)+1; s2:=s2+[b]; end; for i:=1 to n do if i in s2 then write(i,' '); writeln; writeln; sm:=0;//сумма пока ноль for i:=1 to m do//идем по матрице for j:=1 to n do if(i in s1)and(j in s2) then sm:=sm+a[i,j];{если номер строки и номер столбца есть в соответствующих им множествам, суммируем} write('Сумма=',sm);//выводим сумму на экран readln; end.
Вот как-то так.
p.s. кружочки - это вроде разрыва, мне сложно было все в один столбик :)
Другие вопросы из категории
составные высказывания имели смысл в повседневной жизни:а) если (а или (b и с)), то d;б) если (не а и не b), то (с или d);в) (а или b) тогда и только тогда, когда (с и не d).
На одной улице стоят в ряд 4 дома, в каждом из них живет по одному человеку. Их зовут Маша, Даша, Глаша и Наташа. Известно, что все они имеют разные профессии: ткачиха, портниха, швея, повариха. Определите профессию Даши, если известно, что:
a) ткачиха живет с краю;
b) портниха живет правее швеи;
c) повариха живет левее швеи;
d) ткачиха живет рядом с поварихой;
e) Маша живет через дом от Наташи;
f) Глаша не ткачиха и не живет рядом с ткачихой;
g) Наташа живет рядом со швеёй;
h) Маша живет правее поварихи.
уходят в 60 лет.
Задания (циклы) на паскале
1.
Читайте также
program pasha;
uses crt;
var a:integer;
begin
clrscr;
repeat
write('Введите 4х-значное число a=');
readln(a);
until(a>555)and(a<=5555);
writeln('Данное число читается одинаково справа налево и слева направо');
write((a div 1000=a mod 10)and(a div 100 mod 10=a div 10 mod 10));
readln
end.
example14;
Var i:
integer; function prost(i: integer): boolean;
var j:integer;
begin prost := true; i:=abs(i); for j := 2 to (i div 2) do if (i mod j = 0) then prost := false; end;
begin for i := 10 to 99 do if prost(i) = true then write(i:5);
readln(i);
end.
while n>0 do begin k:=n mod 10; n:=n div 10; inc (a[k]); end; for j:=0 to 9 do if a[j].0 then writeln (j, a[j]); for j:=0 to 9 do if a[j]=0 then writeln(j); end.
l + πR2 + πr2 ; V = (1/3) π (R2 + r2 + Rr) h .