Напишите пожалуйста 2 блок-схемы алгоритмов
Помргите написать блок схуму к двум программам
1)
написать программу выводящую на экран задаваемую с клавиатуры надпись требуемое колличество раз.
program NADPIS
uses crt;
var s: string;
i,k:integer;
begin
clrscr;
writeln('Введите надпись');
readln(s);
writeln('Введите число повторений');
readln(k);
for i:=1 to k do
writeln(s);
readln
end.
2)
напишите программу выполняющую следущие действия, с клавиатуры задаются размеры A, B прямоугольного отверстия и размеры x, y, z кирпича. Определить пройдёт ли кирпич через отверстие.
program kirpich;
uses crt;
var a,b,x,y,z:real;
begin
clrscr
writeln('введите значение A');
readln(a);
writeln('введите значение B');
readln(b);
writeln('введите значение x');
readln(x);
writeln('введите значение y');
readln
;
writeln('введите значение z');
readln(z);
if ((x<=a) or (x<=b)) and ((y<=b) or (y<=a)) then writeln('пройдет') else
if ((x<=a) or (x<=b)) and ((z<=b) or (z<=a)) then writeln('пройдет') else
if ((z<=a) or (z<=b)) and ((y<=b) or (y<=a)) then writeln('кирпич пройдет') else writeln('кирпич не пройдет');
readln
end.
Помргите написать блок схуму к двум программам
1)
написать программу выводящую на экран задаваемую с клавиатуры надпись требуемое колличество раз.
program NADPIS
uses crt;
var s: string;
i,k:integer;
begin
clrscr;
writeln('Введите надпись');
readln(s);
writeln('Введите число повторений');
readln(k);
for i:=1 to k do
writeln(s);
readln
end.
2)
напишите программу выполняющую следущие действия, с клавиатуры задаются размеры A, B прямоугольного отверстия и размеры x, y, z кирпича. Определить пройдёт ли кирпич через отверстие.
program kirpich;
uses crt;
var a,b,x,y,z:real;
begin
clrscr
writeln('введите значение A');
readln(a);
writeln('введите значение B');
readln(b);
writeln('введите значение x');
readln(x);
writeln('введите значение y');
readln
;writeln('введите значение z');
readln(z);
if ((x<=a) or (x<=b)) and ((y<=b) or (y<=a)) then writeln('пройдет') else
if ((x<=a) or (x<=b)) and ((z<=b) or (z<=a)) then writeln('пройдет') else
if ((z<=a) or (z<=b)) and ((y<=b) or (y<=a)) then writeln('кирпич пройдет') else writeln('кирпич не пройдет');
readln
end.
