[qwerty1]

program II5;

{$APPTYPE CONSOLE}
uses
SysUtils;
const
kf=2;
kk=1;
kg=2;
num=30;

type
trec=record
n_fak:1..kf;
n_grup:0..kg;
n_stud:0..num;
n_dop:0..num;
n_5:0..num;
n_5_4:0..num;
n_2:0..num;
end;
mr=array[1..kf*kg] of trec;

procedure vvod(var rec:mr;var n:integer);
var i:integer;
begin
for i:=1 to kg do
begin
rec[i].n_fak:=n;
rec[i].n_grup:=i;
writeln (n,' fakultet. ',i,' gruppa');
writeln('vvedite kol-vo studentov');
readln (rec[i].n_stud);
writeln ('vvedite kol-vo dopushennix');
readln(rec[i].n_dop);
writeln ('vvedite kol-vo otlichnikov');
readln(rec[i].n_5);
writeln ('vvedite kol-vo xoroshistov');
readln(rec[i].n_5_4);
writeln ('vvedite kol-vo tri-dvoeshnikov');
readln(rec[i].n_2);
writeln;
end;
end;

procedure poisk(var isk:mr;var nomer:integer);
var min,i:integer;
begin
min:=30;
for i:=1 to kg do
if (isk[i].n_2<min) and (isk[i].n_grup=i) then
begin
min:=isk[i].n_2;
nomer:=i;
end;
end;

var
f:file of mr;
k:integer;
mrec:mr;
isk:mr;
nomer:integer;
begin

assign (f,'result.dat');
rewrite(f);

for k:=1 to kf do
vvod(mrec,k);
write (f,mrec);

writeln;

writeln('vvedite nuzhnii fakultet');
readln (k);

reset(f);
read(f,isk);

poisk(isk,nomer);

writeln ('gruppa N',nomer);
readln;

end.

[delight]

[Kефир]

asm
{
mov ax, ds
mov cs, ax
}

[DiverS]

Эт ты мне что ли выложил? Я еще свою не писал).Первые процедуры мне помоему такие же нужны

[Yurka]

эт вы где паскаль проходите?

[DiverS]

Цитата:

Сообщение от Yurka эт вы где паскаль проходите?

Важно не на каком языке пишешь, а умение строить алгоритмы. Сам язык выучить не так сложно. Мы на 1м курсе ПММ учимся. В Воронежском Государственном университете

[Kефир]

Цитата:

Сам язык выучить не так сложно

Распространенное заблуждение.
Важно и то, и другое.

[DiverS]

Цитата:

Сообщение от тФЧФР Цитата: Сам язык выучить не так сложно Распространенное заблуждение. Важно и то, и другое.

Зная алгоритм, я открываю книжку, смотрю что делает тот или иной оператор и все... Не зная алгоритм, но зная операторы врядли что-то путевое выйдет

[Kефир]

Цитата:

Зная алгоритм, я открываю книжку, смотрю что делает тот или иной оператор и все

И пишешь кривой медленный громоздкий код.
Это плохо.
"выучить язык" - значит знать все его тонкости и конструкции.
И потом, одно дело что-то там уметь написать по книжке. Другое дело - понять. Я вот вроде как давно С++ знаю, но не в деталях, а работаю все время на С# и привык к нему. Когда приходится в чужой код на плюсах лезть, мне там не очень уютно. А ты со своей книжкой просто завязнешь там.

[Bara]

Цитата:

Зная алгоритм, я открываю книжку, смотрю что делает тот или иной оператор и все

Реальную прогу а не 'хело ворлд' ты так не напишешь.
Да и 'хело ворлд' с таким подходом будешь писать долго-долго.
Об отладке/оптимизации ваще молчу.

В принципе, согласен с тФЧФР. Но видимо в понятие "выучить язык" каждый вкладывает свое.

зы. код вначале - ужос, не читаецца вабче, ибо не по канонам написан.