FORUM
Pagina de start a forumului eggzit.3xforum.ro 		Lista Forumurilor Pe Tematici
FORUM | Reguli | Inregistrare | Login

POZE FORUM

Nu sunteti logat. 		Nou pe simpatie:
xxIRISxx
Femeie
25 ani
Timis
cauta Barbat
25 - 60 ani
FORUM / Forum Nou / 23  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
Postari: 215
{sa se afiseze toate punctele care au coordonatele
nr intregi aflate in int patratului a carui diag
este data de punctele a(x,y) si b(z,t)}
program douazecitrei;
var x,y,z,t:real;
    a,b,c,d,i,j:integer;
begin
write('x=');readln(x);
write('y=');readln(y);
write('z=');readln(z);
write('t=');readln(t);
a:=trunc(x)+1;
if trunc(z)<>z then b:=trunc(z) else b:=trunc(z)-1;
c:=trunc(y)+1;
if trunc(t)<>t then d:=trunc(t) else d:=trunc(t)-1;
for i:= a to b do
     for j:=c to d do
         writeln('(',i,',',j,')');
         readln;
end.
pus acum 18 ani
   
Pagini: 1  

Mergi la