Порядок выполнения работы. С помощью Проводника Windows на рабочем логическом диске создайте папку (например, Ivanov6) для размещения файлов проекта

С помощью Проводника Windows на рабочем логическом диске создайте папку (например, Ivanov6) для размещения файлов проекта.

Создайте проект «Console Application» консольного приложения Delphi.

Сохраните файлы проекта в папку Ivanov6 под именем Ivanov6.

Вставьте текстовый файл в проект (команда меню «File / New / Other…»). Выберите на вкладке «New» тип вставляемого объекта «Text».

В результате текстовый файл File1.txt будет вставлен в проект и открыт в окне редактора.

Сохраните файл под именем Ivanov6_1.txt (команда меню «File | Save As…»)

Внесите в новый файл данные первого задания (строки – без пробелов, числа – через пробел):

Сохраните изменения файла (команда меню «File | Save»).

Отредактируйте текст главной программы для задачи 1.

PROGRAM Ivanov6;

{$APPTYPE CONSOLE}

USES

SysUtils;

Var

F:array [1..10] of integer; // Массив F

teta,alfa,beta:string[4]; // Стринги

w:real; // Вещественное число W

e:integer; // Целое число Е

i:integer; // Счетчик элементов массива F

n:integer; // Количество элементов массива F

fi,fo:text; // Файловые переменные fi,fo

begin

// Файловой переменной fi назначается файл Ivanov6_1.txt

AssignFile(fi,'Ivanov6_1.txt');

Reset(fi); // Текстовый файл открывается для чтения

Readln(fi,teta,alfa,beta); // Чтение из файла первой строки

Readln(fi,w,e); // Чтение из файла второй строки

Readln(fi,n); // Чтение из файла третьей строки

for i:=1 to n do Read(fi,F[i]); // Чтение из файла четвертой строки

CloseFile(fi); // Закрывается прочитанный файл fi

// Выводим информацию в файл:

// Файловой переменной fo назначается файл Ivanov6_1.out

AssignFile(fo,'Ivanov6_1.out');

Rewrite(fo); // Текстовый файл fo открывается для записи

Writeln(fo,' teta=',teta,' alfa=',alfa,' beta=',beta);

Writeln(fo,' w=',w:12:9,' e=',e:4);

Write(fo,' F=(');

for i:=1 to n do Write(fo,F[i]:3);

Writeln(fo,')');

CloseFile(fo); // Закрывается файл fo,созданный программой

// выводим информацию на экран:

Writeln(' teta=',teta,' alfa=',alfa,' beta=',beta);

Writeln(' w=',w:12:9,' e=',e:4);

Write(' f=(');

for i:=1 to n do Write(F[i]:3);

Writeln(')');

WriteLn('***** Press <ENTER> to finish *****');

Readln; // задержка экрана