Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Ноябрь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 94
от 11.11.2005, 12:03

Администратор:Калашников О.А.
В рассылке:Подписчиков: 148, Экспертов: 42
В номере:Вопросов: 1, Ответов: 6

Вопрос № 29001: здравствуйте!!! помогитеплиз написать программу которая выводила бы введённые мною символы в обратном порядке т.е abcdef fedcba...

Вопрос № 29.001
здравствуйте!!!
помогитеплиз написать программу
которая выводила бы
введённые мною символы в обратном порядке
т.е
abcdef
fedcba
Отправлен: 06.11.2005, 12:01
Вопрос задал: Sexy (статус: Посетитель)
Всего ответов: 6
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Маренич Владимир
Здравствуйте, Sexy!
procedure Invert;
var
s: string;
i: integer;
begin
Readln(s);
for i:=Length(s) downto 1 do Write(s[i]);
Writeln;
end;
Ответ отправил: Маренич Владимир (статус: 5-ый класс)
Отправлен: 06.11.2005, 12:32
Отвечает: sir henry
Здравствуйте, Sexy!
Нет ничего проще:
Const
c = 'abcdef';
var
i: integer;
Begin
{В прямом порядке}
WriteLn(c);
{В обратном порядке}
For i:=Length(c) downto 1 do
Write(c[i]);
End.
Ответ отправил: sir henry (статус: Академик)
Отправлен: 06.11.2005, 14:18
Отвечает: Vitava
Здравствуйте, Sexy!
~~~~~~~~ часть кода~~~~~~~
var
S1 : String;
S2 : String
i: Integer;
len : Integer;

S1 := 'abcdef'; // или что-то другое
S2 := '';
len = length(S1);
for i:=len downto 1 do begin
S2 := S2 + S1[i];
end;

// в итоге в S2 будет строка наоборот.
Успехов!
Ответ отправил: Vitava (статус: 2-ой класс)
Отправлен: 06.11.2005, 15:23
Отвечает: Schmak
Здравствуйте, Sexy!
Ничего сложного в этом нет

var s:string;
i:integer;
begin
readln(s);
for i:=length(s) downto 1 do
write(s[i]);
readln;
end.

---------
Не всё то Windows, что висит!
Ответ отправил: Schmak (статус: 6-ой класс)
Отправлен: 06.11.2005, 16:24
Отвечает: newinfo2005
Здравствуйте, Sexy!
program a1;
var
s,s1,s2:string;
i,i1:integer;
begin
readln(s);
i:=length(s);
for i1:=i downto 1 do
begin
s2:=copy(s,i1,1);
s1:=s1+s2;
end;
writeln(s1);
readln;
end.
---------
Хочу стать умным и...много денег и халявного инета.
Ответ отправил: newinfo2005 (статус: 5-ый класс)
Отправлен: 06.11.2005, 17:51
Отвечает: Vadim Vitomsky
Здравствуйте, Sexy!
Привожу функцию инвертирования строки

Приложение:

Ответ отправил: Vadim Vitomsky (статус: 2-ой класс)
Отправлен: 09.11.2005, 17:58

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале 		Яндекс Rambler's Top100 hotlog_js="1.0"; hotlog_r=""+Math.random()+"&s=314124&im=101&r="+escape(document.referrer)+"&pg="+ escape(window.location.href); document.cookie="hotlog=1; path=/"; hotlog_r+="&c="+(document.cookie?"Y":"N"); hotlog_js="1.1";hotlog_r+="&j="+(navigator.javaEnabled()?"Y":"N") hotlog_js="1.2"; hotlog_r+="&wh="+screen.width+'x'+screen.height+"&px="+ (((navigator.appName.substring(0,3)=="Mic"))? screen.colorDepth:screen.pixelDepth) hotlog_js="1.3" hotlog_r+="&js="+hotlog_js; document.write("HotLog")
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus
Архив рассылки 		Отписаться
Вспомнить пароль
В избранное