Ввести слово. - Паскаль, Turbo Pascal, PascalABC.NET

Fender92 · 17.03.2011, 11:55

Ввести слово :
а) напечатать его по вертикали;
б) переставить буквы слова в обратном порядке.

Vanta11a · 17.03.2011, 12:27

Код:

for i:=1 to lenght(s) do
wiriteln (s[i])

Код:

for i:=1 to lenght(s) mod 2 do
beign
ss:=s[i];
s[i]:=s[lenght(s)-i];
s[lenght(s)-i]:=ss;
end

Что-то я добрый.

Fender92 · 17.03.2011, 12:58

Спасибо большое блиинн ураа)))

Hacker19_90 · 17.03.2011, 13:06

Дааааааа! Чудо алгоритм!

Код:

for i:=1 to lenght(s) mod 2 do
beign
ss:=s[i];
s[i]:=s[lenght(s)-i];
s[lenght(s)-i]:=ss;
end

Исправте!

Vanta11a · 17.03.2011, 13:45

Зачем? Если человек не халявщик - сам исправит, это не сложно. А за рабочий код надо платить.

Serge_Bliznykov · 17.03.2011, 23:15

ещё тут ругани не хватало!

Закрыто!

17.03.2011, 11:55	#1
Fender92 Пользователь Регистрация: 04.09.2010 Сообщений: 10	Ввести слово. Ввести слово : а) напечатать его по вертикали; б) переставить буквы слова в обратном порядке.

17.03.2011, 12:27	#2
Vanta11a Lawful Evil Участник клуба Регистрация: 13.05.2008 Сообщений: 1,208	Код: `for i:=1 to lenght(s) do wiriteln (s[i])` Код: `for i:=1 to lenght(s) mod 2 do beign ss:=s[i]; s[i]:=s[lenght(s)-i]; s[lenght(s)-i]:=ss; end` Что-то я добрый. Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату. На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)

17.03.2011, 13:06	#4
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	Дааааааа! Чудо алгоритм! Код: `for i:=1 to lenght(s) mod 2 do beign ss:=s[i]; s[i]:=s[lenght(s)-i]; s[lenght(s)-i]:=ss; end` Исправте! *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 Последний раз редактировалось Hacker19_90; 17.03.2011 в 13:09.

17.03.2011, 13:45	#5
Vanta11a Lawful Evil Участник клуба Регистрация: 13.05.2008 Сообщений: 1,208	Зачем? Если человек не халявщик - сам исправит, это не сложно. А за рабочий код надо платить. Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату. На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)

17.03.2011, 12:58	#3
Fender92 Пользователь Регистрация: 04.09.2010 Сообщений: 10	Спасибо большое блиинн ураа)))

17.03.2011, 23:15	#6
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	ещё тут ругани не хватало! Закрыто!