19.06.2011, 20:31 | #1 (permalink) |
Новичок
Регистрация: 19.06.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл
Создать типизированный файл stud.dan, который содержит информацию: номер группы; фамилию студента, средний балл; и вывести этот файл на экран. Вывод содержимого файла оформить в виде процедуры. Вот похожее задание с кодом: Создать типизированный файл work.dan, который содержит информацию: номер цеха; фамилию, возраст и заработную плату персонала; и вывести этот файл на экран. Вывод содержимого файла оформим в виде процедуры. Program TF; Uses WinCrt; Type Work=record ceh:byte; name:string[20]; pol:char; zar:real; vik:byte end; Var z:work; f:file of work; s:char; {Процедура вывода базы} procedure vivod; begin reset(f); {открываем файл для чтения} writeln(' Список работающих'); while not (eof(f)) do {вывод на экран содержимого файла} begin read(f,z); write(z.ceh); gotoxy(10,wherey); write(z.name); gotoxy(30,wherey); write(z.vik); gotoxy(35,wherey); write(z.zar:3:2); gotoxy(45,wherey); write(z.pol); writeln; end; end; {Основная программа} Begin Writeln(' СОЗДАНИЕ ФАЙЛА'); assign(f,'work.dan'); rewrite(f); {создаём файл} s:='д' ; while s='д' do {заполнение файла будет до тех пор, пока s='д'} begin writeln('Номер цеха'); readln(z.ceh); writeln('Фамилия сотрудника '); readln(z.name); writeln('Возраст сотрудника '); readln(z.vik); writeln('Заработная плата '); readln(z.zar); writeln('Пол '); readln(z.pol); write(f,z); writeln('Продолжить заполнение файла? (д/н)'); readln(s); end; clrscr; {Вывод на экран содержимого файла} vivod; End. Заранее всем спасибо. |
19.06.2011, 20:31 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я уверен, что данный список должен вам помочь Помогите составить программу на турбо паскаль Расчет производной на языке турбо паскаль Турбо Паскаль |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|