Gal kas susiduret su algoritmais??? Kuo toliau tuo didesnis miskas man... Gal kas galetu padet ar ant kelio uzvest ??? dekui
Kazkokia pradzia yra bet gal su duomenim supjoviau...
http://img717.imageshack.us/img717/3285/10348007.png
Su integer padariau, tyngiu zaist su dideliais skaiciais... Random parenka nuo 1 iki 100(pagamintu detaliu sk.). Mas1, mas2, mas3 tai kiekvienam cechui priskirtas detaliu kiekis pagal dirbtu dienu skaiciu. Sum1, sum2, sum3 tai detaliu pagamintu per N dienu suma,
program Noname0;
var mas1 : array[1..3000] of integer; //pirmos imones masyvas
mas2 : array[1..3000] of integer; //antros imones masyvas
mas3 : array[1..3000] of integer; //trecios imones masyvas
n, i, sum1,sum2,sum3, min: integer;
Begin
writeln('Iveskite dirbtu dienu skaiciu');
read (n); //dienu skaicius
begin
for i := 1 to n do
mas1[i] := random(100);
end;
begin
sum1:=0;
for i := 1 to n do
sum1:=sum1+mas1[i];
end;
begin
for i := 1 to n do
mas2[i] := random(100);
end;
begin
sum2:=0;
for i := 1 to n do
sum2:=sum2+mas2[i];
end;
begin
for i := 1 to n do
mas3[i] := random(100);
end;
begin
sum3:=0;
for i := 1 to n do
sum3:=sum3+mas3[i];
end;
if sum1<sum2 then
if sum1<sum3 then
min:=sum1
else
min:=sum3
else
if sum2<sum3 then
min:=sum2
else min:=sum3;
writeln('Pirmas cechas pagamino');
writeln (sum1);
writeln('Antras cechas pagamino');
writeln (sum2);
writeln('Trecias cechas pagamino');
writeln (sum3);
if min=sum1 then
writeln('Maziausiai pagamino pirmas cechas')
else
if min=sum2 then
writeln('Maziausiai pagamino antras cechas')
else writeln('Maziausiai pagamino trecias cechas');
readln;
readln;
end.
Gatai ziuriu db ir vistiek nekertu, kas pagal dvimai turetu keistis ??? VB kalba tink ar ir nesamone ???? Da pracekinau ta VB kalba , tai man visa raudonuoj, sintakses problemas meta... banadau taisyt pagal sava lentele tai sss gaunas...
