Razgovor:Računarsko programiranje

Može li neko dodati još i ove primjere u Pascalu? Ja sam pokušao, ali ne znam kako da smjestim program ispod već postoječih, a ne pored (tad se gubi čitljivost cijele stranice).

Linijska struktura:

var a, b, zbir:integer;
begin
     readln(a,b);
     zbir:=a+b;
     writeln(zbir);
end.

Razgranata struktura:

var a, b:integer;
begin
     readln(a,b);
     if b<>0 then writeln(a/b) 
        else writeln('Ne mogu dijeliti nulom');
end.

Ciklična struktura:

var a, b, zbir:integer;
begin
     zbir:=0;
     readln(b);
     for a:=1 to b do
        zbir:=zbir+a;
     writeln(zbir);
end.

Primjer algoritma kada nije poznat konačan broj iteracija sa provjerom na početku petlje

var a, zbir:integer;
begin
     zbir:=0;
     while zbir<200 do begin
        readln(a);
        zbir:=zbir+a;
     end;
     writeln(zbir);
end.

Primjer algoritma kada nije poznat konačan broj iteracija sa provjerom na kraju petlje

var a, zbir:integer;
begin
     zbir:=0;
     repeat
        readln(a);
        zbir:=zbir+a;
     until zbir>=200;
     writeln(zbir);
end.

Iskreno mislim da su primjeri i u BASIC-u i u C-u previše za ovu stranicu. Možda bi trebalo na ovoj stranici ostaviti samo kratki teoretski uvod a onda dodati posebnu stranicu sa dijagramima toka i primjerima kôda. Sidonath 13:00, 19 decembar 2007 (CET)