Помощь - Поиск - Пользователи - Календарь
Полная версия: файлы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
dinni
Записать в файл последовательного доступа N действительных чисел. Найти разность первой и последней компонент файла.
Вот мой ключ: помогите кто как может!!!!!!!
Var t:text; var a=array [1..100] of real;
Var i:integer;
Begin
Assign(f,’123.dat’);
Rewrite(f);
Begin
Writeln(‘n=’);
For i:=1 to n do begin writeln(‘vvodi elements:’); readln(a[i]);
Procedure raznica (var a:f; var m:a);
Var i:integer;
Begin for i:=1 to n do (a[1]-a[i]:=m) ; end; writeln(m[i]);
Readln(m[i]); end.

Bokul
Сделай , пожалуйста, нормальное форматирования твоего кода и заключи его в теги [ code=pas ] [ /code ], то, что ты написала невозможно смотреть.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.