21.09.2012, 20:57 | #1 (ссылка) |
Новичок
Регистрация: 31.10.2011
Сообщений: 22
Репутация: 0
|
Помогите написать программу в С++(в консоли) или в Паскале. Очень срочно нужно.
1. Составить программу проверки утверждений для введенной переменной X.
Программа должна вывести утверждения (использовать переключатели): - переменная Х целое число; -переменная Х дробное число; -переменная Х не является числом; -переменная Х является полным квадратом. Пользователь может выбрать любое утверждение и получить ответ об истинности утверждения (true или false). 2. Составить программу по предложенному условию:"Можно ехать на такси со скоростью v1 км/ч и оплатой р1 руб./км либо идти пешком со скоростью v2 км/ч бесплатно. Как с наименьшими затратами преодолеть путь S за время t, если это возможно? Какие будут затраты?" По желанию пользователя (использовать переключатель) пречислить всевозможные случаи преодоления пути S за время t, если это возмжно. 3. Составить программу в результате выполнения которой будет изменяться цвет фона путем выбора одного из нескольких цветов: красного, зеленого или синего. 4. 3. Составить программу в результате выполнения которой будет изменяться цвет фона путем выбора одного или нескольких цветов: красного, зеленого или синего. (+-)таблица тестирования Заранее благодарен за помощ...... |
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. Код:
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. |
Ads | |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
Опции темы | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужно составить программу в паскале плиз помогите | 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 |