Platforma za kviz

[[IF] mariomako]

Eto nesto nabrzinku napravio u pascalu

evo izvoran kod:

Kod (c) [Izaberi] Proširi

program kviz;
Uses crt;
var a:string;
procedure prasanje(p,o:string);
begin
     textcolor(white);
     writeln(p);
     readln(a);
     if a=o then
     begin
     textcolor(green);
     writeln('Tacan odgovor!');
     end
     else
     begin
     textcolor(red);
     writeln('Netacan odgovor!');
     end;
end;
begin
     writeln('Kviz platforma by Mario Velickovski');
     writeln;
     readln;
end.
*Stavio sam CODE=C jel je preglednije Inace ovo je kod u pascal

Za da dodate novo prasanje odete ispod
     writeln('Kviz platforma by Mario Velickovski');
     writeln;
ali pazite nemojte posle READLN; znaci prasanje vase dodajete ovde

WRITELN;
PRASANJE;
READLN;

prasanje dodajete sa kucanje prasanje('TEKST PRASANJA','Odgovor');

primer prasanje('Compact Disc je kratenka od...','CD');

Svi komentari su dobrodosli

[System32]

cemu ovu slzuti, to ti nesto u C++ ili koji k?

[[IF] mariomako]

cemu ovu slzuti, to ti nesto u C++ ili koji k?

pa mozes napraviti svoji kviz inace ubavo pise da je u pascalu

[dragan12]

cemu ovu slzuti, to ti nesto u C++ ili koji k?

pa mozes napraviti svoji kviz inace ubavo pise da je u pascalu

Ja sam u c++ radio kao kviz nije bilo lose za pocetak (ako nadjem kod okacicu ga). Inace dobro je samo napred uci jos i srecno sa progamskim jezicima. Sada se moram vratiti c++ kada sam video ovo.