06.11.2009, 10:59 | #1 (permalink) |
Новичок
Регистрация: 22.10.2009
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Напишите пожалуйста 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(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. |
06.11.2009, 10:59 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вот вам топики, которые так или иначе похожи на ваш Помогите, пожалуйста, нарисовать блок-схемы? Блок питания для схемы TDA7294 Построение блок-схемы Составить алгоритмы блок-схемы |
06.11.2009, 16:07 | #5 (permalink) |
Новичок
Регистрация: 22.10.2009
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо!!!
Спасибо тебе DDS!!!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
06.11.2009, 17:09 | #6 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Да ладно, всегда готов помочь.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|