Вот я писал 2 года назад:
Цитата:
Uses Crt;
Var n:byte;
l:real;
Begin
Repeat
ClrScr;
writeln('1 — дециметр');
writeln('2 — километр');
writeln('3 — метр');
writeln('4 — миллиметр');
writeln('5 — сантиметр');
write('Введите номер еденицы длины: ');readln(n);
write('Введите длину отрезка: ');readln(l);
Case n of
1:writeln('Метров = ',l/10:0:4);
2:writeln('Метров = ',l*1000:0:4);
3:writeln('Метров = ',l:0:4);
4:writeln('Метров = ',l/1000:0:4);
5:writeln('Метров = ',l/100:0:4)
else writeln('Не правильный выбор!')
End;
write('Повторить (1=yes/2=no): ');readln(n);
Until n=2;
End.
|