Ofer 50 puncte + coroană!! Am nevoie urgent!
Anexe:
blindseeker90:
Doresti programare in C,Pascal, Pseudocod, sa fie puse acele inegalitati in instructiuni generice?
Trebuie la fiecare dintre ele de elaborat un program care calculeaza valorile functiilor.
In ce limbaj de programare, C++ sau pascal?
Pascal
Răspunsuri la întrebare
Răspuns de
1
Program Tema;
uses Math;
Var x,y,k:real;
subpunct:char;
Begin
writeln('Introduceti litera de la functia dorita: ');
readln(subpunct);
writeln('Introduceti valoarea lui x: ');
readln(x);
if(subpunct='a') then
begin
k:=0;
if(x<k) then
y:=x/2.0;
else
y:=2*x;
end;
else if(subpunct='c') then
begin
k:=3;
if(x<k) then
y:=x+4;
else
y:=x;
end;
else if (subpunct='b') then
begin
k:=5;
if x>k then
y:=x+3;
else
y:=x-3;
end;
else if (subpunct='d') then
begin
k:=5;
if(abs(x)>k) then
y:=x;
else
y:=2*x;
end;
writeln('Rezultatul functiei este:',y);
End.
uses Math;
Var x,y,k:real;
subpunct:char;
Begin
writeln('Introduceti litera de la functia dorita: ');
readln(subpunct);
writeln('Introduceti valoarea lui x: ');
readln(x);
if(subpunct='a') then
begin
k:=0;
if(x<k) then
y:=x/2.0;
else
y:=2*x;
end;
else if(subpunct='c') then
begin
k:=3;
if(x<k) then
y:=x+4;
else
y:=x;
end;
else if (subpunct='b') then
begin
k:=5;
if x>k then
y:=x+3;
else
y:=x-3;
end;
else if (subpunct='d') then
begin
k:=5;
if(abs(x)>k) then
y:=x;
else
y:=2*x;
end;
writeln('Rezultatul functiei este:',y);
End.
Alte întrebări interesante
Engleza,
8 ani în urmă
Fizică,
8 ani în urmă
Limba română,
9 ani în urmă
Matematică,
9 ani în urmă
Limba română,
9 ani în urmă
Matematică,
9 ani în urmă
Limba română,
9 ani în urmă