[PASCAL]Программа создания файла, программа обработки файла

[Виколяшка]

****TURBO_PASCAL****

Пожалуйста помогите написать программки!^_^
или какой нибудь из этих пунктов.
Очень надеюсь на вашу помощь

А. Создать файл, содержащий сведения об отправлении поездов дальнего следования с Московского вокзала. Структура записи: номер поезда, станция назначения, время отправления, время в пути, наличие билетов. Количество записей – произвольное.


Б. Написать программу, которая позволяет получить следующую справочную информацию:
- время отправления поездов в город Х во временном интервале от А до В часов,
- наличие билетов на поезд с номером ХХХ.


У меня есть пример написания, но я и по нему пока не смогу написать =\


***ПРИМЕР ВЫПОЛНЕНИЯ***

а) Выполнить на ПЭВМ программу создания файла, содержащего сведения о сдаче студентами сессии. Структура записи содержит поля: индекс группы, фамилию студента, оценки по пяти экзаменам. Количество записей в файле произвольное.
б) Написать программу зачисления на стипендию студентов группы Х. Размер обычной стипендии 80 рублей. Студенту, получившему все пять оценок «5», назначается стипендия, повышенная на 50 %; получившему оценки «4» и «5» - повышенная на 25 %; студенту, получившему хотя бы одну «2», стипендия не назначается. В остальных случаях стипендия обычная.


Пункт А

Program xxxx;
Uses crt;
Type
Zap=record
Index: string[6];
Fam : string[20];
Marker : packed array[1..5] of char
End;
Var
Sessya : file of zap;
K : integer;
Flag : boolean;
X: zap;
Begin
K:=0;
Flag:=true;
Rewrite(sessya);
Repeat
Writeln(‘ введите индекс группы, фамилию и ‘);
Writeln(‘ 5 оценок за экзамены’);
Writeln(‘ для окончания работы введите вместо индекса’);
Writeln(‘ группы символы ######’);
Read(x.index,x.fam,x.marker[1],x.marker[2],x.marker[3],x.marker[4],x.marker[5]);
If x.index<>’######’ then
Begin
K:=k+1;
Write(sessya,x)
End;
Else
Flag:=false
Until flag;
Writeln(‘в файле’ , ‘ записей’);
Assign(sessya,’sessya’);
Reset(sessya);
While not eof(sessya) do
Begin
Read(sessya,x);
Writeln(x.index,x.fam,x.marker[1],x.marker[2],x.marker[3],x.marker[4],x.marker[5]);
End;
Writeln(‘ конец файла’)
End.


Пункт Б

Program xxxx;
Label 2;
Type
Zap=record
Index: string[6];
Fam : string[20];
Marker : array[1..5] of char
End;
Var sessya:file of zap;
Y:zap;
X:string[6];
I,k,k4,k5,n :integer;
S : real;
Begin
Assign (sessya,’sessya’);
Reset(sessya);
Writeln(‘введите индекс группы’);
Readln(x);
Writeln(‘ведомость зачисления на стипендию’);
Writeln(‘студентов группы’,x);
Writeln(‘ п/п Фамилия руб.’);
N:=0;
2: while not eof(sessya) do
Begin
Read(sessya,y);
If y.index=x then
Begin
K4:=0; k5:=0;
For i:=1 to 5 do
Begin
If y.makcer[i]=’2’ then goto 2;
If y.marker[i]=’5’ then k5:=k5+1;
If y.marker[i]=’4’ then k4:=k4+1;
End;
End;
S:=80.0; n:=n+1;
If k5=5 then s:=s+s/2
Else
If (k5+k4)=5 then s:=s+s/4;
End;
Writeln(‘конец файла’)
End.

[sheka]

Помогу. Сделаю сегодня же. 255507394

[Maksim_MSI]

324-782-473 Если актуально

[Barsp]

Если еще актуально, сделаю. Barsp@yandex.ru

[RIO]

Здравствуйте ! Я могу помочь Вам с Вашей проблемой ! Реализую быстро, надежно и недорого ! Обращайтесь в асю 371824579

[MrVenom]

Сделаю легко, дешево, с комментариями, отвечу на вопросы, оплата любым удобным способом =)

[Gapro]

Сделаю. Быстро, качественно и недорого . Оплата любым доступным для вас способом.

Контакты:
ICQ: 452-608-390
e-mail: celov@mail.ru
Или в личку на форуме.

[KantalSoft]

Могу сделать все задания на C#.
Срок 1 день. + комментарии и ответы на все вопросы.
Недорого.