URGENT # INFO

[aBc ;x]

Stiti vreun program in care sa scriu un algoritm gen :

citeste a,b
y <- 4
---cat timp a>0 executa
| y<-a
| a<-y
--- sfarsit cat timp
scrie s

iar acel program sa il transforme in pascal gen
program 1;
var...
begin..

stiti voi la ce ma refer.

Un program in care sa bag un algoritm si sa il transforme in pascal.

[Blue ;x]

Scrie datele enuntului corect ca n-am inteles nimic , ce reprezinta acel "y" ?

S= suma ?

[aBc ;x]

Deci imi trebuie un program, in care sa scriu o problema in limbajul pseudocod iar acel program sa imi dea problema in libajul pascal.

[Blue ;x]

Tu vrei un program din pseudocod transformat in Pasca , pe direct , nu ?

[aBc ;x]

Da mean, sa scriu problema in libajul psseudocd si sa mi-o dea scris in limbajul pascal.

[Blue ;x]

@ Poftim una simpla .
Se da un numar n , sa se caluleze suma cifrelor lui .

Code: Select all

intreg : s,c,n;
inceput 
citeste n;
S<-0;
cat_timp n<>0 executa
            C<-n mod 10;
            S<-S+c;
            n<-n div 10;
sfarsit cat_timp;
Scrie S;
Sfarsit.

Pascal :

Code: Select all

program suma_cifrelor
var n , c ,s : integer ;
begin 
     write('n=');readln(n);
     s:=0;
     while n<>0 do
           begin 
               c:=n mod 10;
               s:=s+c;
               n:=n div 10;
            end;
     writeln('suma cifrelor=',s);
     readln;
end.

Sper sa iti foloseasca. Astept pm daca vrei altceva , cu detalii .

[aBc ;x]

Nu ai inteles eu am 50 de variante de algoritimi si trebuie scrisi in pascal. Stiu cat de cat pascal ( cls. a 9-a ) .. imi trebuie pentru un concurs

[bogdhy]

Nu ai inteles eu am 50 de variante de algoritimi si trebuie scrisi in pascal. Stiu cat de cat pascal ( cls. a 9-a ) .. imi trebuie pentru un concurs

Daca vrei iti transform eu in C++ , pascal nu stiu din pacate .