infoarena

infoarena - concursuri, probleme, evaluator, articole => Informatica => Subiect creat de: adriana dodon din Februarie 09, 2012, 15:22:57

Titlul: ajutor va rog sunt abia incepatoare intr-o scoala noua
Scris de: adriana dodon din Februarie 09, 2012, 15:22:57

1)Elaborati o procedura care efectueaza interschimbarea a doua numere intregi.
2) Elaborati o procedura care mareste elementele impare cu 5.

Macar ceva sugestii va rog mult de tot
.

Titlul: RÄƒspuns: ajutor va rog sunt abia incepatoare intr-o scoala noua
Scris de: adriana dodon din Februarie 09, 2012, 16:42:51

Citat din mesajul lui: adriana dodon din Februarie 09, 2012, 16:41:52

Program P02;
var i,x,y:integer;
procedure P(A:integer);
begin
if(A=5) and (A[i+1]=2) then (A=2) and (A[i+1]=5);
end;
begin
readln(x,y);
P(x,y);
writeln
readln;
end.

eu asa am incercat va brog sa ma corectati daca nu este corect

Titlul: RÄƒspuns: ajutor va rog sunt abia incepatoare intr-o scoala noua
Scris de: Cara Sabina din Februarie 09, 2012, 18:22:08

procedure schimb(var a:integer, var b:intereg;
var aux:integer;
begin
aux := a;
a ;= b;
b := a;
end;

sa mareasca elementele cui cu 5? ale unui sir?

peocedure mareste_5;
{
for i:=1 to n do
a = a + 5;
}