Форум АНТИЧАТ - [Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

13.01.2010, 09:37

>>serhio<<

Познающий

Регистрация: 10.02.2009

Сообщений: 40

Провел на форуме:
59352

Репутация: 0

Цитата:

Сообщение от patcher

>>serhio<<, что-то очень часто тебе нужно "помочь разобратся". Для того чтобы тебе помогли, нужно выложить свой код и сказать что именно не получается, а то у меня такое чувство, что мы тебе здесь лабу решаем) Если это так, то ты ошибся разделом---->>>>Работа .

P.S. сорри за оффтоп

Код:

Program labor6_2;
uses crt;
type
   student=record
        fam:string[15];
        inn:string[12];
        datenal:string[10];
        yearb:string[10];
        yearpos:string[10];
        kurs:string[5];
        group:string[10];
        kolvos:string[5];
        bal:string[5];
        b1,b2,b3,b4,b5,b6,b7,b8,b9,b10:2..5;
        end;
   var  stipendia:array[1..4] of student;
        s:student; i,h,f:integer;
procedure Ex;
   begin
        write('|   Familija   |');
        write('|   Data rojdenija   |');
        write('|   Ocenki za poslednuju sessiju   |');
      for i:=1 to 4 do
       with stipendia[i] do
        if f = > bal then
     begin
        writeln('|',fam:20, '  |');
        writeln('|',yearb:14, '  |');
        writeln('|',b1,b2,b3,b4,b5,b6,b7,b8,b9,b10:20, '  |');
        end;
      readkey;
   end;
begin
   clrscr;
   for  i:=1 to 4 do
   with klass[i] do
     begin
        writeln('Vvedite familiu');
        readln(fam);
        writeln('Vvedite INN');
        readln(inn);
        writeln('Vvedite datu vyda4i Svid. o post. na u4et v nal.org.');
        readln(datenal);
        writeln('Vvedite datu rojdenija');
        readln(yearb);
        writeln('Vvedite god postuplenija');
        readln(yearpos);
        writeln('Vvedite kurs');
        readln(kurs);
        writeln('Vvedite gruppu');
        readln(group);
        writeln('Vvedite kol-vo semestrov obu4enija');
        readln(kolvos);
        writeln('Vvedite po 5 ocenok za 1 i 2 semestr');
        readln(b1,b2,b3,b4,b5,b6,b7,b8,b9,b10);
        f:=b1+b2+b3+b4+b5+b6+b6+b7+b8+b9+b10;
        writeln('Vvedite srednii bal');
        readln(bal);
        end;

        clrscr;
        ex;
end.

Только вот незнаю правильно или нет, глянь пожалуйста!

Последний раз редактировалось slesh; 13.01.2010 в 10:43.. Причина: [code][/code]