Практична робота № 5.2

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

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

Завдання

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

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

pr_5_2_in.txt	pr_5_2_out.txt
8.01 345.15 45 12.56 1000 120.45	8.01 345.15 4512.56 1000 120.45

Розв'язання

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

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

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

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

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

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

OpenDialog1. Execute;

AssignFile(f1,OpenDialog1. FileName);