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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.10.2011, 20:35   #1
microvirus
Новичок
Джуниор
 
Регистрация: 08.10.2011
Сообщений: 2
По умолчанию Звонки по выходным

Сформировать запись "TALK", содержащую сведения о стоимости разговоров по телефону с учетом 20% скидки,предоставляемой по субботам и воскресеньям с 21.00 до 6.00. Используя сформированную запись,вывести на экран и записать в файл распечатку разговоров за неделю,содержащую информацию о дне недели,времени звонка,стоимости разговора,сумме скидки(если она есть) и итоговой стоимости телефонного разговора.Определить количество звонков,на которые были предоставленны скидки.


не получается настроить звонки по выходным

вот мои наработки

Код:
uses crt;
     type
     Talk = record
     day : string;
     h,m : integer;
     cena : longint;
     skidka :integer;
     stoimost : integer;
     end;


var
f:text;
a:array[1..25] of Talk;
i,n,l,k:integer;


procedure menu; forward;

procedure zapis;
begin
clrscr;
assign(f,'C:\marina.txt');
rewrite(f);
begin
clrscr;
writeln('Kolichestvo razgovorov n:=? ');
readln(n);
for i:=1 to n do
  begin
  with a[i] do
    begin
    clrscr;
    write('Day: ');readln(day);writeln(f,day);
    write('Vremi ');write('Chas : ');readln(h);writeln(f,h);
    write('Minut : ');readln(m);writeln(f,m);
    write('Cena: ');readln(cena);writeln(f,cena);
    write('Skidka: ');readln(skidka);writeln(f,skidka);
    stoimost:=cena-skidka; writeln(f,stoimost);
  end;
end;
close(f);
readkey;
menu;
end;
end;

procedure tabl;
begin
writeln('=====================================================');
writeln('|     Day       | Vremia | Cena | Skidka | Stoimost |');
writeln('=====================================================');
end;


procedure result;
begin
clrscr;
tabl;
for i:=1 to n do
    begin
    with a[i] do
    begin
    write('| ',day:11,'   |');
    write(h:3,':',m:2,'  | ');
    write(cena:4,' | ');
    write(skidka:4,'   | ');
    write(stoimost:4,'     |');
    writeln;
end;
end;
readkey;
menu;
end;


procedure menu;
begin
textbackground(black);
textcolor(white);
clrscr;
writeln('                            Menu');
writeln;
writeln('                 1.Vvod ishodnih dannih');
writeln('                   2.Vivod tablici dannih');
writeln('                    3.Kolichestvo zvonkov po vihodnim');
writeln('                       4.Zvonki so skidkoi');
writeln('                          6.Vihod');
readln(l);
case l of
1:zapis;
2:result;
{3:raspechatka;           1
4:Po vihodnim;
5:so skidkoi;
6:vihod; }
end;
end;

Begin
menu;
end.
microvirus вне форума Ответить с цитированием
Старый 22.10.2011, 20:45   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Во-первых: f:text;
А может лучше f:file of talk;?

Во-вторых:
Цитата:
day : string;
Насколько я помню в паскале есть тип даты и времени (Datetime) - почему не использовать его?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 23.10.2011, 12:41   #3
microvirus
Новичок
Джуниор
 
Регистрация: 08.10.2011
Сообщений: 2
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Во-первых: f:text;
А может лучше f:file of talk;?

Во-вторых:
Насколько я помню в паскале есть тип даты и времени (Datetime) - почему не использовать его?
Просто нужно ввести название дней Понедельник, Вторник и т.д., но можно по вашему попробовать
microvirus вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как совершать звонки одним нажатием на вызов.РАБОТУ ОПЛАЧУ! Эдуард Марков Microsoft Office Access 0 01.12.2010 01:40
бесплатные звонки wanek Софт 5 26.11.2010 20:29
Звонки с мобильного из Excel Mobilux Microsoft Office Excel 25 23.01.2010 16:31