Программа в Pascal'e

[Az1cK]

Всем привет. У меня тут такая проблема. Я учусь в колледже, на 1-ом курсе, на программиста. Дело в том, что я совсем не понимаю в этих задачах и т.д. И для того, чтобы получить хороший зачет по информатике мне нужно написать программу в Паскале, и чтобы в нем присутствовал: "Логический оператор" и "3 вида цикла". Надеюсь на вашу помощь.
Вы наверное подумаете, типо зачем тогда поступал на программиста, раз даже не понимаю в элементарных вещах программирования. Тогда скажу вам так, я люблю компьютеры, но-почему то сразу не понял эти задачи. Т.к. я начинающий программист, то надеюсь, что в дальнейшем я уже сам начну это всё понимать.

[DRAgon™]

Вот простенькие программки, раньше не удалял с компа, вот и остались.
Здесь 4 разные подпрограммы в программе

Label c1;
var otvet,Slovo:string;
i,Nomer:Integer;
begin
writeln('Введите приветствие'); {логический оператор}
readln(otvet);
if otvet='Привет' then writeln('Привет');
if otvet='Здраствуйте' then writeln('Здравствуйте');
if otvet='Здорово' then writeln('Здравствуйте');
if otvet='Добрый день' then writeln('Салют');
if otvet='приветик' then writeln('Салют');
if otvet='Салют' then writeln('Салют');
if otvet='Здравию желаю' then writeln('Вольно');

WriteLn('Прямой счет ');   {цикл FOR}
for i:=-5 to 5 do
write(i,' ');
WriteLn('Обратный счет ');
for i:=5 downto -5 do
write(i,' ');
WriteLn('Конец счета');

Nomer:=1;
	repeat
		WriteLn('Введите слово');
		ReadLn(Slovo);
		WriteLn(Nomer, ' ', Slovo, '!');
		Nomer:=Nomer+1;
	until Slovo='Хватит';
	WriteLn('Хватит так хватит');     {цикл repeat}
	
c1:Write('A');    {goto, цикл, метка}
Write(' ');
goto c1

end.

[Az1cK]

Сообщение от DRAgon™

Вот простенькие программки, раньше не удалял с компа, вот и остались.
Здесь 4 разные подпрограммы в программе

Label c1;
var otvet,Slovo:string;
i,Nomer:Integer;
begin
writeln('Введите приветствие'); {логический оператор}
readln(otvet);
if otvet='Привет' then writeln('Привет');
if otvet='Здраствуйте' then writeln('Здравствуйте');
if otvet='Здорово' then writeln('Здравствуйте');
if otvet='Добрый день' then writeln('Салют');
if otvet='приветик' then writeln('Салют');
if otvet='Салют' then writeln('Салют');
if otvet='Здравию желаю' then writeln('Вольно');

WriteLn('Прямой счет ');   {цикл FOR}
for i:=-5 to 5 do
write(i,' ');
WriteLn('Обратный счет ');
for i:=5 downto -5 do
write(i,' ');
WriteLn('Конец счета');

Nomer:=1;
	repeat
		WriteLn('Введите слово');
		ReadLn(Slovo);
		WriteLn(Nomer, ' ', Slovo, '!');
		Nomer:=Nomer+1;
	until Slovo='Хватит';
	WriteLn('Хватит так хватит');     {цикл repeat}
	
c1:Write('A');    {goto, цикл, метка}
Write(' ');
goto c1

end.

Спасибо тебе, а есть ещё что нибудь? Чтобы сразу все 3 цикла были. А то я так понял, что это все задачи, в которых по одному циклу.

[DRAgon™]

Сообщение от Az1cK

Спасибо тебе, а есть ещё что нибудь? Чтобы сразу все 3 цикла были. А то я так понял, что это все задачи, в которых по одному циклу.

надо еще по 2 в каждом,по-мойму вы говорил что 3 вида цикла вот ,которые я скачал(repeat,for,goto)

[ROMA2PVT]

по-мойму вы говорил что 3 вида цикла вот ,которые я скачал(repeat,for,goto)

ну goto вообщето это-оператор безусловного перехода.циклы это while,repeat и for
http://programmersforum.ru/showthread.php?t=99927
делаешь типа меню ( через case) и готово.

[DRAgon™]

Сообщение от ROMA2PVT

ну goto вообщето это-оператор безусловного перехода.циклы это while,repeat и for
http://programmersforum.ru/showthread.php?t=99927
делаешь типа меню ( через case) и готово.

Прост while одно и тоже что и repeat,вот и не писал его.ну тогда пусть будет while

[DRAgon™]

вот программа с WHILE

VAR a : Real;
BEGIN
	a:=900;
	while a>=0 do	begin   {Из отрицательных чисел корни компьютер не вычисляет}
							WriteLn('Число=',  a :5:0,   '  Корень=',   Sqrt(a) :7:3);
							a:=a-3;
						end;
	ReadLn
END.

[ROMA2PVT]

{Из отрицательных чисел корни компьютер не вычисляет}

А вам на математике про мнимую единицу не рассказывали.

[DRAgon™]

Сообщение от ROMA2PVT

А вам на математике про мнимую единицу не рассказывали.

рассказывали, но зачем это делать

[ROMA2PVT]

<<offtop>>
ну тогда писать так не надо в каментах.Ато препод усомниться в ваших знаниях математики.