Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

задание по 7 паскалю прошу помощи.. [D6, WinXP]

cjkorg © (2004-12-09 19:52:00)
Люди кто может помочm в данном мне задании.
Напечатать true, если в заданном тексте буква а встречается чаще, чем буква b, и напечатать false в противном случае.

Anatoly Podgoretsky (2004-12-09 20:51:00) [1]
Некорректное условие, задача решения не имеет.

SergP (2004-12-09 20:29:00) [2]

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

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

begin...end (2004-12-09 20:26:00) [3]
> [7] SergP © (09.12.04 20:22)

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

SergP (2004-12-09 20:25:00) [4]

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

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

SergP (2004-12-09 20:22:00) [5]
ну седьмых паскалей я не знаю, но на дельфях будет выглядеть приблизительно так:

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;

begin...end (2004-12-09 20:20:00) [6]
> cjkorg (09.12.04 19:52)

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

Zacho (2004-12-09 20:17:00) [7]
bulanov (09.12.04 20:11) [4]

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

:)

bulanov (2004-12-09 20:11:00) [8]

> Gero

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

Gero (2004-12-09 20:08:00) [9]

> clickmaker © (09.12.04 19:55)

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

Gero (2004-12-09 19:55:00) [10]
Давай заданный текст, напечатаю что надо.

clickmaker (2004-12-09 19:55:00) [11]
true

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »