Ovo gore je u redu, samo imam jedan glup problem.
Ovako, zelim sve kodove koje imam stavit u jedan velik program.
Problem je u tome sto nisam radio u procedurama vec sa goto!!
U pocetku je bilo dobro, al kad je kod postao malo veci vise ne znam gdje sta ide i tko sta poziva!!I ono s atomskim brojem je glupo (mogao sam stavit to u neki string pa njega ponavljat...al dobro)
Ne da mi se sad sve prebacivat u procedure, a evo i koda (to nije ni pola koda):
Code:
program jurasoft;
uses crt;
label 0,1,2,3,4,matematika,kemija;
type datoteka=record
ime:string[20];
telefon:string[20];
end;
fajl=file of datoteka;
var x:fajl;
el:string;
b:datoteka;
br1,br2,br3,br4:integer;
izbor,izbor1,izbor2,izbor3,izbor4,izbor_elementa,izbor_predmeta,izbor_povratak,izbor_operacije:char;
begin
clrscr;
0:
begin
clrscr;
gotoxy(5,5);
writeln('Made by a JURASOFT!!');
writeln;
writeln;
gotoxy(5,7);
writeln('Press enter to get in!!');
readln;
clrscr;
writeln('GLAVNI IZBORNIK:');
writeln;
writeln('1-pokreni JuraSoft');
writeln('2-izlaz');
izbor1:=readkey;
if izbor1='1' then goto 1;
if izbor1='2' then exit;
end;
1:
begin
clrscr;
gotoxy(5,10);
writeln('Welcome to JuraSoft!!');
writeln;
writeln('1-zabava');
writeln('2-skola');
writeln('3-upis u knjigu gostiju');
izbor2:=readkey;
if izbor2='1' then goto 2;
if izbor2='2' then goto 3;
if izbor2='3' then goto 4;
readln;
goto 0;
end;
2:
begin
clrscr;
writeln('Under reconstrucston!!');
writeln;
writeln('1-povratak na glavni izbornik');
izbor3:=readkey;
if izbor3='1' then goto 0;
readln;
goto 0;
end;
3:
begin
clrscr;
writeln('Dobrodsli u dio programa namjenjen za ucenje!!');
writeln('1-matematika');
writeln('2-kemija');
writeln('3-povratak na glavni izbornik');
izbor_predmeta:=readkey;
if izbor_predmeta='1' then goto matematika;
if izbor_predmeta='2' then goto kemija;
if izbor_predmeta='3' then goto 0;
readln;
goto 0;
end;
matematika:
begin
clrscr;
writeln('Matematika-uzivajte');
writeln;
writeln;
writeln;
writeln;
writeln('Odaberite:');
writeln;
writeln('1-digitron (dva broja)');
writeln('2-povrsina i opseg pravokutnog trokuta');
writeln('3-povrsina i opseg kvadrata');
writeln('4-opseg paralelograma');
writeln('5-opseg raznostranicnog trokuta');
writeln('6-povrsina i opseg pravokutnika');
writeln('7-opseg romba');
writeln('8-opseg jednakostranicnog trokuta');
writeln('9-opseg trapeza');
writeln('0-opseg jednakokracnog trokuta');
writeln;
writeln('c-povratak na glavni izbornik');
izbor_operacije:=readkey;
writeln;
writeln;
case izbor_operacije of
'1' : begin
clrscr;
writeln('D I G I T R O N');
writeln('Upisite dva broja:');
readln(br1,br2);
writeln('Rezultat zbrajanja je ',br1+br2);
writeln('Rezultat oduzimanja je ',br1-br2);
writeln('Rezultat mnozenja je ',br1*br2);
writeln('Rezultat dijeljenja je ',br1 div br2);
readln;
goto matematika;
end;
'2' : begin
clrscr;
writeln('P R A V O K U T N I T R O K U T');
writeln('Upisite stranicu a,b,c');
readln(br1,br2,br3);
writeln('Povrsina trokuta je ',(br1*br2) div 2);
writeln('Opseg trokuta je ',br1+br2+br3);
readln;
goto matematika;
end;
'3': begin
clrscr;
writeln('K V A D R A T');
writeln('Upisite stranicu kvadrata [a]');
readln(br1);
writeln('Povrsina kvadrata je ',br1*br1);
writeln('Opseg kvadrata je ',4*br1);
readln;
goto matematika;
end;
'4': begin
clrscr;
writeln('P A R A L E L O G R A M');
writeln('Upisi stranice paralelograma [a] i [b]');
readln(br1,br2);
writeln('Opseg paralelograma je ',2*(br1+br2));
readln;
goto matematika;
end;
'5': begin
clrscr;
writeln('R A Z N O S T R A N I C A N T R O K U T');
writeln('Upisi stranice raznostranicnog trokuta [a] [b] [c]');
readln(br1,br2,br3);
writeln('Opseg raznostranicnog trokuta je ',br1+br2+br3);
readln;
goto matematika;
end;
'6' : begin
clrscr;
writeln('P R A V O K U T N I K');
writeln('Upisi stranice pravokutnika [a] [b]');
readln(br1,br2);
writeln('Povrsina pravokutnika je ',br1*br2);
writeln('Opseg pravokutnika je ',2*(br1+br2));
readln;
goto matematika;
end;
'7' : begin
clrscr;
writeln('R O M B');
writeln('Upisite stranicu romba');
readln(br1);
writeln('Opseg romba je ',4*br1);
readln;
goto matematika;
end;
'8' : begin
clrscr;
writeln('J E D N A K O S T R A N I C A N T R O K U T');
writeln('Upisite stranicu jednakostranicnog trokuta');
readln(br1);
writeln('Opseg jedankostranicnog trokuta je ',br1+br1+br1);
readln;
goto matematika;
end;
'9' : begin
clrscr;
writeln('T R A P E Z');
writeln('Upisite stranice trapeza [a] [b] [c] [d]');
readln(br1,br2,br3,br4);
writeln('Opseg trapeza je ',br1+br2+br3+br4);
readln;
goto matematika;
end;
'0': begin
clrscr;
writeln('J E D N A K O K R A C A N T R O K U T');
writeln('Upisite stranice jednakokracnog trokuta [a] [b]');
readln(br1,br2);
writeln('Opseg jednakokracnog trokuta je ',br1+br2+br2);
readln;
goto matematika;
end;
'c' : goto 0;
end;
readln;
goto 0;
end;
kemija:
begin
clrscr;
writeln('Kemija-uzivajte!');
writeln;
writeln;
writeln;
writeln('1-pokazuje atomski broj svakog elementa');
writeln;
writeln('2-povratak na glavni izbornik');
izbor_elementa:=readkey;
case izbor_elementa of
'1':begin
clrscr;
writeln('Upisite simbol elementa [malim slovima]');
readln(el);
clrscr;
if el='h' then writeln('Atomski broj tog elementa je 1,008 ');
if el='li' then writeln('Atomski broj tog elementa je 6,941 ');
if el='na' then writeln('Atomski broj tog elementa je 22,99 ');
if el='k' then writeln('Atomski broj tog elementa je 39,10 ');
if el='rb' then writeln('Atomski broj tog elementa je 85,47');
if el='cs' then writeln('Atomski broj tog elementa je 132,9 ');
if el='fr' then writeln('Atomski broj tog elementa je 223');
if el='be' then writeln('Atomski broj tog elementa je 9,012');
if el='mg' then writeln('Atomski broj tog elementa je 24,31');
if el='ca' then writeln('Atomski broj tog elementa je 40,08');
if el='sr' then writeln('Atomski broj tog elementa je 87,62');
if el='ba' then writeln('Atomski broj tog elementa je 137,3');
if el='ra' then writeln('Atomski broj tog elementa je 226');
if el='sc' then writeln('Atomski broj tog elementa je 44,86');
if el='y' then writeln('Atomski broj tog elementa je 88,91');
if el='lu' then writeln('Atomski broj tog elementa je 174,97');
if el='lr' then writeln('Atomski broj tog elementa je -');
if el='ti' then writeln('Atomski broj tog elementa je 47,90');
if el='zr' then writeln('Atomski broj tog elementa je 91,22');
if el='hf' then writeln('Atomski broj tog elementa je 178,5');
if el='unq' then writeln('Atomski broj tog elementa je -');
if el='v' then writeln('Atomski broj tog elementa je 50,94');
if el='nb' then writeln('Atomski broj tog elementa je 92,91');
if el='ta' then writeln('Atomski broj tog elementa je 180,9');
if el='unp' then writeln('Atomski broj tog elementa je -');
if el='cr' then writeln('Atomski broj tog elementa je 52,00');
if el='mo' then writeln('Atomski broj tog elementa je 95,94');
if el='w' then writeln('Atomski broj tog elementa je 183,9');
if el='unh' then writeln('Atomski broj tog elementa je -');
if el='mn' then writeln('Atomski broj tog elementa je 54,94');
if el='tc' then writeln('Atomski broj tog elementa je 97');
if el='re' then writeln('Atomski broj tog elementa je 186,2');
if el='uns' then writeln('Atomski broj tog elementa je -');
if el='fe' then writeln('Atomski broj tog elementa je 55,85');
if el='ru' then writeln('Atomski broj tog elementa je 101,1');
if el='os' then writeln('Atomski broj tog elementa je 190,2');
if el='uno' then writeln('Atomski broj tog elementa je -');
if el='co' then writeln('Atomski broj tog elementa je 58,93');
if el='rh' then writeln('Atomski broj tog elementa je 102,9');
if el='ir' then writeln('Atomski broj tog elementa je 192,2');
if el='unp' then writeln('Atomski broj tog elementa je -');
if el='ni' then writeln('Atomski broj tog elementa je 58,70');
if el='pd' then writeln('Atomski broj tog elementa je 106,4');
if el='pt' then writeln('Atomski broj tog elementa je 195,1');
if el='cu' then writeln('Atomski broj tog elementa je 63,55');
if el='ag' then writeln('Atomski broj tog elementa je 107,9');
if el='au' then writeln('Atomski broj tog elementa je 197,0');
if el='zn' then writeln('Atomski broj tog elementa je 65,38');
if el='cd' then writeln('Atomski broj tog elementa je 112,4');
if el='hg' then writeln('Atomski broj tog elementa je 200,6');
if el='b' then writeln('Atomski broj tog elementa je 10,81');
if el='al' then writeln('Atomski broj tog elementa je 26,98');
if el='ga' then writeln('Atomski broj tog elementa je 69,72');
if el='in' then writeln('Atomski broj tog elementa je 111,4');
if el='tl' then writeln('Atomski broj tog elementa je 204,4');
if el='c' then writeln('Atomski broj tog elementa je 12,01');
if el='si' then writeln('Atomski broj tog elementa je 28,09');
if el='ge' then writeln('Atomski broj tog elementa je 72,59');
if el='sn' then writeln('Atomski broj tog elementa je 118,7');
if el='pb' then writeln('Atomski broj tog elementa je 207,2');
if el='n' then writeln('Atomski broj tog elementa je 14,01');
if el='p' then writeln('Atomski broj tog elementa je 30,97');
if el='as' then writeln('Atomski broj tog elementa je 74,92');
if el='sb' then writeln('Atomski broj tog elementa je 121,8');
if el='bi' then writeln('Atomski broj tog elementa je 209,0');
if el='o' then writeln('Atomski broj tog elementa je 16');
if el='s' then writeln('Atomski broj tog elementa je 32,06');
if el='se' then writeln('Atomski broj tog elementa je 78,96');
if el='te' then writeln('Atomski broj tog elementa je 127,6');
if el='po' then writeln('Atomski broj tog elementa je 209');
if el='f' then writeln('Atomski broj tog elementa je 19,00');
if el='cl' then writeln('Atomski broj tog elementa je 35,45');
if el='br' then writeln('Atomski broj tog elementa je 79,90');
if el='i' then writeln('Atomski broj tog elementa je 126,9');
if el='at' then writeln('Atomski broj tog elementa je 210');
if el='he' then writeln('Atomski broj tog elementa je 4,003');
if el='ne' then writeln('Atomski broj tog elementa je 20,18');
if el='ar' then writeln('Atomski broj tog elementa je 39,95');
if el='kr' then writeln('Atomski broj tog elementa je 83,80');
if el='xe' then writeln('Atomski broj tog elementa je 131,3');
if el='rn' then writeln('Atomski broj tog elementa je 222');
readln;
goto 0;
end;
'2':goto 0;
end;
readln;
goto 0;
end;
4:
begin
clrscr;
assign(x,'korisnici.txt');
rewrite(x);
seek(x,filesize(x));
writeln('Upisite svoje ime:');
readln(b.ime);
writeln('Upisite broj vaseg telefona:');
readln(b.telefon);
write(x,b);
close(x);
readln;
clrscr;
write('1-povratak na glavni izbornik');
izbor4:=readkey;
if izbor4='1' then goto 0;
readln;
end;
end.