Simoland - форум о Симс 2 и Симс 3! =)

Объявление

 
[реклама вместо картинки]
А начните... с регистрации?) Это быстро - минута, если не меньше! Зарегистрировались? Отлично! Возможно, вам понадобиться навигатор , чтобы лучше ориентироваться на форме. Обязательно познакомитесь с нами, жителями Simolanda - не грусть же в одиночестве! В компанию примем, не бойтесь))
[реклама вместо картинки]
Конкурсы

Набор работ:
Многоэтапный конкурс красоты
«Кем вы были в прошлой жизни?» (TS2/3)

Голосование:
- Нет информации -

[реклама вместо картинки]
Аккаунт для скачивания.
Ник: Downloader, пароль: 8888.
Убедительная просьба - с аккаунта не писать, профиль не изменять.
Хотите что-то спросить/сказать, регистрируйтесь, пожалуйста.
Хорошего времяпровождения ;D

~[Главная страница закачек]~
(В разработке)
[реклама вместо картинки]
[реклама вместо картинки]
Администраторы:
Упс, блок ещё в разработке. Скоро тут будет полезная информация.
 



Новый сериал
"Запах миндаля"
от Kamikoro. [Не пропустить!]


Ничего страшного — это просто ремонт). Дизайн постепенно меняется и заодно тестируется. Не пугайтесь резкой смены оформления)).

Новости КК
I этап; I тур

Новинка!
Никогда не пробовали
создать своё sims-шоу? [Попробовать!]

Участвуй!
Sims-конкурс красоты.
Многоэтапный. Подробнее...

   
Счетчик посещений Counter.CO.KZ










Партнёрская
программа
 

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.



Delphi

Сообщений 1 страница 20 из 49

1

Delphi (Де́лфи, произносится) — язык программирования, который используется в одноимённой среде разработки. Сначала язык назывался Object Pascal. Начиная со среды разработки Delphi 7.0, в официальных документах Borland стала использовать название Delphi для обозначения языка Object Pascal.

Класс языка:

императивный, структурированный, объектно-ориентированный

Автор:

Андерс Хейлсберг

Расширение файлов:

.dpr, .dproj, .pas, .dfm

_______________________________________________________
Материал из Википедии.

_______________________________________________________
Ссылки на скачивание программ

0

2

Настя, скачай себе программу (ссылка в первом посте), лучше - Delphi7 т.к. у нас эта версия была. Что там в 9 и 10 - не знаю, чем отличаются.

Сейчас общие сведения.
Алфавит языка (т.е. те символы, буквы, которые в нём используются):
1. Заглавные и строчные латинские буквы. (A >> Z, a >> z). Кириллица (русские буквы) не используется.
2. Цифры.
3. Цифры шестнадцатеричной системы счисления.
4. Спец. символы: // + - = > < := и т.д.

Структура программы.

Program <тут название программы>;
Uses <здесь имена подключ. модулей>;
Const<описание констант>;
Type<типы>;
Var<переменные>;
Porocedure<подпрограммы>;
begin
<операторы>;
end.

Не бойся, всё сразу не понадобится)
Теперь.. ээ.. я не знаю, что теперь))
Ну.. могу пример показать.
Простейшая программа.

program Summa; {тут менять только название}
{$APPTYPE CONSOLE}
uses SysUtils; {Это не надо каждый раз писать, и так будет - изначально)}

var {вот и переменные) ниже пишем все переменные (буквы), которые будем использовать}
a, b, c: integer {integer - целый тип. Если будут использоваться дробные числа, то пишем real}
begin
writeln('Vvedite chislo'); {Это выводится на экран}
readln(a); {Теперь переменная a равна тому числу, что ты ввела}
writeln('Vvedite vtoroe chislo');
readln(b);
c := a+b; {Присваиваем переменной c значение суммы введённых чисел}
writeln('Summa chisel = ',c'); {выводим на экран результат}
readln; {пустой ридлайн, чтобы окно не закрывалось мгновенно}
end.

Если хочешь попробовать, как она будет работать:
1. Запусти Делфи.
2. Нажми File >>> Close All
3. File >>> New >>> Console Application
Вот, я тебе скрин нашла даже:
http://ipicture.ru/uploads/100730/LAW7S7RN7P.jpg
4. Всё, что там есть - стираешь. Вставляешь мой код.
5. Нажимаешь на зелёный треугольник. Если я нигде не ошиблась, то должна запуститься)
А я могла. Если что, строчку с ошибкой программа выделит красным.
А, да, чтобы выйти нажми на Еnter))

