Turbo Pascal для начинающих




Задача 235


Выводит таблицу пересчета из дюймов в миллиметры на экран, принтер или в файл
f:text; { файл вывода } fname:string; { имя файла вывода } dest:integer; { 1 - на экран, 2 - на принтер, 3 - в файл }
d: real; { величина в дюймах }
m: real; { величина в миллиметрах}
begin
writeln('*** Таблица пересчета из дюймов ', 'в миллиметры ***');
teln('Результат выводить:'); writeln('l - на экран;'); writeln('2 - на принтер;1); writeln('3 - в файл.');
' writeln('Введите число от 1 до 3 и нажмите <Enter> '); write('Ваш выбор -> '); readln(dest); case dest of
1: fname:=''; {на экран } 2: begin { на принтер } fname:='prn';
write('Включите принтер и нажмите <Enter>'); readln; end; 3: begin { в файл }
write('Задайте имя файла для вывода -> '); readln(fname); end; end;
assign(f,fname); . rewrite(f);
writeln(f,' ------------------') ;
writeln(f,' Дюймы Миллиметры');
writeln(f,' -------------------') ;
d:=0.5;
while d < 10 do begin
m:=25.4*d; { 1 дюйм - 25,4 мм } writeln(f,d:6:l,m:10:1); d:=d+0.5; end;
writeln(f,' -------------------');
close(f); if dest = 3
then writeln('Таблица записана в файл ',fname);
writeln('Для завершения работы программы',
1 нажмите <Enter>'); readln;
end.









Начало    Назад    Вперед