Platforma za kviz

Eto nesto nabrzinku napravio u pascalu 😄

evo izvoran kod:

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

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

System32 wrote on April 30, 2011, 8:08 pm:

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

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

Mario Velickovski wrote on April 30, 2011, 8:08 pm:

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.