неа :( Старая бабка принимала седня тока исправления контрольной работы (то что на желтом листе). Мне ее решили...но надо было обязательно с процедурой :) Вощем пролетел седня :(( Может еще получится исправить...лучше б я поспал этой ночью, а то ваще не ложился....
задачи все однотипны... нахождение минимума максимума... таких задач полно в инете... на любых языках...
ЗЫ: и по опыту... у нас как-то тоже была такия ботва нада было сдавать блок-схему и прогу... по правилам нада сделать сначала блок схему и тока потом кодить... но для здачи завтра вчерашнего зачота это не подходит... если кодить можешь хоть чуток пеши сразу код.. а потом операторы языка заменяй на "операторы" блоксхемы.. сам памоч не смогу... разбираюсь с методом Квайна-Мак-Класки... зачоты мать их....
ЗЫЫ: по поповду смерти паскаля..не согласен... на нем не плохо учиться программить... да и потом есть Делфи... ООП изучать намного проще зная синтаксис языка, и уметь сторить алгоритмы...
Я на первом курсе решал приблизительно то же самое, только без компа, и даже без малейшего опыта мышкодержания... Приходилось на кафедре до поздна сидеть, а потом ночью херачить на другой конец города.
Комментарии
1.4.3.26
Опредить номер наименьшего из значений корень квадратный из (e в степени Сi) — Аi в квадрате (не под корнем)
Uses
CRT;
Var
I,J,MinI:Byte;
A,C:Array[0..255] Of Integer;
MinV:Real;
N:Integer;
Begin
Write('Vvedite kolichestvo elementov I: ');
ReadLn(I);
For J:=0 To I-1 Do
Begin
Write('Vvedite element ',J+1,' (iz ',I,') massiva A: ');
ReadLn(A[J]);WriteLn;
Write('Vvedite element ',J+1,' (iz ',I,') massiva C: ');
ReadLn(C[J]);WriteLn;
End;
ClrScr;
WriteLn('Vychisleniya...');
For J:=0 To I-1 Do
Begin
If J=0 Then MinV:=Sqrt(Exp(C[J]))-Sqr(A[J]);MinI:=1;
If (Sqrt(Exp(C[J]))-Sqr(A[J]))>MinV Then
Begin
MinV:=Sqrt(Exp(C[J]))-Sqr(A[J]);
MinI:=J+1;
End;
End;
WriteLn('I pri naimenshem Sqrt(e^C[I])-A[I]^2: ',MinI);
ReadLn;
End.
- — - — - — - — - — - — -
Залача с желтого листа с процедурой
program matr;
type
thearray = array [1..5,1..5] of integer;
procedure stolbec(X : thearray; str,stol :byte);
var
i,j,k:byte;
s,m : real;
begin
s:=0;
k:=0;
m:=0;
for j:=1 to stol do
begin
for i:=1 to str do
s:=s+X[i,j];
s:=s/str;
if (j=1) then
begin
k:=1;
m:=s;
end;
if ((j>1) and (s
Программируют на СИ.
Нынче встретишь ты едва ли,
тех, кто пишет на Паскале.
8D 8D 8D 8D 8D 8D 8D 8D 8D 8D 8D 8D 8D 8D 8D
ЗЫ: и по опыту... у нас как-то тоже была такия ботва нада было сдавать блок-схему и прогу... по правилам нада сделать сначала блок схему и тока потом кодить... но для здачи завтра вчерашнего зачота это не подходит... если кодить можешь хоть чуток пеши сразу код.. а потом операторы языка заменяй на "операторы" блоксхемы.. сам памоч не смогу... разбираюсь с методом Квайна-Мак-Класки... зачоты мать их....
ЗЫЫ: по поповду смерти паскаля..не согласен... на нем не плохо учиться программить... да и потом есть Делфи... ООП изучать намного проще зная синтаксис языка, и уметь сторить алгоритмы...
засганцы. если не знаете — че тогда пишете.
я вот на си бы написал человеку — запросто — а паскалину — не знаю.
все кто апускл афтора — такие же как и его однокурсники
Хотите поговорить об этом?
а для делфи был создан ObjectPascal. Здесь товаришчь простит помочь ему с паскалем.
поддерживаю :)
Автор учись. Не когда не позно. А свои проблемы сваливать на других — изволь!
А нафиг там учиться — всё-равно выгонят.
Я на первом курсе решал приблизительно то же самое, только без компа, и даже без малейшего опыта мышкодержания... Приходилось на кафедре до поздна сидеть, а потом ночью херачить на другой конец города.
Аффтор, ну ты кадр.