Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 22.09.2009, 21:15   #1
Виколяшка
Новичок
Джуниор
 
Регистрация: 22.09.2009
Сообщений: 1
По умолчанию [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.
Виколяшка вне форума Ответить с цитированием
Старый 22.09.2009, 21:24   #2
sheka
Босс
Форумчанин
 
Аватар для sheka
 
Регистрация: 03.06.2009
Сообщений: 125
По умолчанию

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

Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются.
Ася 255507394. Отзывы здесь.

Последний раз редактировалось sheka; 22.09.2009 в 21:33.
sheka вне форума Ответить с цитированием
Старый 22.09.2009, 21:32   #3
Maksim_MSI
 
Регистрация: 24.04.2009
Сообщений: 2
Хорошо

324-782-473 Если актуально
Создание сайтов, программирвоание для интернет ресурсов, написание скриптов
ICQ: 324-782-473
E-Mail: ms-ivanoff@ya.ru
Maksim_MSI вне форума Ответить с цитированием
Старый 22.09.2009, 21:49   #4
Barsp
Новичок
Джуниор
 
Регистрация: 25.07.2009
Сообщений: 2
По умолчанию

Если еще актуально, сделаю. Barsp@yandex.ru
Barsp вне форума Ответить с цитированием
Старый 23.09.2009, 01:33   #5
RIO
Форумчанин
 
Аватар для RIO
 
Регистрация: 15.12.2007
Сообщений: 422
По умолчанию

Здравствуйте ! Я могу помочь Вам с Вашей проблемой ! Реализую быстро, надежно и недорого ! Обращайтесь в асю 371824579
RIO вне форума Ответить с цитированием
Старый 23.09.2009, 10:53   #6
MrVenom
 
Регистрация: 05.10.2008
Сообщений: 3
По умолчанию

Сделаю легко, дешево, с комментариями, отвечу на вопросы, оплата любым удобным способом =)
Пишу проги. Не дорого. В асю: 27ноль9два2 или по мылу: MrVenom87[гав-гав]yandex.ru
MrVenom вне форума Ответить с цитированием
Старый 23.09.2009, 16:43   #7
Gapro
Форумчанин
 
Регистрация: 30.07.2009
Сообщений: 256
По умолчанию

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

Контакты:
ICQ: 452-608-390
e-mail: celov@mail.ru
Или в личку на форуме.
Gapro вне форума Ответить с цитированием
Старый 23.09.2009, 17:38   #8
KantalSoft
Новичок
Джуниор
 
Регистрация: 30.08.2009
Сообщений: 0
По умолчанию

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа создания файла, программа обработки файла [PASCAL] Виколяшка Помощь студентам 1 22.09.2009 22:56
Программа печати текстового файла Maximauzer Паскаль, Turbo Pascal, PascalABC.NET 4 23.11.2008 03:00
Программа сортировки файла microdrum Помощь студентам 0 05.06.2008 00:57
Программа по взятию инфромации из внешнего файла Stelix Помощь студентам 2 18.02.2008 02:13


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS