Технический форум - Нужна помощь! Помогите создать две несложные программы.

Вы не указали язык программирования, предлагаю вариант программы для Turbo Pascal 7.0:

Цитата:

написать программу выводящую на экран задаваемую с клавиатуры надпись требуемое колличество раз.

Код:

uses crt;

var s: string[256];

     i,k:integer;

begin

writeln('Введите надпись');

readln(s);

writeln('Введите число повторений');

readln(k);

for i:=1 to k do 

writeln(s);

readln

end.

По первой программе: ограничение на форму и размер отверстия есть? Допустим, что нужно проверять все 3 варианта.

Цитата:

напишите программу выполняющую следущие действия, с клавиатуры задаются размеры A, B прямоугольного отверстия и размеры x, y, z кирпича. Определить пройдёт ли кирпич через отверстие.

Код:

uses crt;

var a,b,x,y,z:real;

begin

writeln('введите значение A');

readln(a);

writeln('введите значение B');

readln(b);

writeln('введите значение x');

readln(x);

writeln('введите значение y');

readln(y);

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.

Обе программы проверены и работают.