Проблема с задачками
Добавлено: 14 дек 2007, 09:27
Вот есть три задачки
Задача №1
Заменить в заданной строке все буквы Ch1 на Ch2 (их значения вводить с клавиатуры).
Задача №2
Дана символьная строка, cодержащая текст, который заканчивается точкой. Найти длину самого короткого слова и самого длинного слова.
Задача №3
Упорядочить данный массив английских слов по алфавиту, рассматривая только первый символ каждого слова.
Первую вроде решил а остальные не знаю как делать,если не сложно помогите
Задача №1
Заменить в заданной строке все буквы Ch1 на Ch2 (их значения вводить с клавиатуры).
Задача №2
Дана символьная строка, cодержащая текст, который заканчивается точкой. Найти длину самого короткого слова и самого длинного слова.
Задача №3
Упорядочить данный массив английских слов по алфавиту, рассматривая только первый символ каждого слова.
Первую вроде решил а остальные не знаю как делать,если не сложно помогите
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=a then s:=b;
end;
writeln(s);
readln;
end.