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

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

Задача 69

{ Пересчет расстояния из верст в километры } var
v: real; { расстояние в верстах }
k: real; { расстояние в километрах } begin
writeln('Пересчет расстояния из верст в километры');
writeln('Введите расстояние в верстах и нажмите <strong>Enter</strong>');
write(' › ');
readln(v);
k: = v*1.0668;
writeln(v:6:2,' верст(а/ы) – это ',k:6:2,' км');
writeln('Для завершения работы программы нажмите ', 'Enter');
readln;
end.

Задача 71

(Вычисление дохода по вкладу } var
sum: real; { сумма вклада }
srokrreal; { срок вклада } stavka:real; { процентная ставка }
dohodrreal; { доход по вкладу } begin
writeln('Вычисление дохода по вкладу.');
writeln('Введите исходные данные:');
write('Величина вклада (руб.) › ');
readln(sum);
write('Срок вклада (дней) › ');
readln(srok);
write('Процентная ставка › ');
readln(stavka);
dohod: = (sum*stavka/100)/365*srok; { 365 – кол. в году } sum: = sum+dohod; writeln;
writelnt'---------------------------------');
writeln('Доход:',dohod:9:2,' руб.');
writeln('Сумма по окончании срока вклада:',sum:9:2, 'руб.');
readln;
end.

Задача 72

(Преобразование величины, выраженной в минутах, в соответствующее ей значение,
выраженное в часах и минутах) var
min: integer; { интервал в минутах }
h: integer; (количество часов }
пк integer; { количество минут } begin
writeln('Введите величину временного интервала (в минутах)');
write(' › ');
readln(min);
h: = min div 60;
m: = min mod 60;
writeln;
writeln(min,' мин. – это ',h,' час.',т,' мин.');
readln;
end.

Задача 73

{ Преобразование числа в денежный формат } var
n: – real; { дробное число }
г: integer; { целая часть числа (рубли) }
к: integer; { дробная часть числа (копейки)) begin
writeln('Преобразование числа в денежный формат.');
write('Введите дробное число › ');
readln(n);
r: = Round(n*100) div 100;
k: = Round(n*100) mod 100;
writeln;
writeln(n:6:2,' руб. – это ',r,' руб.',к,' коп.');
readln;
end.
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.