Вывести слова в обратном порядке

Вывести слова в обратном порядке презентация

Вывести слова в обратном порядке Информатика

Слайд 1var
str: string;
len, i, a: byte;
begin
readln(str);

len := length(str);
a := 0;
for i:=len downto 1 do begin
if str[i] = ' ' then begin
write(copy(str,i+1,a),' ');
a := 0;
end
else
a := a + 1;
end;
write(copy(str,i,a));
writeln;
readln
end.

Вывести слова в обратном порядке.

Описание переменных:
str - строка;
len - длина строки;
a - длина очередного слова;
i - текущая позиция в строке.

Обратная связь

Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть

Что такое ThePresentation.ru?

Это сайт презентаций, докладов, проектов, шаблонов в формате PowerPoint. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами с другими пользователями.

Для правообладателей

Вывести слова в обратном порядке презентация

Содержание

Слайд 1var str: string; len, i, a: byte;begin readln(str);

Похожие презентации

Обратная связь

Что такое ThePresentation.ru?

Слайд 1var
str: string;
len, i, a: byte;
begin
readln(str);