1. Ввести с клавиатуры текст и сохранить его в текстовый файл.
Назовите файл:
lab10-1.txt
Выведите текст на экран.
Найдите файл lab10-1.txt на диске и откройте его в Блокноте.
Пример.
const
FILE_NAME = 'lab10-1.txt';
var
f: text;
s: string;
begin
WriteLn('Введите текст: ');
ReadLn(s);
assign(f, FILE_NAME);
rewrite(f);
write(f, s);
close(f);
WriteLn('Текст: ');
WriteLn(s);
WriteLn('записан в файл: ', FILE_NAME);
end.
2. Сохранить данные одномерного массива в файле данных.
Организовать чтение данных из файла.
Назовите файл:
lab10-2.txt
Распечатайте массив.
Просмотрите с помощью Блокнота, что записано в файле lab10-2.txt.
*Объясните, как представлены числа в файле данных.
Пример.
const
FILE_NAME = 'lab10-2.txt';
N = 10;
A = -25;
B = 15;
var
v : array [1..N] of Integer;
fi : file of Integer;
i : Byte;
x : Integer;
begin
Randomize;
for i := 1 to N do begin
v[i] := random(B - A) + A;
end;
Assign(fi, FILE_NAME);
ReWrite(fi);
for i := 1 to N do begin
Write(fi, v[i]);
end;
Close(fi);
WriteLn('Массив: ');
for i := 1 to N do begin
Write(v[i]:5);
end;
WriteLn;
WriteLn('записан в файл: ', FILE_NAME);
WriteLn;
WriteLn('Данные: ');
ReSet(fi);
for i := 1 to N do begin
Read(fi, x);
Write(x: 5);
end;
Close(fi);
WriteLn;
WriteLn('прочитаны из файла: ', FILE_NAME);
end.
3. В блокноте создайте текстовый файл, запишите в него
числа в столбик.
Назовите файл:
lab10-3.txt
Загрузите в массив числа из созданного файла, распечатайте
массив.
4.*В электронных таблицах введите строку из 5 целых чисел,
каждое в отдельной ячейке, сохраните документ в формате CSV.
Назовите файл:
lab10-4.csv
Напишите программу, которая загружает в одномерный массив
числа из созданного файла, распечатайте массив.
5.**В электронных таблицах матрицу целых чисел введите
в две строки и 5 колонок, каждое в отдельной ячейке,
сохраните документ в формате CSV.
Назовите файл:
lab10-5.csv
Напишите программу, которая загружает в двумерный массив
числа из созданного файла, распечатайте массив.