Preskoči na sadržaj
Ista raja. Nova runda.
GAMERZ.ba — REBORN
Pitanje Riješeno 30 bodova

Turbo Pascal --- zadatak

619 pregleda · 8 odgovora · otvorena 24.03.2007. u 08:50

Evo dobio sam od profesora da rjesim jedan zadatak u Turbo Pascalu ali uvijek me zeza na jednom mijestu... Znaci cilj zadatka je da 10 puta ispise "Zdravo ime" (ime bilo koje moze).. Evo postacu ja sta sam do sada uradio pa vi promjenite i ako bude radilo 30 bodova.. Hvala


Program zdravo;
USES CRT;
VAR IME:STRING;
BEGIN
CLRSCR;
WRITELN ('UNESI IME');
IF I:=1 TO 10 DO;
WRITELN ('ZDRAVO',IME');
END.


Ovdje meni nesto nije dobro i neradi mi program.. Ajde help... Nemojte da postate ako neznate..
program uauauaua;
var i,x:integer;
begin
for i:=1 to 10 do
begin
writeln('ime');
end;
readln;
end.
ne mogu da vjerujem da ste i zadace poceli ovde pisati ...
Program zdravo;
USES CRT;
VAR IME:STRING;
i: integer;
BEGIN
WRITELN ('UNESI IME');
readln(ime);
FOR I:=1 TO 10 DO
WRITELN ('ZDRAVO',IME');
END.

eto ja mislim otprilike tako da ide a dadao ba znas ba koga ces pitati daba postas ali eto hehe ja mislim da je tako jbg davno sam ja to radio ali beze je zadatak ja sada radim u c++-u
program zelis;
var x,i:integer;
begin
writeln ('-----------------------------');
for i:=1 to 10 do
begin;
writeln (x:9);
writeln ('smarkY');
ako hoces jedan ispod drugog umjesto writeln kucaj write ....
end;
write ('-----------------------------');
readln;
end.


to je to steta sto nisam u skoli islo bi zasekundu vako nisam siguran
               ash je napisao/la:
ne mogu da vjerujem da ste i zadace poceli ovde pisati ...

U pravu si , mi smo ovo radili cak u osnovnoj skoli iz informatike, ja sam ga lako savladao ali se vise tog vremena i ne sjecam! Bilo je to dobro vrijeme ! .)
Znaci ucim se da radim pa moram traziti pomoc strucnih ljudi
Rješenje
Evo ga :



program zdravo (input,output);
var i:integer;
ime:string;
begin
writeln ('unesi neko ime');
readln (ime);
i:= 0;
repeat
writeln ('zdravo ', ime);
i:= i+1;
UNTIL i=10
end.
ljudi molim vas ako moze usluga ne znam sta da radim vidio sam da ima vas koji znaju u pascalu raditi treba mi hitno 2 zadatka ako moze neko da uradi ako nije mrsko molim vas

1.napisati program kojim se ucitavaju dva operatora x i y i ispituje da li su oni prirodni ili ne
ako su prirodni ucitati jedan od operatora
+ - * mod , div
te ispitati rezultat racunske operacije x + y
ako x i y nisu prirodni ucitati jedan od operatora
+ - * / te ispisati rezultat y = 0 (x/y)



2.Ako se sa ulaza učitaju tri prirodna broja k1,k2,k3 koji označavaju redni broj dana u godini ispitati da li oni označavaju isti dan u sedmici
Npr. isti dan u sedmici označavaju dani sa rednim brojevima 1,16,30 ili 344,351,358


Hvala unaprijed..pozz

Prijavi se da bi odgovorio/la na ovu temu.