Тема. Розробка власних лінійних алгоритмів та їх реалізація і тестування у середовищі програмування з використанням текстових файлів

Мета. Навчитися реалізовувати мовою програмування лінійні обчислювальні алгоритми для роботи з числовими та рядковими даними, вхідні дані для яких зчитуються з текстових файлів, а результати записуються до текстових файлів також.

Завдання

Дано текстовий файл, до якого в першому рядку записано курс обміну валюти, а в наступних рядках вказано п’ять сум у гривнях. Необхідно створити новий файл, до якого записати п’ять сум у валюті, які можна купити за дані гроші.

Приклад вхідного та вихідного файлів

Розв'язання

У обробнику клацання кнопки додаємо код:

procedure TForm1. Button1Click(Sender: TObject);
var sr,f2:textfile;
    s1,s2,s3,s4,s5:real;
    kurs:real;
begin
    AssignFile(sr, 'pr_5_2_in. txt');
    AssignFile(sw,' pr_5_2_out. txt');
    reset(sr);
    rewrite(sw);
    readln(sr,kurs);
    readln(sr,s1);
    readln(sr,s2);
    readln(sr,s3);
    readln(sr,s4);
    readln(sr,s5);
    s1 := s1 / kurs;
    s2 := s2 / kurs;
    s3 := s3 / kurs;
    s4 := s4 / kurs;
    s5 := s5 / kurs;
    writeln(sw,s1: 6:2);
    writeln(sw,s2: 6:2);
    writeln(sw,s3: 6:2);
    writeln(sw,s4: 6:2);
    writeln(sw,s5: 6:2);
    closefile(sr);
    closefile(sw);
end;

Додаткове завданя

Додайте до форми два невізуальні компоннти: OpenDialog та SaveDialog.

Реалізуйте можливість відкриття вхідного файлу та збереження вихідного використовуючи можливості файлових операцій операційної системи.

Для роботи з цими компонентами можна використати наступні команди: 

OpenDialog1. Execute;

AssignFile(f1,OpenDialog1. FileName);