Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: CL | DM;

Вниз

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

 
cjkorg   (2004-12-09 23:39) [0]

Напечатать true, если в заданном тексте буква а встречается чаще, чем буква b, и напечатать false в противном случае.
Я так понял,что вводиться некий текст из символов(ну например 34545akokfogddl-098aaaaaaaaa)-nj htpekmnfn ,то результат выдаст false, а если (908klre9tlkzxaaacbbbbbbbb)-то выдаст true.
http://delphimaster.net/view/1-1102611138/-эту тему закрыли я даж ответить ничего не успел.


 
Palladin ©   (2004-12-09 23:45) [1]

Задачи даются что бы учится думать, а не учится спрашивать в форуме.


 
Gero ©   (2004-12-09 23:47) [2]

for, length, inc, if - вот и весь алгоритм.
Голова ведь не только, чтобы в нее есть.


 
Zacho ©   (2004-12-09 23:48) [3]

Тем более, что решить такую задачу можно после прочтения "по диагонали" любого учебника по Паскалю.

P.S. Злые мы. Ибо достали школьники/студенты лентяи.


 
Intr   (2004-12-09 23:50) [4]

в str заносишь строку

function asd(str:string):boolean;
var a,b,i:integer;
begin
 for i:=1 to str[0]+1 do begin
   if (str[i]="a") or (str[i]="A") then a:=a+1;
   if (str[i]="b") or (str[i]="B") then b:=b+1;
   end;
 if a>b then asd:=false;
 if b>a then asd:=true;
 end;


 
Intr   (2004-12-09 23:51) [5]

а может и не нада +1....


 
cjkorg   (2004-12-10 00:04) [6]

Народ простите за мою тупость...но можно весь текст программы написать,как я затра буду её вносить в паскаль.
а то какаято str...ненадо +1.
Заранее не ругать...
Нарооод!Спасибо за то что вы есть!Ведь все мы друг другу помогаем...В программировании не силён,зато в музыке шарю.


 
Palladin ©   (2004-12-10 00:04) [7]


> [4] Intr   (09.12.04 23:50)

1 А счетчики инициализировать Пушкин А.С. будет?
2 есть такой оператор in что избавить тебя от or
3 str[0]+1 : есть такая функция Length
4

> if a>b then asd:=false;
> if b>a then asd:=true;


:))


 
Игорь Шевченко ©   (2004-12-10 00:08) [8]


> Ведь все мы друг другу помогаем...В программировании не
> силён,зато в музыке шарю.


Споешь ?

ЗЫ: Халявщики маст дай.


 
GuAV ©   (2004-12-10 00:15) [9]

Palladin ©   (10.12.04 0:04) [7]

1 А счетчики инициализировать Пушкин А.С. будет?

Ну какое-то начальное значение ведь будет, не так ли ? ;-)

2 есть такой оператор in что избавить тебя от or

а есть такой оператор case которым решить задачу ещё проще :-)

> if a>b then asd:=false;
> if b>a then asd:=true;

самое прикольное что неверно :-)


 
Intr   (2004-12-10 00:19) [10]

>самое прикольное что неверно :-)
но почему ?? =((((


 
Intr   (2004-12-10 00:21) [11]

ой...   =)))


 
Palladin ©   (2004-12-10 00:22) [12]

^) потому что условие читать нужно внимательней..


 
Intr   (2004-12-10 00:34) [13]

вопшем ненаю как там в 7ом паскале, но теоритически должно работать...

program a_or_b;
uses Crt;

var
 qwe:string;

function what(str:string):boolean;
var a,b,i:integer;
begin
a:=0;
b:=0;
for i:=1 to length(str) do begin
  if (str[i] in ["a","A"]) then a:=a+1;
  if (str[i] in ["b","B"]) then b:=b+1;
  end;
if a>b then what:=true;
if b>a then what:=false;
end;

begin
write("Введите строку:");
readln(qwe);
writeln();
writeln(what(qwe));
readln();
end.

поидее должно работать.


 
Intr   (2004-12-10 00:37) [14]

стоп... опять не внимательно прочитал задание....  лопата!... блин...

program a_or_b;
uses Crt;

var
qwe:string;

function what(str:string):boolean;
var a,b,i:integer;
begin
a:=0;
b:=0;
for i:=1 to length(str) do begin
 if (str[i] in ["a","A"]) then a:=a+1;
 if (str[i] in ["b","B"]) then b:=b+1;
 end;
if a>b then what:=true else what:=flase;
end;

begin
write("Введите строку:");
readln(qwe);
writeln();
writeln(what(qwe));
readln();
end.

вот..


 
Palladin ©   (2004-12-10 00:44) [15]


> if a>b then what:=true else what:=flase;

Растешь. Еще немножко подумать и будет вообще лаконично.


 
Игорь Шевченко ©   (2004-12-10 00:48) [16]

Palladin ©   (10.12.04 00:44) [15]

Для лаконичности тут надо еще два раза думать.

С уважением,


 
cjkorg   (2004-12-10 01:05) [17]

Да не я не пою...я пишу музыку...Спасибо за помощь.Завтра скажу результат!!!Всем спасибо за участие в этом нелёгком деле.
Халява присуща тока для русского народа.


 
Intr   (2004-12-10 01:06) [18]

>Растешь. Еще немножко подумать и будет вообще лаконично

>Для лаконичности тут надо еще два раза думать.

дану вас... злые вы...


 
Gero ©   (2004-12-10 01:08) [19]


> можно весь текст программы написать,как я затра буду её
> вносить в паскаль.
> а то какаято str...ненадо +1.

Грустно.


 
Intr   (2004-12-10 01:18) [20]

............
function what(var str:string):boolean;
var a,b,i:integer;
begin
............

В етом чтоли не лаконичность ???


 
Palladin ©   (2004-12-10 01:22) [21]

var конечно увеличивает производительность, но на лаконичности никак не отражается

Какой будет результат выполнения выражения (a>b)?


 
Intr   (2004-12-10 01:26) [22]

what:=(a>b); ??...  хмм...  действительно красиво... =)



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

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

Наверх




Память: 0.51 MB
Время: 0.038 c
3-1101281354
midavik
2004-11-24 10:29
2004.12.26
TreeView c разноцветными узлами


14-1102013412
PurchaseDelphi
2004-12-02 21:50
2004.12.26
Где можно купить Лицензионную Delphi 3-6


1-1102899628
Bobby Digital
2004-12-13 04:00
2004.12.26
Координаты


4-1097473620
Rentgen
2004-10-11 09:47
2004.12.26
Включить компьютер.


3-1101468024
ВицеЧайник
2004-11-26 14:20
2004.12.26
SQL возвращает Null