Главная | Регистрация | Вход | RSSВторник, 17.10.2017, 12:47





[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Форум для учащихся » Информатика » Работа с текстовыми файлами
Работа с текстовыми файлами
AdminДата: Вторник, 14.10.2014, 19:34 | Сообщение # 1
Генерал-лейтенант
Группа: Администраторы
Сообщений: 523
Репутация: 0
Статус: Online
С двух файлов считать фамилии и оценки. Вывести их на экран

var   f1,f : text;
        st :array [1..5] of string;         
        oc:array [1..5] of integer;
        i: integer;
begin
    assign   (f1, 'file1.txt'); {связать с файлом file1.txt  файловую переменную f1  }
    reset (f1); { открыть файл для чтения }
    assign   (f, 'file.txt'); {связать с файлом file.txt  файловую переменную f }
    reset (f); { открыть файл для чтения }
for i:=1 to 5 do
begin
readln (f1, st);    {читаем строку из файла f1 }
write(st,' ');         { выводим на экран }
read(f, oc);    {читаем цифру из файла f }
writeln(oc
);     { выводим на экран }
end;
close (f1); { закрыть файл f1  для чтения}
close (f); { закрыть файл f для чтения}
end .
 
Форум » Форум для учащихся » Информатика » Работа с текстовыми файлами
Страница 1 из 11
Поиск:


Copyright MyCorp © 2017

Бесплатный хостинг uCozЯндекс.Метрика