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

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

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

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

Страницы: 1 2 >
cjkorg © (2004-12-09 23:39:00)
Напечатать true, если в заданном тексте буква а встречается чаще, чем буква b, и напечатать false в противном случае.
Я так понял,что вводиться некий текст из символов(ну например 34545akokfogddl-098aaaaaaaaa)-nj htpekmnfn ,то результат выдаст false, а если (908klre9tlkzxaaacbbbbbbbb)-то выдаст true.
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1102611138&n=0-этутему закрыли я даж ответить ничего не успел.

Intr (2004-12-10 01:26:00) [1]
what:=(a>b); ??... хмм... действительно красиво... =)

Palladin (2004-12-10 01:22:00) [2]
var конечно увеличивает производительность, но на лаконичности никак не отражается

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

Intr (2004-12-10 01:18:00) [3]
............
function what( varstr:string):boolean;
var a,b,i:integer;
begin
............

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

Gero (2004-12-10 01:08:00) [4]

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

Грустно.

Intr (2004-12-10 01:06:00) [5]
>Растешь. Еще немножко подумать и будет вообще лаконично

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

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

cjkorg (2004-12-10 01:05:00) [6]
Да не я не пою...я пишу музыку...Спасибо за помощь.Завтра скажу результат!!!Всем спасибо за участие в этом нелёгком деле.
Халява присуща тока для русского народа.

Игорь Шевченко (2004-12-10 00:48:00) [7]
Palladin © (10.12.04 00:44) [15]

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

С уважением,

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

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

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

Intr (2004-12-10 00:37:00) [9]
стоп... опять не внимательно прочитал задание.... лопата!... блин...

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.

вот..

Intr (2004-12-10 00:34:00) [10]
вопшем ненаю как там в 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.

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

Palladin (2004-12-10 00:22:00) [11]
^) потому что условие читать нужно внимательней..

Intr (2004-12-10 00:21:00) [12]
ой... =)))

Intr (2004-12-10 00:19:00) [13]
>самое прикольное что неверно :-)
но почему ?? =((((

GuAV (2004-12-10 00:15:00) [14]
Palladin © (10.12.04 0:04) [7]

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

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

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

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

> if a>b then asd:=false;
> if b>a then asd:=true;
самое прикольное что неверно :-)

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

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

Споешь ?

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

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

> [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;

:))

cjkorg (2004-12-10 00:04:00) [17]
Народ простите за мою тупость...но можно весь текст программы написать,как я затра буду её вносить в паскаль.
а то какаято str...ненадо +1.
Заранее не ругать...
Нарооод!Спасибо за то что вы есть!Ведь все мы друг другу помогаем...В программировании не силён,зато в музыке шарю.

Intr (2004-12-09 23:51:00) [18]
а может и не нада +1....

Intr (2004-12-09 23:50:00) [19]
в 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;

Zacho (2004-12-09 23:48:00) [20]
Тем более, что решить такую задачу можно после прочтения "по диагонали" любого учебника по Паскалю.

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

Страницы: 1 2 >

Наверх

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