Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> текст с конца к началу 
:(
    Опции темы
Dr.No_xXx
Дата 27.4.2005, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
Всем доброго времени суток.Сразу извените за название тему.
На паскале раньше делал простую прогу
Код

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

Эта программа выводила введенный текст задом на перед.Так вот на delphi такой код не проходит.
Выводится только 1 буква.Вопрос как заменить усдовие
Код

for x:=length(s) downto 1 do
 
smile smile smile
PM MAIL   Вверх
Yanis
Дата 27.4.2005, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(Dr @ 27.4.2005, 12:39)
for x:=length(s) downto 1 do

Это не условие!

Надо так:
Код

var
  s:string;
  x:integer;
begin
  readln(s); // не read(s);
  for x:=length(s) downto 1 do
    write(s[x]);
end.



--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Dr.No_xXx
Дата 27.4.2005, 14:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
не ты не понял.Мне нужно на delphi.
PM MAIL   Вверх
Joes
Дата 27.4.2005, 14:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 432
Регистрация: 15.11.2004

Репутация: нет
Всего: 7
А какую ты видишь разницу между Паскалем и Дельфи... В консольном приложнии все то же, что и в Паскале...
Или тебе с формами надо... Типа нажал на кнопу, перевелось слово???
PM MAIL   Вверх
Dr.No_xXx
Дата 27.4.2005, 14:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
да.C формами.
PM MAIL   Вверх
Joes
Дата 27.4.2005, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 432
Регистрация: 15.11.2004

Репутация: нет
Всего: 7
Если с формами, то тогда вот так:
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);  // вот и процедурка для инвертирования...
var i: integer;
begin
for i:= length(Edit1.Text) downto 1 do
Label1.Caption:= Label1.Caption + Edit1.Text[i];
end;

end.
PM MAIL   Вверх
Yanis
Дата 27.4.2005, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
На форме 2 TMemo: Memo1, Memo2. Функция:
Код

function InvertString(const S: String): String;
var
  i, l: Integer;
begin
  SetLength(Result, Length(S));
  L := Length(S);
  for i := 1 to l do
    Result[i] := S[l - i + 1];
end;

По нажатию на кнопку:
Код

var
  I :Integer;
begin
  Memo2.Clear;
  for i := Memo1.Lines.Count - 1 downto 0 do
    Memo2.Lines.Add(InvertString(Memo1.Lines.Strings[i]));
end;



--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Dr.No_xXx
Дата 27.4.2005, 14:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
То что надо.Спасибо.
PM MAIL   Вверх
Dr.No_xXx
Дата 27.4.2005, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
не работает.Выводится тока 1 символ.
PM MAIL   Вверх
Albinos_x
Дата 27.4.2005, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
Предложенный код
Yanis
рабочий, если у тебя не работает значит ищи ошибки...
{Или выложи суда свой код - мы поищем...}


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Dr.No_xXx
Дата 27.4.2005, 18:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
Код

.....
var
i:integer;
a:string;
begin
a:=edit1.text;
for i:= length(a) downto 1 do
begin
label1.caption:=a[i];
end;

вот и весь код
PM MAIL   Вверх
Pakshin A. S.
Дата 27.4.2005, 18:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
LOL!

Код

.....
var
i:integer;
a:string;
begin
a:=edit1.text;
label1.caption:='';
for i:= length(a) downto 1 do
begin
label1.caption:=label1.caption+a[i];
end;
PM   Вверх
Yanis
Дата 27.4.2005, 19:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(Pakshin @ 27.4.2005, 18:52)
LOL!

Мне этот код тоже не понравился, но, что у вас вызвало такой восторг? Если не секрет =)


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Albinos_x
Дата 27.4.2005, 19:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
Цитата
Мне этот код тоже не понравился, но, что у вас вызвало такой восторг? Если не секрет =)


Вероятно, обнаружение ошибки...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Yanis
Дата 27.4.2005, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(Albinos_x @ 27.4.2005, 19:15)
Вероятно, обнаружение ошибки...

А ну да =) Разобрался.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.2791 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.