|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
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 |
Босс
Форумчанин
Регистрация: 03.06.2009
Сообщений: 125
|
Помогу. Сделаю сегодня же. 255507394
Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются. Ася 255507394. Отзывы здесь. Последний раз редактировалось sheka; 22.09.2009 в 21:33. |
22.09.2009, 21:32 | #3 |
Регистрация: 24.04.2009
Сообщений: 2
|
324-782-473 Если актуально
Создание сайтов, программирвоание для интернет ресурсов, написание скриптов
ICQ: 324-782-473 E-Mail: ms-ivanoff@ya.ru |
22.09.2009, 21:49 | #4 |
Новичок
Джуниор
Регистрация: 25.07.2009
Сообщений: 2
|
Если еще актуально, сделаю. Barsp@yandex.ru
|
23.09.2009, 01:33 | #5 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 422
|
Здравствуйте ! Я могу помочь Вам с Вашей проблемой ! Реализую быстро, надежно и недорого ! Обращайтесь в асю 371824579
|
23.09.2009, 10:53 | #6 |
Регистрация: 05.10.2008
Сообщений: 3
|
Сделаю легко, дешево, с комментариями, отвечу на вопросы, оплата любым удобным способом =)
Пишу проги. Не дорого. В асю: 27ноль9два2 или по мылу: MrVenom87[гав-гав]yandex.ru
|
23.09.2009, 16:43 | #7 |
Форумчанин
Регистрация: 30.07.2009
Сообщений: 256
|
Сделаю. Быстро, качественно и недорого . Оплата любым доступным для вас способом.
Контакты: ICQ: 452-608-390 e-mail: celov@mail.ru Или в личку на форуме. |
23.09.2009, 17:38 | #8 |
Новичок
Джуниор
Регистрация: 30.08.2009
Сообщений: 0
|
Могу сделать все задания на C#.
Срок 1 день. + комментарии и ответы на все вопросы. Недорого. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа создания файла, программа обработки файла [PASCAL] | Виколяшка | Помощь студентам | 1 | 22.09.2009 22:56 |
Программа печати текстового файла | Maximauzer | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 23.11.2008 02:00 |
Программа сортировки файла | microdrum | Помощь студентам | 0 | 05.06.2008 00:57 |
Программа по взятию инфромации из внешнего файла | Stelix | Помощь студентам | 2 | 18.02.2008 01:13 |