Platforma za kviz

Započeo [IF] mariomako, April 30, 2011, 18:38:51 POSLE PODNE

prethodna tema - sledeća tema

0 članova i 1 gost pregledaju ovu temu.

Eto nesto nabrzinku napravio u pascalu :D

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 :D 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?
Uskoro novi stunt server iStunt. DoÄ'ite i zabavite se!




   
   




Dizajniram za $$$
Popis stvari koje radim:

Wallpaper √  Signature ×  Logo √  Dizajn stranice (Ne kodiranje) √  Baner √  Avatar √  Animacija √  Intro √

Citat: System32 poslato April 30, 2011, 22:08:28 POSLE PODNE
cemu ovu slzuti, to ti nesto u C++ ili koji k?

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

dragan12

Citat: Mario Velickovski poslato April 30, 2011, 22:14:35 POSLE PODNE
Citat: System32 poslato April 30, 2011, 22:08:28 POSLE PODNE
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.