На этом остановлюсь.
Если тебе интересно, то продолжим (:

0

3

так всё я  поставила на скачку) Многое не поняла  , ну  думаю что когда программу скачаю...то наглядно понятней  будет. Мне уже  интересно ...Так что обязательно продолжим... всё  ждём пока скачается)

З.Ы. а я  тебя  говорила что  у меня по алгебре 3_)

0

4

ЯсЯ-НасЯ написал(а):

так всё я  поставила на скачку)

Долго будет скачиваться?)

ЯсЯ-НасЯ написал(а):

Многое не поняла  , ну  думаю что когда программу скачаю...то наглядно понятней  будет.

Да я, пока что, ещё почти ничего и не рассказала (:
Так что всё ещё впереди))

ЯсЯ-НасЯ написал(а):

Мне уже  интересно ...

Отлично! Это главное))

P.S. Это вопрос?) Не-ет.. а зачем нам алгебра??

0

5

Скачиватся... думаю да.. весит многовато 95мб.
Нее насчёт алгебры просто там у  тебя  написано а+с и т.д))) вот ну  чем  то алгебру напоминает)

0

6

ЯсЯ-НасЯ написал(а):

Скачиватся... думаю да.. весит многовато 95мб.

Кому многовато, а кому и нет)) У меня полтора гига минут за 10-20 скачались))

ЯсЯ-НасЯ написал(а):

Нее насчёт алгебры просто там у  тебя  написано а+с и т.д))) вот ну  чем  то алгебру напоминает)

Х) ну, не ты же будешь это считать, а программа ^ ^
Есть несколько "фокусов":

# Задумайте число.
# Умножьте его на 2
# Прибавьте 4
# Умножьте на 4
# Отнимите 16
# Разделите на задуманное число.
# У всех получилось число 8.

   1.  Задумайте число от 1 до 20
   2. Прибавьте к нему 5.
   3. Результат умножьте на 3.
   4. От того, что получилось, отнимите 15 и запомните ответ.
   5. Если вы назовете мне ответ, я скажу какое число вы загадали.

(Для этого названный ответ нужно разделить на 3. Получится число, задуманное зрителем.)

   1.  Запишите год своего рождения так, чтобы я его не видел.
   2. Прибавьте к нему год любого запомнившегося в вашей жизни события.
   3. К сумме прибавьте свой возраст(т. е. число лет, которое исполнится вам в этом году(до 31 декабря)).
   4. К сумме прибавьте количество лет, прошедших со дня знаменательного события.
   5. Я могу читать мысли на расстоянии, поэтому я знаю все четыре написанных вами числа. Я не хочу, чтобы все зрители знали ваш возраст, поэтому сотрите первые 4 числа и оставьте только их сумму.
   6. Я могу сказать, сколько у вас получилось (показываю свой листок с ответом).

(Полученное число в 2006 году всегда будет равно 2006 х 2= 4012.)

Выбирай любой. Можно и все, но тогда установи порядок.
По ним и будет твоя первая программа ^ ^
Это легко, на самом деле)

0

7

Афина написал(а):

Кому многовато, а кому и нет)) У меня полтора гига минут за 10-20 скачались))

Лан лан  я  вот  се денежку  положу  и у  меня скорость будет  :longtongue:

Афина написал(а):

Х) ну, не ты же будешь это считать, а программа ^ ^

так  это мне уже  нравится))

Афина написал(а):

# Задумайте число.
# Умножьте его на 2
# Прибавьте 4
# Умножьте на 4
# Отнимите 16
# Разделите на задуманное число.
# У всех получилось число 8.

Действительно получилось)))

Афина написал(а):

У всех получилось число 8.

   1.  Задумайте число от 1 до 20
   2. Прибавьте к нему 5.
   3. Результат умножьте на 3.
   4. От того, что получилось, отнимите 15 и запомните ответ.
   5. Если вы назовете мне ответ, я скажу какое число вы загадали.

Хе  и опять получилось результат 21

Афина написал(а):

