Страница 1 из 3
Re: Задача на строки по Pascal
Добавлено: 18 дек 2008, 18:32
bigben
народ помогите плиз решить задачи на паскале дана строка содержащая текст состоящий из заглавных букв провести частотный анализ текста т.е. указать процентное содержание сколько раз встречеется тот ил иной символ
Re: Задача на строки по Pascal
Добавлено: 21 дек 2008, 11:36
Хыиуду
См. соседние темы. Только что кому-то решил такую же задачу.
Re: Задача на строки по Pascal
Добавлено: 21 дек 2008, 23:47
Nesti
Некак не могу понять куда можно задать вопрос((((
Re: Задача на строки по Pascal
Добавлено: 22 дек 2008, 00:23
Хыиуду
Лучше всего в новую тему.
Re: Задача на строки по Pascal
Добавлено: 25 дек 2008, 14:54
lex@
народ помогите пожалуйста решить задачки))) срочно надо.... если сможете то ответьте сегодня))) заранее благодарю))))
>>> Данна строка содержащая текст на русском языке. В предложениях некоторы из слов записаны подряд несколько раз. Получить в новой строчке отредактированный текс, в котором удалены подряд идущие вхождения слов.
>>>Напечатайте слово, в котором оставлены буквы, входяшие в исходное слово один раз.
>>>Дано n строк русского текста. Найти в каждой строке количество слов, в которых ровно 3 буквы "а".
>>> Дана строка текста из букв и цифр. Найти сумму и среднее арефметическое цифр, содержащихся в строке.*
Re: Задача на строки по Pascal
Добавлено: 25 дек 2008, 15:13
demon416
Две из твоих задач уже решены причем одну ты сам же раньше давал
http://forum.developing.ru/showthread.php?t=16434
http://forum.developing.ru/showthread.php?t=16457
две других вроде тоже встречались в этом разделе пользуйся поиском
Re: Задача на строки по Pascal
Добавлено: 25 дек 2008, 19:29
lex@
спасибо))))) благодарю
Re: Задача на строки по Pascal
Добавлено: 27 дек 2008, 13:04
Brat22
Народ можете помоч с такой задачей, тоже на записи в Паскали или на делфи в консоли!
Вычеркните из строки Y все буквы, стоящие на нечётных местах
Re: Задача на строки по Pascal
Добавлено: 27 дек 2008, 14:41
demon416
for i:=1 to length(y) do
if i mod 2 = 1 then
delete(y,i,1);
Re: Задача на строки по Pascal
Добавлено: 27 дек 2008, 15:10
Brat22
var
i : integer;
y : string;
begin
Write('Vvedite stroku: ');
Readln(y);
for i:=1 to length(y) do
if i mod 2 = 1 then
delete(y,i,1);
writeln (y);
Readln;
end.
В чём у меня ошибка?