Перейти к публикации

  • Сейчас на странице   Всего пользователей: 0   (0 пользователей, 0 гостей)

Архивировано

Эта тема находится в архиве и закрыта для публикации сообщений.

Droed

Паскаль

Автор: Droed, в Мастерская

Рекомендованные сообщения

Droed   

Droed
Опубликовано:

Коротко, сделал свою структуру, обьявил её

 

 

jilec = record

      NOMKV : string[5];

      FNAME : string[20];

      LNAME : string[15];

      VOZ : word;

      WORK : word;

 

      PSTUD : string[20];

      PWORK : string[20];

      TRUD : word;

      GODVI : word;

end;

 

var

rec : jilec;

 

 

Дальше, есть процедура ввода значений

 

Procedure vvod (a : jilec);

begin

 

WriteLn ('‚ўҐ¤ЁвҐ ­®¬ҐаЄў авЁал.');

ReadLn (a.NOMKV);

WriteLn ('‚ўҐ¤ЁвҐ д ¬Ё«Ёо.');

ReadLn (a.FNAME);

WriteLn ('‚ўҐ¤ЁвҐ Ё¬п.');

ReadLn (a.LNAME);

WriteLn ('‚ўҐ¤ЁвҐ ў®§а бв.');

ReadLn (a.VOZ);

WriteLn ('‚ўҐ¤ЁвҐ бў®о § ­пв®бвм(“祭ЁЄ-1,ђ Ў®зЁ©-2,ЏҐ­бЁ®­Ґа-3)');

ReadLn (a.WORK);

 

WriteLn ('‚ўҐ¤ЁвҐ ¬Ґбв® г祡л.');

ReadLn (a.PSTUD);

WriteLn ('‚ўҐ¤ЁвҐ ¬Ґбв® а Ў®вл.');

ReadLn (a.PWORK);

WriteLn ('‚ўҐ¤ЁвҐ ва㤮ў®© бв ¦.');

ReadLn (a.TRUD);

WriteLn ('‚ўҐ¤ЁвҐ Ј®¤ ўл室  ­  ЇҐ­бЁо');

ReadLn (a.GODVI);

 

end;

 

 

И если я сделаю вот так

vvod(rec);

 

То она должна записывать в структуру rec. НО БЛЯТЬ НЕ ХОЧЕТ, ВАЙ?

 

Офк нуб в паскале гугл 2 ссылки не помогли.

 

‚ўҐ¤ЁвҐ ва㤮ў®© бв ¦.

             _██_     _██_
         ( ง ͠° ͟ʖ ͡°)ง  \(°ᴗƪ)

Поделиться сообщением

Ссылка на сообщение

McDeath   

McDeath

поможешь с ассемблером помогу с паскалем  :avtorklif:

ну если с этой залупой после взятия проивзодной надо еще чето сделать, то конечно лучше упростить, для простоты дальнейший действий

а если просто просят взять проивзодную, то нахуй упрощения

возьми мою производную

Поделиться сообщением

Ссылка на сообщение

-ScutuM-   

-ScutuM-

что сложного в паскале  :avtorklif:

Поделиться сообщением

Ссылка на сообщение

Kant   

Kant

С/С++/С# мне нравятся гораздо больше, но и паскаль не плох  :avtorklif:

Торжество разума в том, чтобы уживаться с теми, у кого этого разума нет. Вольтер.
Чтобы хорошо высыпаться, нужно спать 8 часов в день. И еще столько же ночью.

Поделиться сообщением

Ссылка на сообщение

Droed   

Droed

С/С++/С# мне нравятся гораздо больше, но и паскаль не плох  :lol:

Да ты прав.

 

Но у меня после перевода долг по паскалю, и надо писать  :avtorklif:

 

Ебанутый язык, вот блять пхп с++ пацанские, а это хуйня кастрированная.

             _██_     _██_
         ( ง ͠° ͟ʖ ͡°)ง  \(°ᴗƪ)

Поделиться сообщением

Ссылка на сообщение

Android3r   

Android3r

ассемблер \ брэйнфак  :avtorklif:

Поделиться сообщением

Ссылка на сообщение

lolius4   

lolius4

Паскаль это учёный.

панды

 

12.gif

 

 

pandamoniump1.gif

 

Поделиться сообщением

Ссылка на сообщение

Deauxma   

Deauxma

С/С++/С# мне нравятся гораздо больше, но и паскаль не плох  :nate:

Да ты прав.

 

Но у меня после перевода долг по паскалю, и надо писать  :avtorklif:

 

Ебанутый язык, вот блять пхп с++ пацанские, а это хуйня кастрированная.

:lol: :lol: :nate:

Чем тебе не нравится php?  :pray:

 

По моде

 

 

Steam

76561198052270114.png

 

 

 

CAN YOU DEAL WITH IT

24f3f105f391.jpg

 

 

Поделиться сообщением

Ссылка на сообщение

Droed   

Droed

А все, буду использовать ПРОЦЕДУРЫ.

             _██_     _██_
         ( ง ͠° ͟ʖ ͡°)ง  \(°ᴗƪ)

