VPF::Из кода паскаля в код делфи - Форум программистов

Morgann

Дата 8.1.2012, 18:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Здравствуйте всем. Мне нужна помощь переделать код паскаля в код делфи. Если бы самому переделывать пришлось то делал бы я это очень и очень долго smile

Помогите пожалуйста.

Интерфейс бушующей программы такой примерно будет такой но красивее:

http://s017.radikal.ru/i404/1201/f8/ab04935453f4.jpg

Код паскаля вот такой

Код


Program Nura;
uses crt;
var a,b,c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,c11,c12,c13,c14,c15,c16,c17,c18,c19,c20,c21:longint;
var d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,d18,d19,d20,d21:longint;
begin
writeln('Vvedite Uroven,kotorogo hotite dostignut');
readln(a);
writeln('vvedite Vash Tekuchiy Oput');
readln(b);
c1:=200;
c2:=900;
c3:=2000;
c4:=4000;
c5:=8000;
c6:=16000;
c7:=32000;
c8:=64000;
c9:=128000;
c10:=256000;
c11:=512000;
c12:=1024000;
c13:=2048000;
c14:=4096000;
c15:=8192000;
c16:=16384000;
c17:=32768000;
c18:=65536000;
c19:=131072000;
c20:=262144000;
c21:=524288000;
d1:=c1-b;
d2:=c2-b;
d3:=c3-b;
d4:=c4-b;
d5:=c5-b;
d6:=c6-b;
d7:=c7-b;
d8:=c8-b;
d9:=c9-b;
d10:=c10-b;
d11:=c11-b;
d12:=c12-b;
d13:=c13-b;
d14:=c14-b;
d15:=c15-b;
d16:=c16-b;
d17:=c17-b;
d18:=c18-b;
d19:=c19-b;
d20:=c20-b;
d21:=c21-b;
if a=1 then writeln('Vam ostalos',' ',d1,' ','opyta do',' ',a,' ','levela');
if a=2 then writeln('Vam ostalos',' ',d2,' ','opyta do',' ',a,' ','levela');
if a=3 then writeln('Vam ostalos',' ',d3,' ','opyta do',' ',a,' ','levela');
if a=4 then writeln('Vam ostalos',' ',d4,' ','opyta do',' ',a,' ','levela');
if a=5 then writeln('Vam ostalos',' ',d5,' ','opyta do',' ',a,' ','levela');
if a=6 then writeln('Vam ostalos',' ',d6,' ','opyta do',' ',a,' ','levela');
if a=7 then writeln('Vam ostalos',' ',d7,' ','opyta do',' ',a,' ','levela');
if a=8 then writeln('Vam ostalos',' ',d8,' ','opyta do',' ',a,' ','levela');
if a=9 then writeln('Vam ostalos',' ',d9,' ','opyta do',' ',a,' ','levela');
if a=10 then writeln('Vam ostalos',' ',d10,' ','opyta do',' ',a,' ','levela');
if a=11 then writeln('Vam ostalos',' ',d11,' ','opyta do',' ',a,' ','levela');
if a=12 then writeln('Vam ostalos',' ',d12,' ','opyta do',' ',a,' ','levela');
if a=13 then writeln('Vam ostalos',' ',d13,' ','opyta do',' ',a,' ','levela');
if a=14 then writeln('Vam ostalos',' ',d14,' ','opyta do',' ',a,' ','levela');
if a=15 then writeln('Vam ostalos',' ',d15,' ','opyta do',' ',a,' ','levela');
if a=16 then writeln('Vam ostalos',' ',d16,' ','opyta do',' ',a,' ','levela');
if a=17 then writeln('Vam ostalos',' ',d17,' ','opyta do',' ',a,' ','levela');
if a=18 then writeln('Vam ostalos',' ',d18,' ','opyta do',' ',a,' ','levela');
if a=19 then writeln('Vam ostalos',' ',d19,' ','opyta do',' ',a,' ','levela');
if a=20 then writeln('Vam ostalos',' ',d20,' ','opyta do',' ',a,' ','levela');
if a=21 then writeln('Vam ostalos',' ',d21,' ','opyta do',' ',a,' ','levela');
writeln('Spasibo! Uspexa vam!');
readkey;
end.

Edit1 должен быть "a"
Edit2 "b"

а после нажатие на кнопку в едит3 пишет "if a=1 then writeln('Vam ostalos',' ',d1,'" и т.д до d21 тольео без "вам осталось" просто пишет число

если что-то не понятно в моей просьбе, пишите, может как-то поподробней опишу

Это сообщение отредактировал(а) Morgann - 8.1.2012, 19:24

arcsupport

Дата 8.1.2012, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Morgann, если не секрет, для какой игрушки это делается?

Morgann

Дата 8.1.2012, 21:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Новая Эра
Я так для друзей сделать хотел а то надоело считать постоянно сколько осталось. Ну еще и добавлю парочку приспособлений

bems

Дата 8.1.2012, 21:59 (ссылка)

(голосов:3)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Код


procedure TForm1.btnWorkClick(Sender: TObject);
var
  a, b: LongInt;
const
  c: array [1..21] of LongInt
   = (200, 900, 2000, 4000, 8000, 16000, 32000, 64000, 128000, 256000, 512000, 1024000, 2048000,
      4096000, 8192000, 16384000, 32768000, 65536000, 131072000, 262144000, 524288000);
begin
  b := StrToInt(edCurrLevel.Text);
  a := StrToInt(edLevel.Text);

  edResult.Text := Format('Вам осталось %d опыта до уровня %d', [c[a] - b, a]);
end;

Это сообщение отредактировал(а) bems - 8.1.2012, 22:01

--------------------

Обижено школьников: 8

Morgann

Дата 8.1.2012, 22:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Спасибо, все проблему решил! спасибо еще раз большое!

Это сообщение отредактировал(а) Morgann - 8.1.2012, 22:30

Morgann

Дата 9.1.2012, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Еще один вопрос

Как сделать что бы когда пишешь число в edit1 оно умножалось на число (то что внутри записано) и писался ответ в edit2
я то пытался делать но число не писалось в edit2

ну в паскале у меня выглядит так:

Код


Program dsd;
var
  b,c,f,a1,a2,a3,a: real;

begin
  writeln('a=');
  readln(a);
  b:= 5;
  a1:=a*b;
writeln('a1= ',a1:5:2);
readln;
end.

код то не сложный но в делфи не получается
"а" это едит1
"а1" это едит2

Это сообщение отредактировал(а) Morgann - 9.1.2012, 18:48

bems

Дата 9.1.2012, 19:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

M
bems

Один топик — один вопрос!

Пожалуйста, ознакомьтесь с правилами форума.

Тема закрыта. Создайте по одной теме для каждого интересующего вас вопроса.

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »