Страница 1 из 1
Помогите решить 3 простеньких задачи
Добавлено: 21 ноя 2007, 16:48
AstraZak
Сам просто понятия не имею как это всё реализуется,если конечно не сложно помогите.
Задача №1
Заменить в заданной строке все буквы Ch1 на Ch2 (их значения вводить с клавиатуры).
Задача №2
Дана символьная строка, cодержащая текст, который заканчивается точкой. Найти длину самого короткого слова и самого длинного слова.
Задача №3
Упорядочить данный массив английских слов по алфавиту, рассматривая только первый символ каждого слова.
Re: Помогите решить 3 простеньких задачи
Добавлено: 22 ноя 2007, 15:15
Хыиуду
1. while pos(ch1,s)>0 do s[pos(ch1,s)]:=ch2;
2, 3. Раздел "Алгоритмы", тема "Разбиение строки на слова"
Re: Помогите решить 3 простеньких задачи
Добавлено: 22 ноя 2007, 15:20
BHy4ok
1:
Код: Выделить всё
uses crt;
var
s, s1: string;
a, b: char;
i: integer;
begin
clrscr;
writeln('input string: ');
readln(s);
writeln('input 1st simbol: '); {символ который нужно заменить}
readln(a);
writeln('input 2nd simbol: '); {символ на который нужно заменить}
readln(b);
For i:=1 to length(s) do
begin
if s[i]=a then s[i]:=b;
end;
writeln(s);
readln;
end.
Исправлено!
Re: Помогите решить 3 простеньких задачи
Добавлено: 22 ноя 2007, 17:42
AstraZak
BHy4ok,
Биг сп,буду код сейчас разбирать.
Re: Помогите решить 3 простеньких задачи
Добавлено: 23 ноя 2007, 11:08
Хыиуду
Вот этот кусок -
Код: Выделить всё
For i:=1 to length(s) do
begin
INSERT(s1,s,i);
end;
- не имеет здесь никакого смысла, в лучшем случае ничего не сделает, в худшем - исказит результат до неузнаваемости
Re: Помогите решить 3 простеньких задачи
Добавлено: 23 ноя 2007, 11:20
BHy4ok
Хыиуду писал(а):Вот этот кусок -
- не имеет здесь никакого смысла, в лучшем случае ничего не сделает, в худшем - исказит результат до неузнаваемости
По ходу ничего не проверял. Написал запустил - работает, запостил.
Давно за паскаль не садился
п.с. поправил.