Паскаль

[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]

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

[-ScutuM-]

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

[Kant]

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

[Droed]

  Цитата

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

Да ты прав.

 

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

 

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

[Android3r]

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

[lolius4]

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

[Deauxma]

  Цитата

  Цитата

  Цитата

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

Да ты прав.

 

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

 

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

:lol:

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

[Droed]

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

[Android3r]

  Цитата

  Цитата

  Цитата

  Цитата

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

Да ты прав.

 

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

 

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

:lol:

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

юзлес полный

[Android3r]

  Цитата

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

функции 

покидаю тред

[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 ссылки не помогли.

Показать больше  

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

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

[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 ссылки не помогли.

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

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

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

 

Ща поищу.

[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 ссылки не помогли.

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

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

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

 

Ща поищу.

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

[Droed]

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

[justice_st]

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

[Droed]

  Цитата

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

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

[justice_st]

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

[Droed]

  Цитата

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

Да.

 

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

 

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