Скачать: CL | DM;

задание по 7 паскалю прошу помощи..   Найти похожие ветки 

← →
cjkorg   (2004-12-09 19:52) [0]

Люди кто может помочm в данном мне задании.
Напечатать true, если в заданном тексте буква а встречается чаще, чем буква b, и напечатать false в противном случае.

---

← →
Gero ©   (2004-12-09 19:55) [1]

Давай заданный текст, напечатаю что надо.

---

← →
clickmaker ©   (2004-12-09 19:55) [2]

true

---

← →
Gero ©   (2004-12-09 20:08) [3]

> clickmaker ©   (09.12.04 19:55)

Да какой же true, когда false.
Текст-то не задан, соответственно буква "а" не встречается чаще, чем "b".

---

← →
bulanov   (2004-12-09 20:11) [4]

> Gero

нельзя сравнивать ничего с ничегом, поэтому никакой ответ неверен :-)))))

---

← →
Zacho ©   (2004-12-09 20:17) [5]

bulanov   (09.12.04 20:11) [4]

Верный ответ - unknown

:)

---

← →
begin...end ©   (2004-12-09 20:20) [6]

> cjkorg   (09.12.04 19:52)

Ну а пиво-то хоть будет?

---

← →
SergP ©   (2004-12-09 20:22) [7]

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


function HerEgoZnaet(Text:String;FirstShar,SecondChar:Char):boolean;
var
 DeltaCount,i:integer;
begin
 DeltaCount:=0;
 for i:=1 to Length(Text) do
 begin
   if Text[i]=FirstChar then inc(DeltaCount);
   if Text[i]=SecondChar then dec(DeltaCount);
 end;
 result:=DeltaCount>0;
end;


---

← →
SergP ©   (2004-12-09 20:25) [8]

>  [6] begin...end ©   (09.12.04 20:20)
> > cjkorg   (09.12.04 19:52)
>
> Ну а пиво-то хоть будет?


Вот блин...А я то сглупил...

---

← →
begin...end ©   (2004-12-09 20:26) [9]

> [7] SergP ©   (09.12.04 20:22)

Садись, четыре. :-)

---

← →
SergP ©   (2004-12-09 20:29) [10]

>  [9] begin...end ©   (09.12.04 20:26)
> > [7] SergP ©   (09.12.04 20:22)
>
> Садись, четыре. :-)


Надеюсь хоть не по двенадцатибальной системе? :-)

---

← →
Anatoly Podgoretsky ©   (2004-12-09 20:51) [11]

Некорректное условие, задача решения не имеет.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.037 c