1.  Запишите год своего рождения так, чтобы я его не видел.
   2. Прибавьте к нему год любого запомнившегося в вашей жизни события.
   3. К сумме прибавьте свой возраст(т. е. число лет, которое исполнится вам в этом году(до 31 декабря)).
   4. К сумме прибавьте количество лет, прошедших со дня знаменательного события.
   5. Я могу читать мысли на расстоянии, поэтому я знаю все четыре написанных вами числа. Я не хочу, чтобы все зрители знали ваш возраст, поэтому сотрите первые 4 числа и оставьте только их сумму.
   6. Я могу сказать, сколько у вас получилось (показываю свой листок с ответом).

Абалдеть)

0

8

Ладно. Сейчас попробуем самое лёгкое)
Вот это:

Афина написал(а):

# Задумайте число.
# Умножьте его на 2
# Прибавьте 4
# Умножьте на 4
# Отнимите 16
# Разделите на задуманное число.
# У всех получилось число 8.

Прежде чем начать писать код программы - надо всё хорошенько продумать.
Итак: что будет делать наша программа?

Ответ|Закрыть

Выдавать этот текст:
"Задумайте число.
Умножьте его на 2
Прибавьте 4
Умножьте на 4
Отнимите 16
Разделите на задуманное число
Ваш результат...
...ВОСЕМЬ!"
по очереди. Больше ничего. Предельно просто)
Разве что, придётся перевести этот текст в транслит. Ну, сайты в помощь))

Начнём.
Первое - это имя программы.

program Name;

Думаю, догадываешься, как будет выглядеть первая строчка нашей программы)

ответ|Закрыть

program Fokus;

Мы также можем добавить комментарий. Его программа будет игнорировать, поэтому можно и на русском.
Есть три обозначения комментария. Мы возьмём этот: {  } - т.е. фигурные скобки. Всё, что в них - коммент.

{~~~~~~~~~~~~~~~~~~~~}
{~   Моя первая программа   ~}
{~~~~~~~~~~~~~~~~~~~~}

Можешь, конечно, и другое написать) Но принцип, думаю, ясен.

Дальше идут директивы компилятора. Это не комментарий, т.к. после фигурной скобки стоит знак $.
Эта директива:

{$APPTYPE CONSOLE}

есть всегда. Когда откроешь документ - увидишь.
Не стирай её и всё)

Подключаем модули.
Эта строчка тоже всегда у нас останется неизменной:

uses
  SysUtils;

А теперь - самое главное. Тело программы.
Я попытаюсь объяснить - а ты сама его напишешь)

1. "Бегин" - начало. С этого всё и начинается:

begin

2. Операторы ввода и вывода.
2.1. Операторы вывода на экран.
Это - Write и Writeln. Они почти одинаково действуют. Я использую Writeln, т.к. он переводит курсор в начало строки, чего не делает Write. В остальном - они одинаковы.
Формат.

Writeln(х, у, 'text');

Поясню. Всё пишется в круглых скобках. Обязательно после скобок  - точка с запятой. (Буква ж в англ. раскладке (просто на на всех обозначено =). Внутри скобок: переменные и константы пишутся без кавычек (в работающей программе они уже не будут буквами- они будут значениями, которые им присвоены); любой текст - в кавычках. Вот таких: ' ' (Буква э в англ. рас.). Ах, да. И ещё раз: текст только английскими буквами)
Допустим, ты хочешь, чтобы программа написала тебе привет:

Writeln('Privet!!!!');

2.2. Операторы ввода.
Read и Readln. Догадайся, чем они различаются и каким я пользуюсь)
Формат тоже очень похож. Разв что, там нет места тексту:

Readln(x, y);

Тут пока в подробности вникать не буду, т.к. пока это не понадобиться.
"Пустой ридлайн". Выглядит он так:

Readln;

Играет роль паузы. Роль кнопки "плей" у клавишь Enter. Это значит, что встретив пустой ридлайн программа не будет выполнятся дальше, пока ты не нажмёшь Enter. Полезно если ты не хочешь, чтобы весь текст высыпался сразу, а хочешь, чтобы он выдавался построчно - по нажатию Ентера. Также он ставится в самом конце программ, чтобы она моментально не закрылась))

2.3. Осторожно! Даже не думай сделать оператор в операторе))

3. Конец.
Всё заканчивается эндом:

end.

(точку не забудь! тут не точка с запятой, просто точка- заметь))

Уфф. Устала)) Надеюсь, не напрасно.
Давай вопросы (если есть)) И попробуй создать эту программу.
Код - сюда. Всё разберём, если что не правильно (ну, мало ли =) - исправим.
Давай)))))))))

