Тема #63421

 #  

 #  

АВАТАРКА *___*

 #  

где задача??

 #  

http://www.cyberforum.ru/pascalabc/

 #  

neebabelna пишет

где задача??

Кстати да!

 #  

 #  

uses crt;
var s,s2:string;
t,i:integer;
u:char;
begin
clrscr;
write('Input string: ');readln(s);
write('Input first symbol in the word: ');readln(u);
while copy (s,1,1)=' ' do delete (s,1,1);
while copy (s,length(s),1)=' 'do delete (s,length(s),1);
while pos(' ',s)0 do delete (s,pos(' ',s),1);
s:=s+' ';
repeat
t:=pos(' ',s);
s2:=copy(s,1,t-1);
if s2[1]=u then i:=i+1;
delete(s,1,t);
until length(s)=0;
write('The are ',i,' words, which start with ',u);
readln
end.

 #  

Для какого класа?

 #  

Nurda145 пишет

Для какого класа?

Десятый

 #  

http://delphid.dax.ru/www/beginners.php?intro=on&arrays=on&condition=on&files=on&formula=on&loops=on&procedure=on&sets=on&string=on&page=12#ex48 задача 48 похожа, немного подредактировать и прокатит

 #  

#1034300 пишет

Проголосовали: Yakudzaki

Вообще-то, я по делу поставил минус - ты дал прогу, которая счетает сколько слов начинаются с буквы " ".
Голову нужно включать, когда что-то копируешь.
Добавлено спустя 38 секунд

#1093466 пишет

подредактировать и прокатит

Только что это видел. Не подходит. В комментарии написано, что при таких-то условиях - не работает.

 #  

Program z;
var a, b: string;
Begin
writeln('Введи два слова');
read(a,b);
if length(a)>length(b)
then writeln(a) else writeln(b);
End.

 #  

#1034300 пишет

#1034300 пишет

Проголосовали: Yakudzaki

Вообще-то, я по делу поставил минус - ты дал прогу, которая счетает сколько слов начинаются с буквы " ".
Голову нужно включать, когда что-то копируешь.
Добавлено спустя 38 секунд

#1093466 пишет

подредактировать и прокатит

Только что это видел. Не подходит. В комментарии написано, что при таких-то условиях - не работает.

я хотя в нужном русле ответил !!! а ты сразу минус

 #  

#1099014 пишет

VladislavSukhod

Дружище, ты мне здорово поднял настроение

 #  

#1034300 пишет

#1099014 пишет

VladislavSukhod

Дружище, ты мне здорово поднял настроение

Печатал сам, в паскале не проверял, вроде должно правильно быть..

 #  

#1099839 пишет

я хотя в нужном русле ответил !!! а ты сразу минус

Минус - значит ответ не правильный. И отнюдь не в нужном русле...

 #  

#1034300 пишет

Помогите решить задачу.

Дано предложение. Слова отеделены друг от друга пробелами или запятыми. Требуется найти самое длинное слово.
Задачу решать на паскале. Тема - строковые массивы.
Первому решившему - 50 кредитов.

Ну или так
Program z;
var a, b: string;
Begin
a:=('qwer'); {первое слово}
b:=('qwe'); {Второе слово}

if length(a)>length(b)
then writeln(a) else writeln(b);
End.

 #  

#1099014 пишет

Печатал сам, в паскале не проверял, вроде должно правильно быть..

Тема "строковые массивы".
Подразумевается, что вводится предложение. (var s:string)
Из него и нужно выписать самое длинное.

 #  

#1034300 пишет

#1099014 пишет

Печатал сам, в паскале не проверял, вроде должно правильно быть..

Тема "строковые массивы".
Подразумевается, что вводится предложение. (var s:string)
Из него и нужно выписать самое длинное.

Сейчас, подумать надо, не помню уже всего..

Добавлено спустя 11 минут 03 секунды
Голова не фурычит:(

 #  

#1099014 пишет

Голова не фурычит:(

Сразу видно, что человек с юморком.

 #  

#1034300 пишет

#1099014 пишет

Голова не фурычит:(

Сразу видно, что человек с юморком.

Знал бы ты меня получше...:)

 #  

#1034300 пишет

Nurda145 пишет

Для какого класа?

Десятый

Ааа!Ниче себе!

 #  

туго все с паскалем((

 #  

не-не-не-з-з-за-за-за-м-м-ма-ма-ма-р-р-ра-ч-ч-ч-чи-в-в-в-ва-ва-й-й-й-с-с-с-ся.