Поделиться сообщением

Ссылка на сообщение

Android3r   

Android3r

С/С++/С# мне нравятся гораздо больше, но и паскаль не плох  :nate:

Да ты прав.

 

Но у меня после перевода долг по паскалю, и надо писать  :avtorklif:

 

Ебанутый язык, вот блять пхп с++ пацанские, а это хуйня кастрированная.

:lol: :lol: :nate:

Чем тебе не нравится php?  :pray:

юзлес полный

Поделиться сообщением

Ссылка на сообщение

Android3r   

Android3r

А все, буду использовать ПРОЦЕДУРЫ.

функции  :avtorklif:

покидаю тред

Поделиться сообщением

Ссылка на сообщение

Kant   

Kant

Коротко, сделал свою структуру, обьявил её

 

 

jilec = record

      NOMKV : string[5];

      FNAME : string[20];

      LNAME : string[15];

      VOZ : word;

      WORK : word;

 

      PSTUD : string[20];

      PWORK : string[20];

      TRUD : word;

      GODVI : word;

end;

 

var

rec : jilec;

 

 

Дальше, есть процедура ввода значений

 

Procedure vvod (a : jilec);

begin

 

WriteLn ('‚ўҐ¤ЁвҐ ­®¬ҐаЄў авЁал.');

ReadLn (a.NOMKV);

WriteLn ('‚ўҐ¤ЁвҐ д ¬Ё«Ёо.');

ReadLn (a.FNAME);

WriteLn ('‚ўҐ¤ЁвҐ Ё¬п.');

ReadLn (a.LNAME);

WriteLn ('‚ўҐ¤ЁвҐ ў®§а бв.');

ReadLn (a.VOZ);

WriteLn ('‚ўҐ¤ЁвҐ бў®о § ­пв®бвм(“祭ЁЄ-1,ђ Ў®зЁ©-2,ЏҐ­бЁ®­Ґа-3)');

ReadLn (a.WORK);

 

WriteLn ('‚ўҐ¤ЁвҐ ¬Ґбв® г祡л.');

ReadLn (a.PSTUD);

WriteLn ('‚ўҐ¤ЁвҐ ¬Ґбв® а Ў®вл.');

ReadLn (a.PWORK);

WriteLn ('‚ўҐ¤ЁвҐ ва㤮ў®© бв ¦.');

ReadLn (a.TRUD);

WriteLn ('‚ўҐ¤ЁвҐ Ј®¤ ўл室  ­  ЇҐ­бЁо');

ReadLn (a.GODVI);

 

end;

 

 

И если я сделаю вот так

vvod(rec);

 

То она должна записывать в структуру rec. НО БЛЯТЬ НЕ ХОЧЕТ, ВАЙ?

 

Офк нуб в паскале гугл 2 ссылки не помогли.

В паскале мб как и в С в функцию передается копия объекта? Тогда надо передавать указатель, а внутри по указателю пихать.

Либо напиши функцию, а не процедуру, которая будет возвращать тебе твою структуру.

Торжество разума в том, чтобы уживаться с теми, у кого этого разума нет. Вольтер.
Чтобы хорошо высыпаться, нужно спать 8 часов в день. И еще столько же ночью.

Поделиться сообщением

Ссылка на сообщение

Droed   

Droed

А все, буду использовать ПРОЦЕДУРЫ.

функции  :lol:

покидаю тред

Да. ночь не спал уже путаюсь  :avtorklif:

             _██_     _██_
         ( ง ͠° ͟ʖ ͡°)ง  \(°ᴗƪ)

Поделиться сообщением

Ссылка на сообщение

Droed   

Droed

Коротко, сделал свою структуру, обьявил её

 

 

jilec = record

      NOMKV : string[5];

      FNAME : string[20];

      LNAME : string[15];

      VOZ : word;

      WORK : word;

 

      PSTUD : string[20];

      PWORK : string[20];

      TRUD : word;

      GODVI : word;

end;

 

var

rec : jilec;

 

 

Дальше, есть процедура ввода значений

 

Procedure vvod (a : jilec);

begin

 

WriteLn ('‚ўҐ¤ЁвҐ ­®¬ҐаЄў авЁал.');

ReadLn (a.NOMKV);

WriteLn ('‚ўҐ¤ЁвҐ д ¬Ё«Ёо.');

ReadLn (a.FNAME);

WriteLn ('‚ўҐ¤ЁвҐ Ё¬п.');

ReadLn (a.LNAME);

WriteLn ('‚ўҐ¤ЁвҐ ў®§а бв.');

ReadLn (a.VOZ);

WriteLn ('‚ўҐ¤ЁвҐ бў®о § ­пв®бвм(“祭ЁЄ-1,ђ Ў®зЁ©-2,ЏҐ­бЁ®­Ґа-3)');

ReadLn (a.WORK);

 

WriteLn ('‚ўҐ¤ЁвҐ ¬Ґбв® г祡л.');

ReadLn (a.PSTUD);

WriteLn ('‚ўҐ¤ЁвҐ ¬Ґбв® а Ў®вл.');

