Вернуться   Компьютерный форум > Компьютеры > Программы > Программирование
 
 
Опции темы
Старый 21.09.2012, 20:57   #1 (ссылка)
Новичок
 
Регистрация: 31.10.2011
Сообщений: 22
Репутация: 0
Exclamation Помогите написать программу в С++(в консоли) или в Паскале. Очень срочно нужно.

1. Составить программу проверки утверждений для введенной переменной X.
Программа должна вывести утверждения (использовать переключатели):
- переменная Х целое число;
-переменная Х дробное число;
-переменная Х не является числом;
-переменная Х является полным квадратом.
Пользователь может выбрать любое утверждение и получить ответ об истинности утверждения (true или false).

2. Составить программу по предложенному условию:"Можно ехать на такси со скоростью v1 км/ч и оплатой р1 руб./км либо идти пешком со скоростью v2 км/ч бесплатно.
Как с наименьшими затратами преодолеть путь S за время t, если это возможно?
Какие будут затраты?"
По желанию пользователя (использовать переключатель) пречислить всевозможные случаи преодоления пути S за время t, если это возмжно.

3. Составить программу в результате выполнения которой будет изменяться цвет фона путем выбора одного из нескольких цветов: красного, зеленого или синего.

4. 3. Составить программу в результате выполнения которой будет изменяться цвет фона путем выбора одного или нескольких цветов: красного, зеленого или синего.

(+-)таблица тестирования

Заранее благодарен за помощ......
Registr вне форума  
Старый 23.09.2012, 20:12   #2 (ссылка)
Новичок
 
Регистрация: 31.10.2011
Сообщений: 22
Репутация: 0
По умолчанию

Помогите с программой
Registr вне форума  
Старый 27.09.2012, 14:58   #3 (ссылка)
Новичок
 
Регистрация: 21.11.2009
Сообщений: 486
Репутация: 47
По умолчанию

Registr, не очень разбираюсь в Pascal, но можно попробовать, наприер, так:
1.
Код:
Uses crt;
Var
  x: String;
  f: Boolean;
  n: Byte;
  a: real;
  code: Integer;
Begin
     Writeln('Введите переменную X: '); Readln(x);
     Writeln('Выберите вариант:');
     Writeln('1) Переманная X целое число');
     Writeln('2) Переменная X дробное число');
     Writeln('3) Переменная X не является числом');
     Writeln('4) Переменная X является полным квадратом');
     Readln(n);
f:=False;
   Case n of
        1: begin Val(x,a,code); f:=Frac(a)=0; end;
        2: begin Val(x,a,code); f:=Frac(a)<>0; end;
        3: begin Val(x,a,code); f:=code<>0; end;
        4: begin Val(x,a,code); f:=Frac(Sqrt(a))=0; end
   end;
Writeln(f);
Readln
End.
3.
Код:
Uses crt,graph;
Var
   d,r: Integer;
Begin
     d:=Detect;
     Initgraph(d,r,' ');
   Repeat
         Setbkcolor(red);
         Delay(1000);
         Setbkcolor(green);
         Delay(1000);
         Setbkcolor(blue);
         Delay(1000);
   until Keypressed;
End.
sheff-09 вне форума  
Ads
 


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно составить программу в паскале плиз помогите KillOfDeaTH Программирование 2 21.12.2011 15:11
Помогите написать программу на Delphi. Очень срочно нужно. Registr Программирование 0 01.11.2011 17:49
Помогите написать программу на Object Pascal. Очень срочно нужно. Registr Программирование 0 31.10.2011 17:22
помогите пожалуйста написать программу , в паскале mitya Программирование 1 19.05.2011 20:57
Помогите написать программу на Паскале katerunechka Программирование 0 09.03.2011 21:00


Текущее время: 11:09. Часовой пояс GMT +4. Powered by vBulletin® Version 5.8.9
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.