-
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задачи все однотипны... нахождение минимума максимума... таких задач полно в инете... на любых языках...
ЗЫ: и по опыту... у нас как-то тоже была такия ботва нада было сдавать блок-схему и прогу... по правилам нада сделать сначала блок схему и тока потом кодить... но для здачи завтра вчерашнего зачота это не подходит... если кодить можешь хоть чуток пеши сразу код.. а потом операторы языка заменяй на "операторы" блоксхемы.. сам памоч не смогу... разбираюсь с методом Квайна-Мак-Класки... зачоты мать их....
ЗЫЫ: по поповду смерти паскаля..не согласен... на нем не плохо учиться программить... да и потом есть Делфи... ООП изучать намного проще зная синтаксис языка, и уметь сторить алгоритмы... -
-
-
-
Z16 дек 05Ну ты молодца...
Ты бы ещё на Фортране попросил написать, вот на си — другое дело..
А за прелюдное опускание одногрупов тебе позор, даже если они последние дауны, не стоит их оскорблять, сам-то небось весь симестр х"нёй страдал, а теперь всполошился...
ЗА то время, что ты сканил и печатал, мог-бы пол книги паскалю прочитать, для ламеров, помогло-бы, наверное...
З.З.Ы.
*lol*-
Boomburum АВТОР16 дек 05Я как только увидел хтмл, сразу все уловил, ксс. А сколько пхп, перл, паскаль итп не учил — нифига не учится :( Разобраться в коде соввсем немножко могу, а написать чтото — траблы :( A по поводу одногрупников..Да, я не отличник и иногда не все сдавал с первого раза..Иногда просил их помочь сделать, кто понимает и уже все здал..Закрывают глаза и говорят — я ничего не знаю. Ненавижу такое, это эгоизм. На экзамене еще ладно — мы его конкуренты, а када уже все вместе учимся — надо держаться вместе. Я вот всем стараюсь помогать...
-
J16 дек 05Чем же ты помогаешь, если ты ничего не знаешь? ))) Советами? И моральной поддержкой?
И еще запомни: в этой жизни тебе никто ничего не должен! И не стоит одногруппников обвинять в том что не хотят помогать, с какого хера им тебе помогать? И с какого хера посетителям данного сайта тебе помогать?-
17 дек 05У тебя обрезание ? Таких мудаков ненавижу! Ды их никто не любит! Таким лица до крови доводил! Учитель бля! Ты чо за быдла писать в чужом доке "И еще запомни:", лениво — не делай! Я всегда помогал своим одногрупникам в чем мог — в частности по информатике сделал лабы почти всем, благо варианты не особо отличались....
-
-
-
-
L16 дек 05Мда... Из софтового портала постепенно превращаемся в песочницу ламеров.
Компьютер значит тебе родители купили, на сканер тоже денег не пожалели — сиди, сынок, учись.
А тебе даже пару примитивных программ на простом языке Паскале лень сваять.
Еще и хочешь чтобы за тебя народ задачки решал. Еще и "срочно, горю!" И на сокурсников наезжаешь, типа не помогли — значит жиды и т.д. Что в семестре делал, пиво пил? Далеко же ты пойдёшь с таким отношением к жизни.
Тьфу, противно. Недостоин ты обладания компьютером Точка.-
Boomburum АВТОР16 дек 05Люда, дорогая. Начнем с того что на компьютер я заработал сам, на сканер тоже, родители тут ни при чем. Второе — пиво я не пью. По поводу одногруппников — подними голову выше. Я живу по принципу — относись к другому так, как хочешь чтобы относились к тебе. В своей группе я помогаю тем, кто помогает мне. Уже писал про это в другом своем доке, ищи если интересно. Еще — ноунейм уже давно не софтовый портал и никогда им таким не был. Хотябы само название говорит об этом :) а поповоду примитивных задач..да, для когото они примитивные, для когото нет. Я тоже много чего могу сделать, что для меня примитивно, но над чем ты будешь очко рвать...
-
J16 дек 05Эти задачи действительно ПРИМИТИВНЫЕ! Ну решат тебе сейчас, а как дальше учиться? Ты ж нихера не сможешь сделать, если не можешь даже такие задачи решить
-
-
-
F10 янв 06автоматическое построение блок-схем
fceditor.nm.ru
-конвертация из паскаля в блок-схему
-автоматическое выравнивание по размеру текста
-
-
F15 дек 05вот код для первой картинки для матрицы A (для B такая же хрень, только установи m и n равным 3)
вот код:
program nnm;
const n = 2;
m = 4;
var i, j, s, z: integer;
a: array [1..100, 1..100] of integer;
p: array [1..100] of real;
min: real;
begin
for j := 1 to m do
for i := 1 to n do begin
write('a[', i, ', ', j,'] = ');
readln(a[i, j]);
end;
for j := 1 to m do begin
s := 0;
for i := 1 to n do begin
s := s + a[i, j];
end;
p[j] := s / n;
end;
writeln('Output p: ');
for j := 1 to m do writeln('p[', j ,'] = ' , p[j]);
min := p[1];
z := 1;
for j := 2 to m do begin
if p[j] < min then begin
min := p[j];
z := j;
end;
end;
writeln('Min value: ', min);
writeln('Min column: ', z);
readln();
end . -
Boomburum АВТОР15 дек 05Друг реши первую задачу, за что ему большое спасибо!
Program matr;
var
a : array [1..5,1..5] of integer;
b : array [1..5,1..5] of integer;
i,j,k : integer;
s,m : real;
begin
for i:=1 to 2 do
for j:=1 to 4 do
begin
write('A[',i,',',j,'] = ');
readln(a[i,j]);
end;
writeln;
for i:=1 to 3 do
for j:=1 to 3 do
begin
write('B[',i,',',j,'] = ');
readln(b[i,j]);
end;
writeln;
s:=0;
k:=0;
m:=0;
for j:=1 to 4 do
begin
for i:=1 to 2 do
s:=s+a[i,j];
s:=s/2;
if (j=1) then
begin
k:=1;
m:=s;
end;
if ((j>1) and (s1) and (s -
F15 дек 05вот код для первой картинки для матрицы A (для B такая же хрень, только установи m и n равным 3)
вот код:
program nnm;
const n = 2;
m = 4;
var i, j, s, z: integer;
a: array [1..100, 1..100] of integer;
p: array [1..100] of real;
min: real;
begin
for j := 1 to m do
for i := 1 to n do begin
write('a[', i, ', ', j,'] = ');
readln(a[i, j]);
end;
for j := 1 to m do begin
s := 0;
for i := 1 to n do begin
s := s + a[i, j];
end;
p[j] := s / n;
end;
writeln('Output p: ');
for j := 1 to m do writeln('p[', j ,'] = ' , p[j]);
min := p[1];
z := 1;
for j := 2 to m do begin
if p[j] < min then begin
min := p[j];
z := j;
end;
end;
writeln('Min value: ', min);
writeln('Min column: ', z);
readln();
end .
Сделано с
NoNaMe