Tema: programiranje...

[canem]

ima li neko da se bavi programskim jezicima...
ja pokusavam da ucim pascal i delphi....

[canem]

evo mog pokusaja da napravim nesto...
program za izracunavanje pitagorine teoreme... pisan u pascalu...
komentari su vise nego dobrodosli...

Kod: [Izaberi]

program pitagora;
uses crt, graph;
label pocetak;
var stranicaA, stranicaB, stranicaC: real;
    mjedinica: string;
    izbor : string;
    y_OR_n: char;
function pitteorema_hipotenuza(stranicaA : real; stranicaB : real): real;
  begin
  pitteorema_hipotenuza := sqrt(stranicaA * stranicaA + stranicaB * stranicaB);
  end;
function pitteorema_katetaA(stranicaC : real; stranicaB : real): real;
  begin
  pitteorema_katetaA := sqrt(stranicaC * stranicaC - stranicaB * stranicaB);
  end;
function pitteorema_katetaB(stranicaC : real; stranicaA : real) : real;
  begin
  pitteorema_katetaB := sqrt(stranicaC * stranicaC - stranicaA * stranicaA);
  end;
begin
pocetak : clrscr;
gotoxy(34, 1);
textcolor(4);
write('coded by canem');
gotoxy(20, 3);
writeln('program obradjuje pitagorinu teoremu');
gotoxy(1, 7);
writeln('1. izracunaj stranicu "a"');
writeln('2. izracunaj stranicu "b"');
writeln('3. izracunaj stranicu "c"');
writeln('4. izlaz');
writeln;
write('izaberi...');
read(izbor);
    if izbor = '1' then
      begin
    clrscr;
    write('unesi vrednost stranice c: ');
    readln(stranicaC);
    write('unesi vrednost stranice b: ');
    readln(stranicaB);
    repeat
    write('unesi mernu jedinicu... enter : [m ilin cm] : ');
    readln(mjedinica);
    until (mjedinica = 'm') or (mjedinica = 'cm');
    writeln('rezultat koji ste trazili je: ', pitteorema_katetaA(stranicaC, stranicaB):2:3, mjedinica);
    readkey;
    goto pocetak;
      end;
    if izbor = '2' then
      begin
    clrscr;
    write('unesi vrednost stranice c: ');
    readln(stranicaC);
    write('unesi vrednost stranice a: ');
    readln(stranicaA);
    repeat
    write('unesi mernu jedinicu... enter : [m ilin cm] : ');
    readln(mjedinica);
    until (mjedinica = 'm') or (mjedinica = 'cm');
    writeln('rezultat koji ste trazili je: ', pitteorema_katetaB(stranicaC, stranicaA):2:3, mjedinica);
    readkey;
    goto pocetak;
      end;
    if izbor = '3' then
      begin
    clrscr;
    write('unesi vrednost stranice a: ');
    readln(stranicaA);
    write('unesi vrednost stranice b: ');
    readln(stranicaB);
    repeat
    write('unesi mernu jedinicu... enter : [m ilin cm] : ');
    readln(mjedinica);
    until (mjedinica = 'm') or (mjedinica = 'cm');
    writeln('rezultat koji ste trazili je: ', pitteorema_hipotenuza(stranicaA, stranicaB):2:3, mjedinica);
    readkey;
    goto pocetak;
      end;
    if izbor = '4' then
      begin
    clrscr;
    write('jeste li sigurni...  y ili n :');
    y_OR_n := readkey;
    if y_OR_n = 'y' then halt;
    if y_OR_n = 'n' then goto pocetak;
      end;
end.


[Sklerozica]

Ups, ja sam zalutao ovde. 

Canem samo teraj. O programiranju ne znam ništa pa komentar od mene je samo podrška.

[canem]

...evo jos nesto...

Kod: [Izaberi]

program test_rezultati;
uses crt;
const brojstudenata=5;
      tab='    ';
var rezultat:array[1..brojstudenata]of real;
    suma,prosek:real;
    brojac:byte;
begin
  clrscr;
  for brojac:=1 to brojstudenata do
    begin
    write('rezultat studenta broj #', brojac,': ');
    readln(rezultat[brojac]);
    suma:=suma+rezultat[brojac];
    end;
    writeln;
    writeln(tab,'student #',tab,'rezultat');
    writeln(tab,'----------------------');
    for brojac:=1 to brojstudenata do
      begin
          writeln(tab,' ',brojac,tab,tab,tab,rezultat[brojac]:0:2);
      end;
    writeln(tab,'-----------------------');
    writeln;
    prosek:=suma/brojstudenata;
    writeln('prosecna ocena = ',prosek:0:2);
      readkey;
end.ako nekog interesuju tutoriali za pascal neka 

[Sijedi]

Mislim da sam relativno dobar u VB-u, a o Pascalu i Delphiju pojma nemam

[vladobk]

nekada sam radio pascal i delphi ali ti savetujem VB a moze i online u php
vidi ovo
http://www.refillpen.com/trafo/tr.php
samo ubacimo pravouglitrougao