Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: 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 вся ветка

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.044 c
3-1101362282
karat
2004-11-25 08:58
2004.12.26
Кодировка


14-1102458363
KilkennyCat
2004-12-08 01:26
2004.12.26
Компания "ЭСК" полностью завершила процесс госрегистрации.


9-1093717523
Batoon
2004-08-28 22:25
2004.12.26
звук


6-1097675430
ARGENTUM [lv]
2004-10-13 17:50
2004.12.26
Процесс SVCHOST.EXE постоянно растёт в памяти


4-1100283487
oens
2004-11-12 21:18
2004.12.26
ждущий режим