Sveiki,
Varbut kaada no gudraakam galvam vares man palidzet ar manu problemu un pastastit/apskaidrot , ka es sho problemu varetu risinat.
Taatad, man jaizpidla sekojosh uzdevums :jaatrod 2 mazako masiva elementu summa un ja ta ir lielaka par 10 jasakarto masivs augosha seciba, rezultats jaizvada uz ekrana un text faila.masiiva apstradi javeic ar ieksheji proceduru, risinajums javeic ar 4 limenju programmu,datus no faila atlauts ievadit tikai vienreiz apaksprogrammas nedrikst saturet ievada/izvada operatorus.

Taatad, pashu programmu kas nosaka summu es esmu uzrakstijis, bet problema taada, ka tikai ar 3 limeniem, un nav ne jausmas , ka varetu dabut velvienu limeni

Mans kods :

program Lab2;
uses CRT;
const ElSk=20;
InpFileName='2labors.txt';
type MyMas=array[1..ElSk] of integer;
var ms: MyMas;
InpFile,
OutFile
:TEXT;
i, summa2 : integer;
ch : char; OutfileName: string;
label TESTING, ENDING;

procedure BUBLE( var a: MyMas) ;forward;

procedure PROCMAS( var a: MyMas; var S2: integer);
var i : integer;

function SUM2( A:MyMas) :integer;

var i, sum : integer;
begin
BUBLE(a);
sum:=0;
for i:=1 to 2 do
sum:=sum+a[i];
SUM2:=sum;
end;

begin
S2:=sum2(a);


if (S2>10) then
BUBLE(a);
end;

procedure BUBLE( var a: MyMas);
var i, j, temp : integer;
begin
for i:=1 to ElSk-1 do
for j:=i+1 to ElSk do
if a[i]> a[j] then
begin temp:= a[i];
a[i]:=a[j];
a[j]:=temp;
end;
end;

begin
Assign(InpFile, InpFileName );
Reset(InpFile);
writeln(' ievadi rezultata faila vaardu');
readln(OutFileName);
assign(OutFile, OutFilename);
rewrite(OutFile);
TESTING: CLRSCR;
for i:=1 to ElSk do
Read(InpFile, ms[i]);
if EOF(InpFile) then goto ENDING;
writeln( 'Ievaditie dati');
for i:=1 to ElSk do
begin
write(' "', i:2,'" ', ms[i]:4, ' ');
write(Outfile, ms[i]:3);
end;
PROCMAS( ms, summa2);
writeln(Outfile);
writeln( 'divu mazako masiva elementu summa ir ', summa2);
writeln(Outfile, 'divu mazako masiva elementu summa ir ', summa2);
writeln('REZULTATA MASIVS');
for i:=1 to ElSk do
begin
write(' "', i:2,'" ', ms[i]:4, ' ');
write(Outfile, ms[i]:3);
end;
writeln(' Ievadi y vai Y lai turpinatu vai ko lai beigtu');
readln(Ch);
if (ch='Y') or (ch='y') then goto TESTING;
ENDING: close(InpFile); close(OutFile);
end.

Buutu pateicigs, ja kads zinoshak apskaidrotu

kas ir 4 līmeņi? t.i. kas ir līmenis? o_O

tavs kods izskatās pretīgi.
ir tāds [code] tags.

un palasi te par smuku kodu: Programming style (wiki) (Ident un Spaces)

un kādā valodā jāprogrammē?
izskatās pēc Pascal, bet ko tur pie velna dara GoTo? ja tev tā iemācīja skolotājs/pasniedzējs - nošauj viņu

(10.03.2010 00:34 )Zaķītis-Kaķītis rakstīja:  kas ir 4 līmeņi? t.i. kas ir līmenis? o_O

tavs kods izskatās pretīgi.
ir tāds [code] tags.

un palasi te par smuku kodu: Programming style (wiki) (Ident un Spaces)

un kādā valodā jāprogrammē?
izskatās pēc Pascal, bet ko tur pie velna dara GoTo? ja tev tā iemācīja skolotājs/pasniedzējs - nošauj viņu

nu ka, limenji ir jasaprot shadi:
1. limenis - Const Elsk = 20; Type MyMas=array [1..Elsk] of integer;
2.limenis - Procedure ProcMas(var a : MyMas;
var s2 : Integer)
{ja masīva divu mazāko elementu summa lielaka par 10, sakarto masiivu} un Procedure Buble( var a : Mymas)
{sakārto masīvu ar burbuļu metodi}
3. liimenis - Function Sum2(a : Mymas) : integer
{nosaka masīva divu mazāko elementu summu}

Par GoTo lietošanu vai propogandēšanu vajag uzreiz pakārt. Lai gan kad sāku, man likās, ka GoTo rullē, viss tik vienkārši izdarāms - ej kur gribi

(10.03.2010 09:11 )Uģis Lazdiņš rakstīja:  Par GoTo lietošanu vai propogandēšanu vajag uzreiz pakārt. Lai gan kad sāku, man likās, ka GoTo rullē, viss tik vienkārši izdarāms - ej kur gribi

nu ja, shitos goto mums boree ieksha

(10.03.2010 09:11 )Uģis Lazdiņš rakstīja:  Par GoTo lietošanu vai propogandēšanu vajag uzreiz pakārt. Lai gan kad sāku, man likās, ka GoTo rullē, viss tik vienkārši izdarāms - ej kur gribi

Paskālā kaut ko esmu kaut ko darījis sensenos laikos vidusskolā, varbūt varētu kāds paskaidrot ar ko tas "GoTo" ir tik ļoti slikts?

(10.03.2010 07:32 )iesaacejs rakstīja:  nu ka, limenji ir jasaprot shadi:
1. limenis - Const Elsk = 20; Type MyMas=array [1..Elsk] of integer;
2.limenis - Procedure ProcMas(var a : MyMas;
var s2 : Integer)
{ja masīva divu mazāko elementu summa lielaka par 10, sakarto masiivu} un Procedure Buble( var a : Mymas)
{sakārto masīvu ar burbuļu metodi}
3. liimenis - Function Sum2(a : Mymas) : integer
{nosaka masīva divu mazāko elementu summu}

nu tad jau tev ir 4 līmeņi.
4. līmenis - galvenā programma Begin - End.

(10.03.2010 10:17 )Andreass Šulcs rakstīja:  Paskālā kaut ko esmu kaut ko darījis sensenos laikos vidusskolā, varbūt varētu kāds paskaidrot ar ko tas "GoTo" ir tik ļoti slikts?

Dievs radīja funkcijas un ciklus, lai nebūtu jālieto GoTo.

Pašā GoTo nav nekas slikts, vnk viņa lietošana ir stulba.
Un ja jau lieto GoTo, tad var iztikt bez funkcijām.
Īsās prgrammās tev ir labi redzams, kas un kā. A uzraksti piem. 500 rindiņas ar vairākiem GoTo.

Go To Statement Considered Harmful

"GOTO Considered Harmful" Considered Harmful

“Considered Harmful” Essays Considered Harmful