Примеры на Pascal (часть 2)

Пример 1

Написать программу, которая запрашивает пароль, если пароль введен верно, компьютер выдает «Добро пожаловать», иначе компьютер просит ввести пароль еще раз. После трех неудачных попыток выдается «Доступ закрыт».

ProgramSecret;

Var Parol: String; Popitki: Integer;

Begin

Popitki:=0;

Repeat

WriteLn (Введите пароль: ’);

Read (Parol);

Popitki := Popitki + 1;

Until

(Parol = ‘abc’) or (Popitki = 3);

If Parol = ‘abc’ then WriteLn (Добро пожаловать’);

Else WriteLn (‘Доступзакрыт’);

End.

Пример 2

Написать программу, которая запрашивает число меньше 7, а затем выдает произведение всех чисел от единицы до заданного числа.

Program Proizv;

Var p, i, n : Integer;

Begin

p:=1;

WriteLn (‘Введите число ’);

Read (‘n’);

For i:=1 to n do p:=p*i;

WriteLn (‘Произведение равно’, p);

End.

Пример 3

Написать программу, которая запрашивает грузоподъемность автомобиля и вес груза, а затем выдает, сколько груза по весу можно еще поместить в автомобиль или сообщение о том, что груз слишком велик.

Program Gruz;

Var Gruzopod, Ves_gruza, Ost_mesta : Real;

Begin

WriteLn (‘Введите грузоподъемность груза: ’);

Read (Gruzopod);

WriteLn (‘Введите вес груза: ’);

Read (Ves_gruza);

If Ves_gruza > Gruzopod then WriteLn (‘Груз слишком велик’)

Else

Begin

Ost_mesta := Gruzopod — Ves_gruza;

WriteLn (‘Осталось места: ’, Ost_mesta:0:3,’ кг’);

End;

End.

. программа на Паскале рисунка зонта
. пример рисунка в паскале
Комментирование и размещение ссылок запрещено.