Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.05.2010, 18:51   #1
SashOK1991
Пользователь
 
Регистрация: 30.05.2010
Сообщений: 10
По умолчанию Написать программу которая создаэт текстовый файл даных.

Помогите пожалуйста довести до конца.

Написать программу которая создаэт текстовый файл даных.

В файле записано: день недели, число пар, общая продолжительность занятий (в расчете на 1 пару 1 ч. 20 мин и 20 мин. Между парами). Посчитать общее количество пар и продолжительность занятий в неделю и вывести названия дней недели, которые имеют одинаковое количество пар.
SashOK1991 вне форума Ответить с цитированием
Старый 31.05.2010, 18:54   #2
SashOK1991
Пользователь
 
Регистрация: 30.05.2010
Сообщений: 10
По умолчанию

Я пробовал вот так:

uses WinCrt;
var ft:text;
s,g,c,d,p:string;
begin
Writeln('Ukagit shlah kudu zberegtu file i yogo name= ');
Readln(s);
Assign(ft,s);
Rewrite(ft);
repeat
Write('den tu*nya');
Readln(g);
Write('kilkist par');
readln(c);
Write('truvalist zanyat');
readln(d);
Write(ft,s,', ',g,', ',c,', ',d,' ',p);
Writeln('Prodovgutu zapusy chu stvorutu file i zberegtu zapusy v njomy? (Y/N)');
until readkey in ['N','n'];
Close(ft);

но что то не получается довести до конца...(((
SashOK1991 вне форума Ответить с цитированием
Старый 31.05.2010, 23:48   #3
SashOK1991
Пользователь
 
Регистрация: 30.05.2010
Сообщений: 10
Радость

Помогите. Это последняя моя лабораторная работа по Паскалю. Буду благодарен. =)
SashOK1991 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать программу, которая проверяет формулы на эквивалентность oksana baybuza Общие вопросы C/C++ 3 18.02.2010 19:38
как написать программу редактирующую текстовый файл? rust-02 Общие вопросы Delphi 9 13.11.2009 22:07
Требуется написать программу которая переводит файл из одного вида в другой sarudan Помощь студентам 1 11.09.2008 16:17
написать программу которая строила графики функций GeSerKo Помощь студентам 1 05.09.2008 21:03
Пытаюсь написать прогу которая перехватывает нажатия клавиш клавиатуры и записует в текстовый файл, но evg_reg35 Общие вопросы Delphi 42 05.04.2008 13:44