Re: Задача на строки по Pascal
народ помогите плиз решить задачи на паскале дана строка содержащая текст состоящий из заглавных букв провести частотный анализ текста т.е. указать процентное содержание сколько раз встречеется тот ил иной символ
См. соседние темы. Только что кому-то решил такую же задачу.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Некак не могу понять куда можно задать вопрос((((
Лучше всего в новую тему.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
народ помогите пожалуйста решить задачки))) срочно надо.... если сможете то ответьте сегодня))) заранее благодарю))))
>>> Данна строка содержащая текст на русском языке. В предложениях некоторы из слов записаны подряд несколько раз. Получить в новой строчке отредактированный текс, в котором удалены подряд идущие вхождения слов.
>>>Напечатайте слово, в котором оставлены буквы, входяшие в исходное слово один раз.
>>>Дано n строк русского текста. Найти в каждой строке количество слов, в которых ровно 3 буквы "а".
>>> Дана строка текста из букв и цифр. Найти сумму и среднее арефметическое цифр, содержащихся в строке.*
>>> Данна строка содержащая текст на русском языке. В предложениях некоторы из слов записаны подряд несколько раз. Получить в новой строчке отредактированный текс, в котором удалены подряд идущие вхождения слов.
>>>Напечатайте слово, в котором оставлены буквы, входяшие в исходное слово один раз.
>>>Дано n строк русского текста. Найти в каждой строке количество слов, в которых ровно 3 буквы "а".
>>> Дана строка текста из букв и цифр. Найти сумму и среднее арефметическое цифр, содержащихся в строке.*
Две из твоих задач уже решены причем одну ты сам же раньше давал
http://forum.developing.ru/showthread.php?t=16434
http://forum.developing.ru/showthread.php?t=16457
две других вроде тоже встречались в этом разделе пользуйся поиском
http://forum.developing.ru/showthread.php?t=16434
http://forum.developing.ru/showthread.php?t=16457
две других вроде тоже встречались в этом разделе пользуйся поиском
ака хинт: коментируйте код, самим же легче будет разобраться 

Народ можете помоч с такой задачей, тоже на записи в Паскали или на делфи в консоли!
Вычеркните из строки Y все буквы, стоящие на нечётных местах
Вычеркните из строки Y все буквы, стоящие на нечётных местах
for i:=1 to length(y) do
if i mod 2 = 1 then
delete(y,i,1);
if i mod 2 = 1 then
delete(y,i,1);
ака хинт: коментируйте код, самим же легче будет разобраться 

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.
В чём у меня ошибка?
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.
В чём у меня ошибка?