04.12.2011, 21:37 | #1 (permalink) |
Новичок
Регистрация: 04.12.2011
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль, типизированные файлы, помогите доделать
Необходимо использовать меню. Пожалуйста, кому не жалко времени, напишите код до конца. Код:
uses crt; type studlib=record FIO:string; Birth_Date:string; Course:integer; Year: word; Marks:Array [1..3] of integer; Mmark: Real; end; var stud: Array [1..10] of studlib; i,N: integer; Procedure Out_Date (std: Studlib); var j: integer; begin with std do begin write (FIO); FOR J:=Length (FIO)+ 1 TO 30 DO WRITE (''); WRITE (Birth_Date); write (Course:3); write (Year:5); for j:= 1 to 3 do write (Marks [j]:4); writeln (Mmark:7:2); end; end; BEGIN clrscr; N:=0; writeln ('Vvеdite dannie o studentah'); repeat Inc(N); WITH stud[N] do begin write ('FIO:'); readln(FIO); WRITE ('Birth Date (dd.mm.yyyy.):'); readln(Birth_Date); write('Course'); write('Year of entry:'); readln(Year); Mmark:=0; for i:=1 to 3 do begin write('Mark',i,'='); readln(Marks); Mmark:=Mmark+Marks/3; end; end; clrscr; writeln ('Enter-prodoljiti, ESC-vyiti'); until (readkey=#27) or (N=100); clrscr; writeln ('Stipendiaty:'); for i:=1 to N do if stud. Mmark>=7.0 then Out_Date(stud); readkey; END. |
04.12.2011, 21:37 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Чтобы вы не тратили время на поиск, отправлю вам аналогичные топики Помогите, пожалуйста, доделать программу на Си Помогите доделать задание на массив Доделать код в графике турбо паскаль Помогите доделать в турбо паскале 7.0 |
04.12.2011, 22:08 | #2 (permalink) |
Новичок
Регистрация: 04.12.2011
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вот какая-то подсказка как сделать, только не понимаю как. Знатоки, вся надежда на вас.
type studlib=record FIO:string; Birth_Date:string; Course:integer; Year: word; Marks:Array [1..3] of integer; Mmark: Real; end; var i: integer; studrec : studlib; {запись} StudFile: file of studlib; {сам файл} begin Fillchar(StudRec,Sizeof(StudRec),0); {зачищаем от мусора} Assign(StudFile, 'StudFile.dat'); {объявляем файл } Rewrite(StudFile); {создаем или открываем Reset файл} for i:=1 to 10 do {и чего нибудь пишем в него....} begin StudRec.Course := i; Write(StudFile, StudRec); end; Close(StudFile); {не забываем закрыть} end. {для того чтобы прочитать или записать нужную запись} {не забываем позиционирование на нее Seek(StudFile, MyRecNo)} |
04.12.2011, 22:27 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да... ведь прошу, как людей: НЕ КЛОНИРУЙТЕ ТЕМЫ И ТОПИКИ Настоятельно рекомендую ознакомиться! - нет, всё мимо. Да ну вас!
|
04.12.2011, 22:37 | #4 (permalink) |
Новичок
Регистрация: 04.12.2011
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Очень прошу извинить.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|