23.06.2007, 17:41
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
Хотя, если у тебя вопросы типа ДА/НЕТ, то там проще
|
|
|
23.06.2007, 17:45
|
|
Познающий
Регистрация: 14.04.2007
Сообщений: 46
Провел на форуме:
842554
Репутация:
13
|
|
Сообщение от Joker-jar
Хотя, если у тебя вопросы типа ДА/НЕТ, то там проще
Ну для начала... я хотел начать с ДА/НЕТ.
|
|
|
|
23.06.2007, 18:01
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
Fire3d, написал небольшой примерчик:
Код:
const
Tqs: array[1..5] of string = ('Vopros 1','Vopros 2','Vopros 3','Vopros 4','Vopros 5');
Tans: array[1..5] of boolean = (true,true,false,true,false);
var
s: string;
i,count: integer;
begin
writeln('Otvet: y or n');
for i := 1 to 5 do
begin
writeln(Tqs[i]);
readln(s);
if ((s = 'y')and(Tans[i]))or((s = 'n')and(not Tans[i])) then
count := count + 1;
end;
writeln('Right answers: ',count);
readln;
end.
|
|
|
|
23.06.2007, 18:17
|
|
Познающий
Регистрация: 14.04.2007
Сообщений: 46
Провел на форуме:
842554
Репутация:
13
|
|
Сообщение от Joker-jar
Fire3d, написал небольшой примерчик:
Код:
const
Tqs: array[1..5] of string = ('Vopros 1','Vopros 2','Vopros 3','Vopros 4','Vopros 5');
Tans: array[1..5] of boolean = (true,true,false,true,false);
var
s: string;
i,count: integer;
begin
writeln('Otvet: y or n');
for i := 1 to 5 do
begin
writeln(Tqs[i]);
readln(s);
if ((s = 'y')and(Tans[i]))or((s = 'n')and(not Tans[i])) then
count := count + 1;
end;
writeln('Right answers: ',count);
readln;
end.
Спасибо когда приду дмоой сразу научну разбирать твой код. А тут вопросы можно задавать по коду ??? Просто некторый моменты мне не понятны....
|
|
|
|
23.06.2007, 18:27
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
md5f1h, с нуля вряд ли кто-то будет делать. По отдельным вопросам обращайся, помогут.
|
|
|
|
24.06.2007, 00:06
|
|
Участник форума
Регистрация: 11.07.2006
Сообщений: 125
Провел на форуме:
413927
Репутация:
71
|
|
2 Fire3d вот два теста может помогут писал очень давно но если че стукни в асю http://dobropozalovat.ifolder.ru/2463428
|
|
|
|
09.05.2008, 23:31
|
|
Познающий
Регистрация: 04.02.2007
Сообщений: 31
Провел на форуме:
126186
Репутация:
5
|
|
Дано:
Корень из 2 + под корнем еще прибовляется корень из 2 + сного корень из 2х приболяется и так n раз задающаяся переменной пользователя... буду оч. благодарен если будет решение, сам я ее не могу доконца решить...
√(2+√(2+√(2+√(2+...+√(2+√2) ) ) ) )
|
|
|
|
26.06.2007, 20:03
|
|
Познающий
Регистрация: 14.04.2007
Сообщений: 46
Провел на форуме:
842554
Репутация:
13
|
|
Возвращаюсь к опросам....
uses crt;
procedure variant(c,x,y:integer;s:string);
begin
textcolor(c); gotoxy(x,y); write(s);
end;
procedure vopros(c,x,y:integer;s:string);
begin
textcolor(c); gotoxy(x,y); write(s);
end;
var otvet,ball,summa:integer;
i:byte;
begin
clrscr;
ball:=0;
vopros(2,30,1,'B kakom weke no9BuJIc9 komp. ?');
variant(14,2,1,'1)‚ 21 weke.');
variant(14,2,2,'2)ў 19 weke. ');
variant(14,2,3,'>'); read(otvet);
clrscr;
vopros(2,30,1,'Antichat-samu ly4shi ?');
variant(14,2,1,'1)Da!');
variant(14,2,2,'2)Hea!');
variant(14,2,3,'>');readln(otvet);
if otvet=1 then ball:=ball+5;
summa:=ball;
if otvet=2 then ball:=ball-5;
writeLn('Vash ball=',summa);
readkey;
end.
Хм...если сделать рандом.... в моем случие при рандоме окажется vopros(2,30,1,'Antichat-samu ly4shi ?'); 1)Нет а 2)Да....
и бал в минус пойдет а ответ будет верный как выйти из ситуции....?
Последний раз редактировалось Fire3d; 26.06.2007 в 20:23..
|
|
|
|
09.12.2008, 20:44
|
|
Новичок
Регистрация: 09.12.2008
Сообщений: 3
Провел на форуме:
5714
Репутация:
0
|
|
Господа, выручайте. С меня требуют программу о распределении ресурсов, методом динамического программирования.
В задаче дана функция дохода, кол-во ресурсов и кол-во предприятий. И все это решается методом динамического программирования. Вот ссылка на фаил с подробным описание темы по которой нужно делать. Вот файл с пояснением. Спасибо всем заранее. Жду помощи.
P.S. C++, C#, Delphi...
Последний раз редактировалось Airoman; 09.12.2008 в 22:34..
|
|
|
|
30.06.2007, 12:11
|
|
Познавший АНТИЧАТ
Регистрация: 16.04.2006
Сообщений: 1,488
Провел на форуме:
2209675
Репутация:
537
|
|
Имеет место быть следующее задание:
Вариант задания реализовать в виде функции, использующей для работы со строкой только указатели и операции вида *p++, p++ и т.д..
" Быстрая" сортировка (разделением) с использованием указателей
на правую и левую границы массива, текущих указателей на правый и левый
элемент и операции сравнения указателей.
------
я не знаю с чего начать.
объясните пожалуйста попроще что значит " Быстрая" сортировка (разделением),
а я уже на основе этого сам всё сделаю.
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
