Важная информация
Показано с 1 по 4 из 4

Тема: подскажите пожайлуста, можно ли убрать в этой программке цвета и обязательно вводить

  1. #1 подскажите пожайлуста, можно ли убрать в этой программке цвета и обязательно вводить 
    Новичок
    Регистрация
    24.05.2011
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    и обязательно вводить эти строчки:

    textcolor (yellow);
    Writeln ('Программа формирования отчета по ');
    writeln ('телефонным разговорам.');
    Writeln ('Внимательно следите за ');
    writeln ('указаниями программы!!! ');
    Writeln ('Student work. ');
    writeln ('All Rights Reserved!!! ');
    readln;
    window (1,1,80,25);
    textbackground(10);
    clrscr;
    textcolor(0);
    gotoxy(15,2);
    writeln('Лабораторная работа студента ');
    gotoxy(27,3);
    writeln('Задание :');
    textcolor(4);
    writeln;
    writeln(' На телефонном узле в конце каждого квартала складывается на каждого абонента');
    writeln('ведомость оплаты междугородных телефонных разговоров на протяжении');
    writeln('квартала (3 месяца).');
    writeln(' Написать программу, которая вводит начальные данные, выполняет расчеты ');
    writeln('выводит на экран и в текстовый файл:');
    writeln(' - начальные данные в виде таблицы, где указанные коды городов, с которыми велись');
    writeln(' разговоры, общее время разговора с каждым городом за один месяц, стоимость');
    writeln(' одной минуты разговора (меняется каждый месяц);');
    writeln(' - общая длительность разговоров с каждым городом за квартал;');
    writeln('плата за каждый месяц;');
    writeln('общая плата за 3 месяца;');
    writeln('город с наибльшей платой.');
    gotoxy(27,18);
    textcolor(0);
    writeln('Требование к введению информации');
    textcolor(4);
    writeln(' - начальные данные вводятся из клавиатуры.');
    textcolor(0);
    writeln;
    writeln(' Требование к выведению результатов');
    textcolor(4);
    writeln(' - результат выводятся на экран и в текстовый файл .');
    textcolor(14);
    writeln;
    writeln(' Для продолжения работы программы нажмите ENTER');
    readln;
    clrscr;
    textcolor(0);
    writeln(' Требования к структуре программы ');
    textcolor(4);
    writeln(' Программа должна состоять из следующих частей:');
    writeln(' - выведение заставки с информацией о студенте и задании;');
    writeln(' - введение данных (выполняется в диалоговом режиме);');
    writeln(' - выведение начальных данных и результатов (на один экран).');
    textcolor(0);
    writeln(' Требования к размещению начальных данных внутри программы ');
    textcolor(4);
    writeln(' Начальные данные располагаются в файле, компонентами которого являются записи.');
    writeln('Структура каждой записи и типы ее полей выбираются в зависимости от задания.');
    textcolor(0);
    writeln(' Используемые цвета ');
    textcolor(4);
    writeln(' - черный(0), красный(4), зеленый(10), желтый(14)');
    textcolor(14);
    gotoxy(18,24);





    Program telefon_price;
    uses crt;
    type
    telef=record
    kod:integer;
    tpm1,tpm2,tpm3,price1,price2,price3:integer;
    end;
    telef1=record
    kod,tpm,ob:integer;
    pr1,pr2,pr3:integer;
    end;
    var
    a:file of telef;
    tel:telef;
    res:array[1..20] of telef1;
    n,i,j,s,aa,max:integer;
    f1:text;
    Name:string;
    begin
    window (18,7,55,18);
    textbackground (blue);
    clrscr;
    textcolor (yellow);
    Writeln ('Программа формирования отчета по ');
    writeln ('телефонным разговорам.');
    Writeln ('Внимательно следите за ');
    writeln ('указаниями программы!!! ');
    Writeln ('Student work. ');
    writeln ('All Rights Reserved!!! ');
    readln;
    window (1,1,80,25);
    textbackground(10);
    clrscr;
    textcolor(0);
    gotoxy(15,2);
    writeln('Лабораторная работа студента ');
    gotoxy(27,3);
    writeln('Задание :');
    textcolor(4);
    writeln;
    writeln(' На телефонном узле в конце каждого квартала складывается на каждого абонента');
    writeln('ведомость оплаты междугородных телефонных разговоров на протяжении');
    writeln('квартала (3 месяца).');
    writeln(' Написать программу, которая вводит начальные данные, выполняет расчеты ');
    writeln('выводит на экран и в текстовый файл:');
    writeln(' - начальные данные в виде таблицы, где указанные коды городов, с которыми велись');
    writeln(' разговоры, общее время разговора с каждым городом за один месяц, стоимость');
    writeln(' одной минуты разговора (меняется каждый месяц);');
    writeln(' - общая длительность разговоров с каждым городом за квартал;');
    writeln('плата за каждый месяц;');
    writeln('общая плата за 3 месяца;');
    writeln('город с наибльшей платой.');
    gotoxy(27,18);
    textcolor(0);
    writeln('Требование к введению информации');
    textcolor(4);
    writeln(' - начальные данные вводятся из клавиатуры.');
    textcolor(0);
    writeln;
    writeln(' Требование к выведению результатов');
    textcolor(4);
    writeln(' - результат выводятся на экран и в текстовый файл .');
    textcolor(14);
    writeln;
    writeln(' Для продолжения работы программы нажмите ENTER');
    readln;
    clrscr;
    textcolor(0);
    writeln(' Требования к структуре программы ');
    textcolor(4);
    writeln(' Программа должна состоять из следующих частей:');
    writeln(' - выведение заставки с информацией о студенте и задании;');
    writeln(' - введение данных (выполняется в диалоговом режиме);');
    writeln(' - выведение начальных данных и результатов (на один экран).');
    textcolor(0);
    writeln(' Требования к размещению начальных данных внутри программы ');
    textcolor(4);
    writeln(' Начальные данные располагаются в файле, компонентами которого являются записи.');
    writeln('Структура каждой записи и типы ее полей выбираются в зависимости от задания.');
    textcolor(0);
    writeln(' Используемые цвета ');
    textcolor(4);
    writeln(' - черный(0), красный(4), зеленый(10), желтый(14)');
    textcolor(14);
    gotoxy(18,24);
    writeln('Для продолжения работы программы нажмите ENTER');
    readln;
    clrscr;
    assign(a,'telef.tur');
    assign(f1,'price.txt');
    rewrite(a);
    rewrite(f1);
    writeln ('Введите Ф.И.О. клиента');
    readln (Name);
    writeln (f1,'Прайс за пользование телефоном клиента: ');
    write (f1,Name);
    writeln ('Введите количество городов 20< ');
    readln (n);
    for i:=1 to n do
    begin
    write('Введите код ',i,'-го города: ');
    readln(tel.kod);
    write('Введите общее время разговоров с городом ',tel.kod,' за 1-й месяц: ');
    readln(tel.tpm1);
    write('Введите стоимость одной минуты разговоров с городом ',tel.kod,' в 1-ом месяце: ');
    readln(tel.price1);
    write('Введите общее время разговоров с городом ',tel.kod,' за 2-й месяц: ');
    readln(tel.tpm2);
    write('Введите стоимость одной минуты разговоров с городом ',tel.kod,' в 2-ом месяце:');
    readln(tel.price2);
    write('Введите общее время разговоров с городом ',tel.kod,' за 3-й месяц: ');
    readln(tel.tpm3);
    write('Введите стоимость одной минуты разговоров с городом ',tel.kod,' в 3-ом месяцi: ');
    readln(tel.price3);
    write(a,tel);
    end;
    close(a);
    reset(a);
    s:=1;
    while not eof(a) do
    begin
    read(a,tel);
    res[s].kod:=tel.kod;
    res[s].tpm:=tel.tpm1+tel.tpm2+tel.tpm3;
    res[s].pr1:=tel.tpm1*tel.price1;
    res[s].pr2:=tel.tpm2*tel.price2;
    res[s].pr3:=tel.tpm3*tel.price3;
    res[s].ob:=res[s].pr1+res[s].pr2+res[s].pr3;
    s:=s+1;
    end;

    close(a);
    reset(a);
    clrscr;
    writeln ('|-------|------------|------------|------------|------------|------------|------------|');
    writeln ('| Код г.|Общ.в.1-й г.|За м.1-й г.|Общ.в.2-й г.|За мин.2-й г.|Общ.в.3-й г.|За мин.3-й г.|');
    writeln ('|-------|------------|------------|------------|------------|------------|------------|');
    writeln (f1,'|-------|------------|------------|------------|------------|------------|------------|');
    writeln (f1,'| Код г.|Общ.в.1-й г.|За мин.1-й г.|Общ.в.2-й г.|За мин.2-й г.|Общ.в.3-й г.|За мин.3-й г.|');
    writeln (f1,'|-------|------------|------------|------------|------------|------------|------------|');
    while not eof(a) do
    begin
    read(a,tel);
    writeln ('|',tel.kod,'|',tel.tpm1,'|',tel.price1,'|',tel.tpm2,'|',tel.price2,'|',tel.tpm3,'|',tel.price3,'|');
    writeln (f1,'|',tel.kod,'|',tel.tpm1,'|',tel.price1,'|',tel.tpm2,'|',tel.price2,'|',tel.tpm3,'|',tel.price3,'|');
    end;
    textcolor(14);
    writeln('Для продолжения работы программы нажмите любую клавишу');
    readln;
    clrscr;
    writeln('Код города, Общее время разговора за квартал, Плата за месяц, Общая плата');
    writeln ('|-------|------------|--------------|--------------|--------------|------------|');
    writeln ('| Код г.|Общ.в.р. кв.|Плата за мес.1|Плата за мес.2|Плата за мес.3| Общ.плата |');
    writeln ('|-------|------------|--------------|--------------|--------------|------------|');
    writeln(f1,'Код города, Общее время разговора за квартал, Плата за месяц, Общая плата');
    writeln (f1,'|-------|------------|--------------|--------------|--------------|------------|');
    writeln (f1,'| Код г.|Общ.в.р. кв.|Плата за мес.1|Плата за мес.2|Плата за мес.3| Общ.плата |');
    writeln (f1,'|-------|------------|--------------|--------------|--------------|------------|');
    for i:=1 to n do
    begin
    writeln ('|',res[i].kod,'|',res[i].tpm,'|',res[i].pr1,'|',res[i].pr2,'|',res[i].pr3,'|',res[i].ob,'|');
    writeln (f1,'|',res[i].kod,'|',res[i].tpm,'|',res[i].pr1,'|',res[i].pr2,'|',res[i].pr3,'|',res[i].ob,'|');
    end;
    max:=res[1].ob;
    for i:=1 to n-1 do
    begin
    if res[i+1].ob>max then
    begin
    max:=res[i+1].ob;
    j:=i+1;
    end;
    end;
    writeln('Город с наибольшей платой: ',res[j].kod);
    writeln(f1,'Город с наибольшей платой: ',res[j].kod);
    writeln('Для прекращения работы программы нажмите любую клавишу');
    sound (220);
    delay (210);
    nosound;
    readln;
    close (a);
    close (f1);
    end.
    Последний раз редактировалось ~DreaM~; 30.05.2011 в 11:16.
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Цвет делают команды textcolor. Уберите их всех, и всё будет одним цветом
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  3. #3  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Синие строчки вводить необязательно, это инструкция
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  4. #4  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    writeln(' Программа должна состоять из следующих частей:');
    writeln(' - выведение заставки с информацией о студенте и задании;');
    Это кусочек вашего задания. Тут сказано, что нужно вывести заставку с информацией о студенте и задании. То, что вы отметили синим цветом, вполне является максимально подробной информацией о вашем задании. Мало того, весь он уже присутствует в программе (той части, которая выведена черным цветом) - так что больше, в принципе, добавлять в нее нечего, конечно если она работает правильно
    Господи, ну и задания. Не понимаю, зачем насиловать студентов, заставляя выводить WriteLn'ами УСЛОВИЕ.
    Дружба-магия-радость!
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 14
    Последнее сообщение: 11.02.2014, 01:16
  2. Подскажите пожалуйста.
    от Алекс1977 в разделе Общие вопросы про железо
    Ответов: 0
    Последнее сообщение: 10.01.2013, 21:20
  3. Подскажите сайт хорошего травника
    от Duccusbaciecy в разделе Флейм
    Ответов: 1
    Последнее сообщение: 20.11.2012, 01:51
  4. Ответов: 6
    Последнее сообщение: 19.03.2012, 01:45
  5. Ответов: 4
    Последнее сообщение: 19.12.2011, 12:15
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •