-
Boomburum АВТОР18 дек 05Если кому интересно:
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 -
-
Boomburum АВТОР17 дек 05неа :( Старая бабка принимала седня тока исправления контрольной работы (то что на желтом листе). Мне ее решили...но надо было обязательно с процедурой :) Вощем пролетел седня :(( Может еще получится исправить...лучше б я поспал этой ночью, а то ваще не ложился....
-
-
-
N16 дек 05задачи все однотипны... нахождение минимума максимума... таких задач полно в инете... на любых языках...
ЗЫ: и по опыту... у нас как-то тоже была такия ботва нада было сдавать блок-схему и прогу... по правилам нада сделать сначала блок схему и тока потом кодить... но для здачи завтра вчерашнего зачота это не подходит... если кодить можешь хоть чуток пеши сразу код.. а потом операторы языка заменяй на "операторы" блоксхемы.. сам памоч не смогу... разбираюсь с методом Квайна-Мак-Класки... зачоты мать их....
ЗЫЫ: по поповду смерти паскаля..не согласен... на нем не плохо учиться программить... да и потом есть Делфи... ООП изучать намного проще зная синтаксис языка, и уметь сторить алгоритмы... -
-
-
Сделано с
NoNaMe