Помощь по паскалю 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;

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

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

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

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

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

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

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

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

Грустно.

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

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

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

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

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

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

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

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