Форум: "Основная";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];
ВнизПомощь по паскалю 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;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.04 c