ReadLn (a.PWORK);

WriteLn ('‚ўҐ¤ЁвҐ ва㤮ў®© бв ¦.');

ReadLn (a.TRUD);

WriteLn ('‚ўҐ¤ЁвҐ Ј®¤ ўл室  ­  ЇҐ­бЁо');

ReadLn (a.GODVI);

 

end;

 

 

И если я сделаю вот так

vvod(rec);

 

То она должна записывать в структуру rec. НО БЛЯТЬ НЕ ХОЧЕТ, ВАЙ?

 

Офк нуб в паскале гугл 2 ссылки не помогли.

В паскале мб как и в С в функцию передается копия объекта? Тогда надо передавать указатель, а внутри по указателю пихать.

Либо напиши функцию, а не процедуру, которая будет возвращать тебе твою структуру.

В паскале есть указатели?  :avtorklif:

 

Ща поищу.

             _██_     _██_
         ( ง ͠° ͟ʖ ͡°)ง  \(°ᴗƪ)

Поделиться сообщением

Ссылка на сообщение

Kant   

Kant

Коротко, сделал свою структуру, обьявил её

 

 

jilec = record

      NOMKV : string[5];

      FNAME : string[20];

      LNAME : string[15];

      VOZ : word;

      WORK : word;

 

      PSTUD : string[20];

      PWORK : string[20];

      TRUD : word;

      GODVI : word;

end;

 

var

rec : jilec;

 

 

Дальше, есть процедура ввода значений

 

Procedure vvod (a : jilec);

begin

 

WriteLn ('‚ўҐ¤ЁвҐ ­®¬ҐаЄў авЁал.');

ReadLn (a.NOMKV);

WriteLn ('‚ўҐ¤ЁвҐ д ¬Ё«Ёо.');

ReadLn (a.FNAME);

WriteLn ('‚ўҐ¤ЁвҐ Ё¬п.');

ReadLn (a.LNAME);

WriteLn ('‚ўҐ¤ЁвҐ ў®§а бв.');

ReadLn (a.VOZ);

WriteLn ('‚ўҐ¤ЁвҐ бў®о § ­пв®бвм(“祭ЁЄ-1,ђ Ў®зЁ©-2,ЏҐ­бЁ®­Ґа-3)');

ReadLn (a.WORK);

 

WriteLn ('‚ўҐ¤ЁвҐ ¬Ґбв® г祡л.');

ReadLn (a.PSTUD);

WriteLn ('‚ўҐ¤ЁвҐ ¬Ґбв® а Ў®вл.');

ReadLn (a.PWORK);

WriteLn ('‚ўҐ¤ЁвҐ ва㤮ў®© бв ¦.');

ReadLn (a.TRUD);

WriteLn ('‚ўҐ¤ЁвҐ Ј®¤ ўл室  ­  ЇҐ­бЁо');

ReadLn (a.GODVI);

 

end;

 

 

И если я сделаю вот так

vvod(rec);

 

То она должна записывать в структуру rec. НО БЛЯТЬ НЕ ХОЧЕТ, ВАЙ?

 

Офк нуб в паскале гугл 2 ссылки не помогли.

В паскале мб как и в С в функцию передается копия объекта? Тогда надо передавать указатель, а внутри по указателю пихать.

Либо напиши функцию, а не процедуру, которая будет возвращать тебе твою структуру.

В паскале есть указатели?  trollface.gif

 

Ща поищу.

через ^ обозначались вроде

Торжество разума в том, чтобы уживаться с теми, у кого этого разума нет. Вольтер.
Чтобы хорошо высыпаться, нужно спать 8 часов в день. И еще столько же ночью.

Поделиться сообщением

Ссылка на сообщение

Droed   

Droed

Хуй знает, не хочет передаваться. Пошел функции делать.

             _██_     _██_
         ( ง ͠° ͟ʖ ͡°)ง  \(°ᴗƪ)

Поделиться сообщением

Ссылка на сообщение

justice_st   

justice_st

пиши на сишарпе и докажи преподу что паскаль юзлесс хуита

Поделиться сообщением

Ссылка на сообщение

Droed   

Droed

пиши на сишарпе и докажи преподу что паскаль юзлесс хуита

Её похуй, я просил даже на делфи.

             _██_     _██_
         ( ง ͠° ͟ʖ ͡°)ง  \(°ᴗƪ)

Поделиться сообщением

Ссылка на сообщение

Droed   

Droed

тяжелый случай :zloy:

Да.

 

Я бы лучше бы посвятил это время с++, НО НЕТ БЛЯТЬ 1 КУРС ПАСКАЛЬ СДЕЛАЛИ И ТЫ СДЕЛАЕШЬ.

 

Сука ебанутый язык ненависть сука.

             _██_     _██_
         ( ง ͠° ͟ʖ ͡°)ง  \(°ᴗƪ)

Поделиться сообщением

Ссылка на сообщение
Гость
Эта тема закрыта для публикации сообщений.
Перейти к списку тем
×
×
  • Создать...