Напишите кто знает код программ - Паскаль, Turbo Pascal, PascalABC.NET

sustema3 · 17.12.2010, 21:56

Напишите, пожалуйста кто может код программ:
1) вычисления детерминанта третьего порядка
и 2) создать программу, которая будет находить соотношения (в процентах) количества четных и нечетных элементов в массиве. И все это на языке Delphi.

Mad_Cat · 17.12.2010, 21:58

2)

Код:

c:=0;nc:=0;
for i:=1 to n do
if odd(a[i]) then nc:=nc+1
else c:=c+1;
c:=c/n*100;// четные
nc:=nc/n*100;// нечетные

1)

Код:

function det3(A:Tmatrix):real;
      begin
      det3:=a[1,1]*a[2,2]*a[3,3]+a[2,1]*a[3,2]*a[1,3]+
        a[3,1]*a[1,2]*a[2,3]-a[3,1]*a[2,2]*a[1,3]-a[2,1]*a[1,2]*a[3,3]-
        a[1,1]*a[3,2]*a[2,3];
      end;

Pein95 · 17.12.2010, 22:09

program Project1;

{$APPTYPE CONSOLE}
var a:array [1..20] of integer;
i,k,j:integer;
l:real;
ch,nch:real;

begin
k:=0;
j:=1;
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do
begin
if a[i]mod 2=0 then k:=k+1;
if a[i]mod 2<>0 then j:=j+1;
end;
l:=100/20;
ch:=l*k;
nch:=l*j;
writeln(ch,nch);
readln;

end.

Pein95 · 17.12.2010, 22:10

Код:

program Project1;

{$APPTYPE CONSOLE}
var a:array [1..20] of integer;
i,k,j:integer;
l:real;
ch,nch:real;

begin
k:=0;
j:=1;
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do
begin
if a[i]mod 2=0 then k:=k+1;
if a[i]mod 2<>0 then j:=j+1;
end;
 l:=100/20;
 ch:=l*k;
 nch:=l*j;
 writeln(ch,nch);
 readln;



end.

17.12.2010, 21:56	#1
sustema3 Новичок Джуниор Регистрация: 17.12.2010 Сообщений: 2	Напишите кто знает код программ Напишите, пожалуйста кто может код программ: 1) вычисления детерминанта третьего порядка и 2) создать программу, которая будет находить соотношения (в процентах) количества четных и нечетных элементов в массиве. И все это на языке Delphi.

17.12.2010, 21:58	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	2) Код: `c:=0;nc:=0; for i:=1 to n do if odd(a[i]) then nc:=nc+1 else c:=c+1; c:=c/n100;// четные nc:=nc/n100;// нечетные` 1) Код: `function det3(A:Tmatrix):real; begin det3:=a[1,1]a[2,2]a[3,3]+a[2,1]a[3,2]a[1,3]+ a[3,1]a[1,2]a[2,3]-a[3,1]a[2,2]a[1,3]-a[2,1]a[1,2]a[3,3]- a[1,1]a[3,2]a[2,3]; end;` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 17.12.2010 в 22:02.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Код в VB напишите кто нить!!!	deadalys	Помощь студентам	1	28.06.2010 16:03
Кто знает алгоритмы? Напишите задачи хочу потренироваться!	masterpro	Помощь студентам	1	08.12.2009 08:31
кто знает почему не работает код	andRR	Общие вопросы C/C++	6	14.06.2009 22:24

17.12.2010, 22:09	#3
Pein95 Форумчанин Регистрация: 25.04.2010 Сообщений: 881	program Project1; {$APPTYPE CONSOLE} var a:array [1..20] of integer; i,k,j:integer; l:real; ch,nch:real; begin k:=0; j:=1; for i:=1 to 20 do readln(a[i]); for i:=1 to 20 do begin if a[i]mod 2=0 then k:=k+1; if a[i]mod 2<>0 then j:=j+1; end; l:=100/20; ch:=lk; nch:=lj; writeln(ch,nch); readln; end.