Лабораторна робота № 12 Середовище delphi Файли

Лабораторна робота № 12 Середовище delphi Файли

Мета: Навчитись складати та реалізовувати програми у середовищі delphi.

Завдання до лабораторної роботи:

1. Створити програму, яка буде вводити числа з текстового файлу та знаходити:

- кількість додатніх та від'ємних чисел

- середнє значення

- суми додатніх та від'ємних чисел окремо та разом

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

2. Написати програму, яка буде виводити два випадкових числа та місце для введення відповіді , наприклад суми. Приклад та введене значення відповіді записати у текстовий файл - протокол роботи програми.

Оформити дизайн програми.

3.Продемонструвати роботу програм.

Фрагмент програми для формування випадкового число:

var n:integer;

begin

  system.randomize;

  n:=random (20)-10;

  label1.Caption:=intToStr (n);

end;