Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 13.01.2015, 23:33   #1 (permalink)
Asya_inter
Member
 
Аватар для Asya_inter
 
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Вывести ответ в столбик

Как вывести ответ не в строчку. Пробовала через for, но не выходит. Я её не сама делала и мне не всё понятно, а вы можете пояснить, значение переменных? Спасибо! Дан текст. Группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Найти все слова, содержащие наибольшее количество гласных латинских букв(a,e,i,o,u).


program nomer_808(b);
var
smax: array[0..127] of string;
s, s1: string;
i, j, max: integer;

begin
for i := 0 to 127 do smax[i] := '';
write('введите строку:');
readln(s);
j := 0;
max := 0;
s1 := '';
for i := 1 to length(s) do
begin
s1 := s1 + s[i];
if upcase(s[i]) in ['A', 'E', 'I', 'O', 'U'] then j := j + 1;
if (s[i] = ' ') or (i = length(s)) then begin
if max < j then max := j;
smax[j] := smax[j] + s1;
j := 0;
s1 := '';
end;
end;
if max = 0 then writeln('HeT TaKux') else begin
{for :=0 to length(s) do}

writeln('MAX=', max);
writeln(smax[max]);
end;
end.
Asya_inter вне форума   Ответить с цитированием

Старый 13.01.2015, 23:33
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

В темах которые наши участники создавали ранее можно найти полезные советы

Игра: вопрос-ответ
ProXimity Talk - ответ на звонок без нажатий
Lazy Car - автоматический ответ за звонок
Китайский ответ Apple
Левый ответ mail.ru

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Метки
pascal abc, задача, тексты

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 15:04.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.