Ako ti nebude mrsko mogao si tutorijal ,a te kodove mi salji na PM mozeradio sam ja dosta, imam i nekih kodova ako ti treba. ove moje aplikacije su sve command-line, al dobro je za uèenje. èak sam i tutorial mislio napisat, al nikad naæ volje i vremena za to.
\\radio sam ja dosta, imam i nekih kodova ako ti treba. ove moje aplikacije su sve command-line, al dobro je za uèenje. èak sam i tutorial mislio napisat, al nikad naæ volje i vremena za to.
program test;
uses
crt;
var
n:integer;
s:string;
begin
clrscr;
readln(s);
n:=pos('.',s);
if n <> 0 then
writeln('Recenica je izjavna')
else if n = 0 then
begin
n:=pos('?',s);
if n <> 0 then
writeln('Recenica je upitna')
else if n = 0 then
begin
n:=pos('!',s);
if n <> 0 then
writeln('Recenica je usklicna')
else writeln('Error 1 - Nesposoban korisnik');
end;
end;
readln;
end.