Исходники и листинги ::: Pascal ::: Версты-километры

1
2
3
4
5
6
7
8
9
10
11
12
  { Пересчет расстояния из верст в километры } var
  v: real; { расстояние в верстах }
  k: real; { расстояние в километрах } begin
  writeln('Пересчет расстояния из верст в километры');
  writeln('Введите расстояние в верстах и нажмите <Enter>');
  write('->');
  readln(v);
  k:=v*1.0668;
  writeln(v:6:2,' верст(а/ы) — это ',k:6:2,' км');
  writeln('Для завершения работы программы нажмите ',
  '<Enter>');
  readln; end.
<<< Предыдущая работа

Вернуться в галерею исходников
Версты-километры
Автор: Sanek_xXx
Город: Казань
Дата: 02.02.2007  16:39
Комментариев: 1
Просмотров: 473
Оценка: 0 (0|0|0|0|0) [0]

Вернуться на главную
Авторский комментарий к работе: Фрагмент программы, которая переводит версты в километры
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
d9k ::: комментарий от 30.05.2007 | 19:57
d9k Перспективный (ур.8)
Очки: 1626
Город: Псков
Тв. работ: 11
Рег: 26.05.2007 (4725)
ууу, блин.... Типа, круто, да? ((((


--------------------
Life is the game, that's will never be the same.