var x:array[1..3] of integer;
k,i:integer;
begin
for i:=1 to 3 do read(x);
k:=1;
case x[1]=x[2] of
true:k:=3;
false:if x[1]=x[3] then k:=2
end;
writeln(k)
end.
(Pascal)Массивы!
ЭТО ОЧЕНЬ СРОЧНО!!! ПОМОГИТЕ, ПОЖАЛУЙСТА!!!
Я ПРОШУ!!! Я не пойму вообще эту задачу! Мы проходим массивы, препод дал эту задачу!
Задача: Даны целых 3 числа, одно из которых отлично от 2 других, равных между собой.
Определите порядковый номер числа, оличного от 2 остальных.
ПОМОГИТЕ!!!
Я ПРОШУ!!! Я не пойму вообще эту задачу! Мы проходим массивы, препод дал эту задачу!
Задача: Даны целых 3 числа, одно из которых отлично от 2 других, равных между собой.
Определите порядковый номер числа, оличного от 2 остальных.
ПОМОГИТЕ!!!
Dim A(3)
A(1) = 5
A(2) = 2
A(3) = 5
findedNum = Switch(A(1) = A(2), 3, A(2) = A(3), 1, A(1) = A(3), 2)
Оно?
A(1) = 5
A(2) = 2
A(3) = 5
findedNum = Switch(A(1) = A(2), 3, A(2) = A(3), 1, A(1) = A(3), 2)
Оно?
только не тот раздел для темы )))))
для решения такой задачи нужно отдельный аздел создать
экхм
вот самый примитивный способ
не думая называется ))))))))))))))
для решения такой задачи нужно отдельный аздел создать
экхм
Код:
вот самый примитивный способ
не думая называется ))))))))))))))
nilbog!
Спасибо огромное за помощь, но программа не работает!
case оператор не воспринимается, затем true и false тоже нет!
Где нужно ставить запятые? Я в этом нен разбираюсь!
ПОМОГИ ПОЖАЛУЙСТА!
Напиши ещё раз...
Спасибо огромное за помощь, но программа не работает!
case оператор не воспринимается, затем true и false тоже нет!
Где нужно ставить запятые? Я в этом нен разбираюсь!
ПОМОГИ ПОЖАЛУЙСТА!
Напиши ещё раз...
Цитата: denamer
nilbog!
Спасибо огромное за помощь, но программа не работает!
case оператор не воспринимается, затем true и false тоже нет!
Где нужно ставить запятые? Я в этом нен разбираюсь!
ПОМОГИ ПОЖАЛУЙСТА!
Напиши ещё раз...
Спасибо огромное за помощь, но программа не работает!
case оператор не воспринимается, затем true и false тоже нет!
Где нужно ставить запятые? Я в этом нен разбираюсь!
ПОМОГИ ПОЖАЛУЙСТА!
Напиши ещё раз...
хм
специально засунул в BP
фсе работает
даже опечаток не было
у вас какой компилятор?
тоже хатю навскидку черкнуть (компилить лень :)...
Блин, не получилось, откомпилил, работает:
Блин, не получилось, откомпилил, работает:
Код:
var
b1,b2,b3,b4:byte;
begin
write('vvedite 1-e chislo >');
readln(b1);
write('vvedite 2-e chislo >');
readln(b2);
write('vvedite 3-e chislo >');
readln(b3);
if b1=b2 then b4:=3;
if b1=b3 then b4:=2;
if b2=b3 then b4:=1;
writeln('nelekvid - ',b4);
writeln('press Enter');
readln;
end.
b1,b2,b3,b4:byte;
begin
write('vvedite 1-e chislo >');
readln(b1);
write('vvedite 2-e chislo >');
readln(b2);
write('vvedite 3-e chislo >');
readln(b3);
if b1=b2 then b4:=3;
if b1=b3 then b4:=2;
if b2=b3 then b4:=1;
writeln('nelekvid - ',b4);
writeln('press Enter');
readln;
end.
Цитата: Franky
Код:
if b1=b2 then b4:=3;
if b1=b3 then b4:=2;
if b2=b3 then b4:=1;
if b1=b3 then b4:=2;
if b2=b3 then b4:=1;
зачем три сравнения делать
Код:
if b1=b2 then b4:=3 else
if b1=b3 then b4:=2 else b4:=1;
if b1=b3 then b4:=2 else b4:=1;
машина железная но все же....
СПАСИБО ОГРОМНОЕ ЗА ПОМОЩЬ!!!!
А ВОТ ЕСЛИ ЗАДАЧА ВЫШЛЯДИТ ВОТ ТАК, то как будет выглядеть БЛОК-СХЕМА?
НАПИШИТЕ ПОЖАЛУЙСТА БЛОК-СХЕМУ!!!
ОЧЕНЬ СРОЧНО!!!!
Задача.
Даны три числа, два из которых равны, а третье отлично от них.
Найти порядковй гомер числа, отличного от двух других.
var X:array[1..3] of integer;
k,i:integer;
begin
write('pervoe chislo='); readln(x[1]);
write('vtoroe chislo='); readln(x[2]);
write('tretye chislo='); readln(x[3]);
for i:=1 to 3 do
if x[1]=x[2] then k:=3;
if x[1]=x[3] then k:=2;
if x[2]=x[3] then k:=1;
writeln('Poryadkovyi nomer chisla, otlichnogo ot drugih=',k);
end.
НАПИШИТЕ ПОЖАЛУЙСТА БЛОК-СХЕМУ!!!
ОЧЕНЬ СРОЧНО!!!!
Буду признателен!!!
А ВОТ ЕСЛИ ЗАДАЧА ВЫШЛЯДИТ ВОТ ТАК, то как будет выглядеть БЛОК-СХЕМА?
НАПИШИТЕ ПОЖАЛУЙСТА БЛОК-СХЕМУ!!!
ОЧЕНЬ СРОЧНО!!!!
Задача.
Даны три числа, два из которых равны, а третье отлично от них.
Найти порядковй гомер числа, отличного от двух других.
var X:array[1..3] of integer;
k,i:integer;
begin
write('pervoe chislo='); readln(x[1]);
write('vtoroe chislo='); readln(x[2]);
write('tretye chislo='); readln(x[3]);
for i:=1 to 3 do
if x[1]=x[2] then k:=3;
if x[1]=x[3] then k:=2;
if x[2]=x[3] then k:=1;
writeln('Poryadkovyi nomer chisla, otlichnogo ot drugih=',k);
end.
НАПИШИТЕ ПОЖАЛУЙСТА БЛОК-СХЕМУ!!!
ОЧЕНЬ СРОЧНО!!!!
Буду признателен!!!
что за глупость вы написали?
зачем у вас в коде цикл?
зачем у вас в коде цикл?
Цитата: denamer
Код:
for i:=1 to 3 do
if x[1]=x[2] then k:=3;
if x[1]=x[2] then k:=3;
а блок схему и сами можете нарисовать - достаточно записать сравнения
в виде ромбиков )
ps и кричать не обязательно
Цитата: nilbog
зачем три сравнения делать
машина железная но все же....
Код:
if b1=b2 then b4:=3 else
if b1=b3 then b4:=2 else b4:=1;
if b1=b3 then b4:=2 else b4:=1;
машина железная но все же....
там какая-то фигня вылезла при тестировании, не помню...
Я тоже так сделал сначала :)
в блок-схемах не силен, не помню что какой блок значит. В Ворде хорошо рисовать такие вещи...