Иллюстрированный самоучитель по Turbo Pascal для начинающих

Решения (задачи 131-150)

Задача 131

(Определение максимального числа последовательности положительных чисел }
var
а: integer; { очередное число } m: integer; { максимальное число } begin
write('Определение максимального числа');
writeln('последовательности положительных чисел.');
writeln('Вводите после стрелки числа. ',
'Для завершения ввода введите ноль.'); т: = 0; repeat
write('> ');
readln(a);
if a > т then m: = а; until a <= 0; writeln('Максимальное число: ',т);
завершения работы программы нажмите Enter');
readln;
end.

Задача 132

{ Проверка, является ли введенное с клавиатуры
целое число простым } program prost; var
n: integer; d: integer; r: integer; begin
write('Введите целое число › ');
readln(n);
d: = 2; { сначала будем делить на два }
repeat
r: = n mod d;
if r<>0 (n не разделилось нацело на d }
then d: = d + 1;
until r=0; { пока не нашли число, на которое делится n) if d=n
then writelnf n,' – простое число. ') else writeln(n,' – не простое число.');

Задача 134

{ Игра "Угадай число" } const
NPOP=5; { количество попыток, предоставляемое игроку } var
comp: integer; { число, "задуманное" компьютером }
igrok: integer; { вариант игрока }
n: integer; { кол-во попыток, сделанное игроком } begin
Randomize; { инициализация генератора случайных чисел }
comp: = Random(9)+1; { компьютер задумал число }
110
teln('Игра "Угадай число". ');
writeln('Компьютер "задумал" число от 1 до 10.');
writeln('Угадайте его за ',NPOP,' попыток.');
writeln('Введите число и нажмите <strong>Enter</strong>.');
repeat
n: = n+l;
write(' › ');
readln(igrok);
until (n = NPOP) or (comp = igrok); if comp = igrok
then writeln('Вы выиграли!')
else writeln('Вы проиграли! Компьютер задумал число ', comp); readln;
end.

Задача 135

{ Таймер)
uses Crt;
var.
mm, sec: integer; { задержка: минут и секунд } begin
writeln('Введите величину задержки в минутах и секундах,');
writeln('например 2 30 и нажмите Enter.');
write(' › ');
readln(min,sec);
ClrScr;
GotoXY(2.2);
write(min,':',sec,' ');
repeat
if sec = 0 then begin
min: = min-l;
sec: = 60; end; repeat
Delay(1000);
sec: = sec-l;
GotoXY(2.2); { задержка 1 сек } write(min,':',sec,' ');
if KeyPressed { если нажата клавиша } then HALT; { завершить программу }
until sec = 0; until (min = 0) and (sec = 0);
{ звуковой сигнал }
Sound(1000); { включить звук – сигнал частотой 1000 герц} Delay(500);
Nosound; { выключить звук}
end.
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.