Сессия

[BATT_COH offline]

Nikk, что-то у нас похожие расписания экзаменов .У меня Химия(тож завалил)-инфа-вышка-физика
Желаю тебе и себе не вылететь из универа :D

[* offline]

MonkRo,
Д/З..че такое?...
По графикам сможешь помочь прогу сделать в Турбо паскале?..

[Nikk offline]

BATT_COH тебе (себе :) ) тогоже.

[MonkRo offline]

*,
Д/З - домашнее задание?
А че за графики нада? Случаем не численные методы?
Вообще задание напиши.

[atlon offline]

Сдал 4 зачёта, 3 экзамена Остался ещё один (история) послезавтра, и 2 на перездачу... ploho

[atlon offline]

А, да! А усусь я в Сибирском Государственном АэроКосмическом Университете (СибГАУ), по специальности инженер ракетных двигателей... ВОТ ТАК! :insane:

[Garald offline]

сессия---->ssssssuuuuuxxxxx

зачеты все!
экзамена 2 из 3, на 4 и 3 :puke: Трояк буду пересдавать... :tratata:

Учусь ХимФак МГУ 4 курс :super:

[shapka offline]

Garald, засранец (извени), но Лутще попой сЪехать с терки чем учиться на пятерки

[Garald offline]

shapka, нее, мне в аспирантуру нужно попасть, так что трояки не канают, а пятерок у меня и так нету, пости :frown:

[shapka offline]

Garald, мне по сути надо 2высших ((

[Sedmiko offline]

Для меня сессия - часть каникул. В первый месяц семестра сделал и сдал все лабы и курсачи (чего там делать-то, программки простейшие написать вроде реализации FFT с оптимизацией под SSE), тем самым заработал автоматы по всем предметам (так как первым сдал) - а все остальное время, включая сессию - ХА-ЛЯ-ВА!

[Lucifer5 offline]

А я сегодня сдал (уже) все экзамены!!! Все на 4 !!! Всё пучком!

[Garald offline]

Лана, я пошел сдавать последний...физхимию... :frown:
Может быть еще вернусь confused

[Arhat offline]

Бедные вы люди, я все отсдавал и осталось только 19-го с
ехидной улыбкой протянуть преподу зачетку - у меня по философии
автомат

[* offline]

Седня сдал Теорию Государтсва иПрава..на 3..фак..4 в самом конце сорвалась обидно..млин..
MonkRo,
Program lab5;
uses wincrt;
Type TArray=Array[1..10,1..10] of real;
var A,B: TArray; n,m,k,l: Byte; h: Char; Ar:real; f:real;
Procedure InMatr1(var x:TArray; row,col:Byte);
Var d,i,j:Byte; S,y:String;
begin
for i:=1 to row do begin
y:=''; d:=WhereY;
GotoXY(1,d);
for j:=1 to col do begin
readln(x[i,j]);
Str(x[i,j]:8:1,s);
y:=y+S;
GotoXY(Length(y),d);
end;
writeln;
end;
end;
Function Proiz(x:TArray;row,col:Byte): real;
Var S:Real; i,j:Byte;
begin
S:=1;
For i:=1 to row do
if x[i,i]<>0 then
For j:=1 to col do
S:=S*x[i,j];
Proiz:=S;
end;
Procedure Print(x:TArray;row,col:Byte);
Var i,j:Byte;
begin
For i:=1 to row do
For j:=1 to col do begin
Write(x[i,j]:8:2,'');
end;
writeln;
end;
BEGIN
writeln('Введите число строк и столбцов матрицы А не больше 10');
readln(n,m);
writeln('Введите число строк и столбцов матрицы В не больше 10');
readln(k,l);
writeln('**********____________Матрица А__________**********');
InMatr1 (A,n,m);
writeln('**********____________Матрица В__________**********');
InMatr1 (B,k,l);
Ar:=(Proiz(A,n,m)*Proiz(B,k,l));
writeln('Их произведение=',Ar:8:0);
Ar:=(Proiz(A,n,m)*Proiz(B,k,l)/2);
writeln('Их среднее произведение=',Ar:8:0);
Readkey;
end.
здеся надо в конце переделать...надо найти произведение элементов матриц и среднее арифмитическое..