Limbaj Pascal

Discutii despre tot ce nu se incadreaza in celelalte categorii.

Moderators: Moderatori ajutatori, Moderatori

Post Reply
User avatar
amE
Membru, skill +3
Membru, skill +3
Posts: 1435
Joined: 19 Dec 2009, 16:48
Detinator Steam: Nu
CS Status: beep.
Reputatie: Membru Club eXtreamCS ( o luna)
Has thanked: 133 times
Been thanked: 108 times

21 May 2011, 21:47

As dori cateva mici lectii cu algoritmii cei mai folositi si cu exemple in Pascal de asemenea si cu structura array de tip vector. Multumesc.
RoyalServer
User avatar
Arion
Scripter eXtreamCS
Scripter eXtreamCS
Posts: 3317
Joined: 15 May 2008, 21:19
Detinator Steam: Da
SteamID: arion1338
Reputatie: Fost Mapper eXtreamCS
Fost Detinator HNS.eXtreamCS.com
Nume anterior : Seekers
Scripter Echipa eXtreamCS
Fost Moderator jutator
Discord: laurentiuandrei
Has thanked: 402 times
Been thanked: 413 times
Contact:

21 May 2011, 21:51

Un vector este o lista de elemente care incepe de la 0.

v[5] contine pozitiile 0,1,2,3,4 (5 elemente), pe fiecare pozitie se afla o valoare si pentru fiecare pozitie se aloca un spatiu in memorie. Pentru mai multe informatii cauta pe google tutoriale pascal in romana ! :|
User avatar
amE
Membru, skill +3
Membru, skill +3
Posts: 1435
Joined: 19 Dec 2009, 16:48
Detinator Steam: Nu
CS Status: beep.
Reputatie: Membru Club eXtreamCS ( o luna)
Has thanked: 133 times
Been thanked: 108 times

21 May 2011, 21:56

Am cautat.. Vreau algoritmii principali in pascal, cei tu suma a n nr, cum sa ordonezi cateva numere, cum sa le pui descrescator.
User avatar
Venom123
Membru, skill +3
Membru, skill +3
Posts: 1341
Joined: 18 Oct 2008, 15:58
Detinator Steam: Da
Detinator server CS: ArenaDevils # Zombie
SteamID: pas
Location: Focsani
Has thanked: 79 times
Been thanked: 40 times

21 May 2011, 22:08

Poate te ajuta , e un mic program pascal care afiseaza suna a 2 numere si pe aranjeaza descrescator .

Code: Select all

progarm test
var i,n,S:integer;
begin
writeln('n=');
readln(n);
for i:=1 to n do
                  if n>o then 
                                 S:=S+n;
                           else write('Numarul este mai mic sau egal cu 0);
{afisare descrescator}
if (S:=S+n) and (S mod 2 <> 0) then writeln('S=',' ')
readln;
end.
Parca asa era :-"
User avatar
amE
Membru, skill +3
Membru, skill +3
Posts: 1435
Joined: 19 Dec 2009, 16:48
Detinator Steam: Nu
CS Status: beep.
Reputatie: Membru Club eXtreamCS ( o luna)
Has thanked: 133 times
Been thanked: 108 times

22 May 2011, 08:28

Multumesc mult venom123, dar inca mai caut.
User avatar
Venom123
Membru, skill +3
Membru, skill +3
Posts: 1341
Joined: 18 Oct 2008, 15:58
Detinator Steam: Da
Detinator server CS: ArenaDevils # Zombie
SteamID: pas
Location: Focsani
Has thanked: 79 times
Been thanked: 40 times

22 May 2011, 10:53

Post Reply

Return to “Discutii generale”

  • Information