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

Решения (задачи 51-98)

Задача 81

Вычисление стоимости покупки с учетом скидки } var
summ: real; { сумма покупки }
begin
writeln('Вычисление стоимости покупки с учетом скидки.');
writeln('Введите стоимость покупки и нажмите <strong>Enter</strong>.');
write(' › '); readln (summ); if summ > 500
then { предоставляется скидка } begin
if suiran > 1000 then
begin
writeln('Вам предоставляется скидка 5%'); summ: = 0.95*summ; end else
begin
writeln('Вам предоставляется скидка 3%'); summ: = 0.97*summ; end;
writeln('Сумма покупки с учетом скидки: ', summ: 6:2,' руб.');
end else
writeln('Скидка не предоставляется.');
readln;
end.

Задача 82

{ Проверка знания истории } var
year: integer; { ответ испытуемого } begin '
writeln('В каком году был основан Санкт-Петербург?');
writeln('Введите число и нажмите Enter');
write(' › ');
readln(year);
if year = 1703
then writeln('Правильно.') else
begin
write('Вы ошиблись, ');
writeln('Санкт-Петербург был основан в 1703 году.1) end;
readln; end.

Задача 84

{ Проверка знания истории архитектуры } var
otv: integer; { номер ответа, выбранного испытуемым } begin
writeln('Архитектор Исаакиевского собора:');
writeln('1. Доменико Трезини');
writeln('2. Огюст Монферран');
writeln('3. Карл Росси');
writeln;
writeln('Введите номер правильного ответа и нажмите Enter');
write(' › '); readln(otv); if otv = 2
then writeln("Правильно.') else
begin
writeln('Вы ошиблись. ');
writeln('Архитектор Исаакиевского собора ', 'Огюст Монферран.');
end;
readln; end.

Задача 86

{ Сравнение двух целых чисел } var
a,b: integer; (сравниваемые числа } begin
write('Введите в одной строке два целых ');
writeln('числа и нажмите Enter');
write(' › ');
readln(a,b); if a = b
then writeln('числа равны') else if a < b
then writeln(а,1 меньше ',b) else writeln(а,' больше ',b); readln;
end.

Задача 87

{ Проверка умения умножать числа } var
m1,m2,p: integer; { сомножители и произведение }
otv: integer; { ответ испытуемого } begin
Randomize; { инициализация генератора случайных
чисел } ml: = Random(9)+1; { значение функции Random(а) – число }
{ в диапазоне от 0 до а-1 m2: = Random(9)+l; р: = ml*m2;
writeln('Сколько будет ',ml,'x',m2,'?'); writeln('Введите ответ и нажмите Enter');
write(' › '); readln(otv); if p = otv
then writeln('Правильно.')
else writeln('Вы ошиблись. ',ml,'x',m2,'=',p);
readln; end.
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.