Instructiuni simple
Dezlegati:
A) Elaborati un singur program Pascal in care se rezolva pe etape urmatoarele probleme:
problema a) Fie a,b:integer; Calculatorul va calcula citul impartirii intregi a la b si restul impartirii intregi a la b.
problema b) Fie a,b,h:real;, pozitive. care reprezinta respectiv bazele si inaltimea unui trapez. Calculatorul calculeaza aria trapezului.
problema c) Fie s,v:real; care reprezinta respectiv drumul parcurs si viteza medie a unui automobil. Calculatorul calculeaza timpul necesar pentru parcurgerea distantei date.
problema d) Fie a,b,c:real. Calculatorul va calcula discriminantul apoi solutiile ecuatiei patrate ax^2+bx+c=0. Se garanteaza ca discriminantul este un numar pozitiv.
problema e) Fie a,b:char. Calculatorul va determina daca ord(a) este un numar par sau nu, si va mai verifica daca a>b.
B) Compuneti o problama care poate fi rezolvata cu ajutorul programului Pascal:
program bun;
var
l,s,r:real;
begin
readln(r);
l:=2*pi*r;
s:=pi*sqr(r);
writeln('l=',l);
A) Elaborati un singur program Pascal in care se rezolva pe etape urmatoarele probleme:
problema a) Fie a,b:integer; Calculatorul va calcula citul impartirii intregi a la b si restul impartirii intregi a la b.
problema b) Fie a,b,h:real;, pozitive. care reprezinta respectiv bazele si inaltimea unui trapez. Calculatorul calculeaza aria trapezului.
problema c) Fie s,v:real; care reprezinta respectiv drumul parcurs si viteza medie a unui automobil. Calculatorul calculeaza timpul necesar pentru parcurgerea distantei date.
problema d) Fie a,b,c:real. Calculatorul va calcula discriminantul apoi solutiile ecuatiei patrate ax^2+bx+c=0. Se garanteaza ca discriminantul este un numar pozitiv.
problema e) Fie a,b:char. Calculatorul va determina daca ord(a) este un numar par sau nu, si va mai verifica daca a>b.
B) Compuneti o problama care poate fi rezolvata cu ajutorul programului Pascal:
program bun;
var
l,s,r:real;
begin
readln(r);
l:=2*pi*r;
s:=pi*sqr(r);
writeln('l=',l);
writeln('s=',s);
end.
Termen de rezolvare 2 h.
Primul elev care trimite dezlegarea corect va primi 120 p
Al doilea 110 p
Restul maximum 100p