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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 22.09.2009, 21:15   #1
Виколяшка
Новичок
 
Аватар для Виколяшка
 
Регистрация: 22.09.2009
Сообщений: 1
Репутация: 10

icq: 244851351
По умолчанию [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
Репутация: 17

icq: 255507394
По умолчанию

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

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

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

icq: 324782473
Хорошо

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
Репутация: 10
По умолчанию

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

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

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

icq: 452-608-390
По умолчанию

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

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход

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


13:48.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.