0

9

Так  ну я всё  почитала..в принципе если не напутать то всё  возможно) Всё  осталось только прогу скачать)

0

10

Умничка **
А теперь попробуй написать код программы) У тебя получится!! ^ ^
А когда скачается - останется только скопировать, вставить и нажать на Плей)
Попробуй использовать Readln и Writeln) т.е. так:

begin

end.

Напиши, что будет между бегин и енд)) Я попралю, если что - не бойся.
Смотри пример в первом сообщении темы - он с комментариями)

0

11

begin
Writeln(х, у, 'text');
Readln(x, y);
end.
я не знаю что  я  сделала .. наверное  ничего  я просто скопировала то что есть  у  тебя  :(

0

12

ЯсЯ-НасЯ написал(а):

begin

Writeln('Zadumajte chislo');
Readln;
Writeln('Umnozh'te ego na 2');
Readln;
............................
................. . . ..

end.

Попробуй закончить (:
(транслит в помощь)

0

13

Writeln('Zadumajte chislo');
Readln;
Writeln('Umnozh'te ego na 2');
Readln;
Writeln('Pribavte 4');
Readln;
Writeln('Umnozh'te  na 4');
Readln;
Writeln('Otnimite 16');
Readln;
Writeln('Rathdelite na zadymannoe chislo');
end.

0

14

Почти)

ЯсЯ-НасЯ написал(а):

begin {куда бегин дела?)}

Writeln('Zadumajte chislo');
Readln;
Writeln('Umnozhte ego na 2'); {Придётся обойтись без знака смягчения: '}
Readln;
Writeln('Pribavte 4');
Readln;
Writeln('Umnozhte na 4');
Readln;
Writeln('Otnimite 16');
Readln;
Writeln('Rathdelite na zadymannoe chislo');
Readln;
Writeln('Vash rezultat...');
Readln;
Writeln('...8!');
{это куда делось?)}
Readln; {Пустой ридлайн в конце - всегда}

end.

Теперь попробуй всё вместе собрать.
Ответ:

Только попробуй сначала|Закрыть

program Fokus;
{~~~~~~~~~~~~~~~~~~~~}
{~   Моя первая программа   ~}
{~~~~~~~~~~~~~~~~~~~~}
{$APPTYPE CONSOLE}
uses
  SysUtils;

begin

Writeln('Zadumajte chislo');
Readln;
Writeln('Umnozhte ego na 2');
Readln;
Writeln('Pribavte 4');
Readln;
Writeln('Umnozhte na 4');
Readln;
Writeln('Otnimite 16');
Readln;
Writeln('Rathdelite na zadymannoe chislo');
Readln;
Writeln('Vash rezultat...');
Readln;
Writeln('...8!');
Readln;

end.

0

15

program Fokus;
    {~~~~~~~~~~~~~~~~~~~~}
    {~   Моя первая программа   ~}
    {~~~~~~~~~~~~~~~~~~~~}
    {$APPTYPE CONSOLE}
    uses
      SysUtils;

    begin

    Writeln('Zadumajte chislo');
    Readln;
    Writeln('Umnozhte ego na 2');
    Readln;
    Writeln('Pribavte 4');
    Readln;
    Writeln('Umnozhte na 4');
    Readln;
    Writeln('Otnimite 16');
    Readln;
    Writeln('Rathdelite na zadymannoe chislo');
    Readln;
    Writeln('Vash rezultat...');
    Readln;
    Writeln('...8!');
    Readln;

    end.
ну я  почти поняла) короче  у меня  дельфи на  закачке уже 25мб скачалось))

0

16

ЯсЯ-НасЯ написал(а):

ну я  почти поняла) короче  у меня  дельфи на  закачке уже 25мб скачалось))

Скоро будем проверять ^ ^

0

17

Угу) уже 41% это  35 мб

0

18

Скажешь, когда скачается?)

0

19

Хорошо *Ждёмс*

0

20

так ну я скачала... тут вылазиет такая  штучка"Введите пароль для  зашифрованного файла"
вот потом я ввожу ключ который скачала  на том  же  сайте  где прогу (ключ: 6AMD-PKG68E-DB8PP7-9SFE 3QH-9QW)
а потом вылазиет вот что

0



Рейтинг форумов | Создать форум бесплатно