Форум школьного программирования , решение задач на турбо паскале , решебник по информатике |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Форум школьного программирования , решение задач на турбо паскале , решебник по информатике » Решение задач на turbo pascal » Работа с файлом на турбо паскале , генератор чисел
Записать файл последовательного доступа N действительных чисел. Найти разность первого и последнего компонентов файла.
uses crt;
var f:text;
n,i:integer;
a,b,c:real;
begin
clrscr;
randomize;
repeat
write('n>1 n=');
readln(n);
until n>1;
assign(f,'fail.txt');
rewrite(f);
for i:=1 to n do
begin
a:=10*random;
write(f,' ',a:0:2);
end;
{close(f);}
reset(f);
read(f,a);
while not eof(f) do
read(f,b);
close(f);
c:=a-b;
write('Разность первого и последнего=',c:0:2);
readln
end.
Вы здесь » Форум школьного программирования , решение задач на турбо паскале , решебник по информатике » Решение задач на turbo pascal » Работа с файлом на турбо паскале , генератор чисел