PASCAL... Ajutor! URGENT

#0 by Aylyme (User) (0 mesaje) at 2007-05-07 20:29:18 (884 săptămâni în urmă) - [Link]

multumesc tuturor care au incercat sa ma ajute...

si celorlalti care au floodit oleak... sau au vrut tare tare... :annoyed:

acu pls inchideti tema....

Editat de către Aylyme la 2007-05-10 16:04:55

Mesaj util ? Da 0 puncte

1 2 3 4
<< Precedenta Următoarea >>

#1 by Player (AlcoFlooder© | Piva pui ?) (0 mesaje) at 2007-05-07 20:40:05 (884 săptămâni în urmă) - [Link]

Program Aylyme;
uses crt;
var x,y,z,rez:integer;
begin
clrscr;
write('X=' ) ; readln(x);
write('Y=' ) ; readln

;
write('Z=' ) ; readln(z);
rez:=x or y or z * (y not z);
writeln('Rezultatul=',rez);
readln;
end.

PS: daca ceva nui corect...eu am uitat Pascalul!

Mesaj util ? Da 0 puncte

#2 by Aylyme (User) (0 mesaje) at 2007-05-07 20:47:07 (884 săptămâni în urmă) - [Link]

oricum ms... acus verific...

Mesaj util ? Da 0 puncte

#3 by Iuncu (Spartak_fan's) (0 mesaje) at 2007-05-07 20:55:53 (884 săptămâni în urmă) - [Link]

eu am 5 la informatica

Mesaj util ? Da 0 puncte

#4 by Freedom (User) (0 mesaje) at 2007-05-07 20:57:32 (884 săptămâni în urmă) - [Link]

#3 Iuncu,

bv!

Mesaj util ? Da 0 puncte

#5 by Player (AlcoFlooder© | Piva pui ?) (0 mesaje) at 2007-05-07 21:03:59 (884 săptămâni în urmă) - [Link]

#3 Iuncu, ca shi mine!

Mesaj util ? Da 0 puncte

#6 by Stinger

(VIP) (0 mesaje) at 2007-05-07 21:07:40 (884 săptămâni în urmă) - [Link]

#1 Player, x,y,z tre' să fie mulţimi

Mesaj util ? Da 0 puncte

#7 by Aylyme (User) (0 mesaje) at 2007-05-07 21:13:06 (884 săptămâni în urmă) - [Link]

#6 Stinger, so...?

... eu am 9 de bogdaproste... :rofl:

... dar sa lasam astea...

Mesaj util ? Da 0 puncte

#8 by Player (AlcoFlooder© | Piva pui ?) (0 mesaje) at 2007-05-07 21:15:22 (884 săptămâni în urmă) - [Link]

#6 Stinger, to4na! eu mam incurcat!

ei! atunci hz! eu am uitat Pascalul!

Mesaj util ? Da 0 puncte

#9 by Anery Fotbalist

('cause i can.) (0 mesaje) at 2007-05-07 21:49:00 (884 săptămâni în urmă) - [Link]

#0 Aylyme, :girlhaha:

PASCU' ista :annoyed:

Mesaj util ? Da 0 puncte

#10 by Capilleary

(Патлатый) (0 mesaje) at 2007-05-07 22:36:37 (884 săptămâni în urmă) - [Link]

#5 Player, se foloseshte tipul set.
Exemplu:
x:set of integer;

operatzii cu multzimile:
A*B - Intersectzia
A-B - Diferentza
A+B - reuniunea.

Pentru restul, adresatzi-va la help.

daca corect tzin minte, multzimea se reprezinta ca [a,b,c] in pascal, unde a,b,c, sunt identificatori de valoare (adik poate fi variabila). Eu pascalul vreu sa-l uit. Odata m-am apucat de pascal shi deja in C# faceam gresheli in cod elementare din cauza ca au reaparut deprinderi din Pascal.

Mesaj util ? Da 0 puncte

#11 by HP (Selfish) (0 mesaje) at 2007-05-08 07:57:31 (884 săptămâni în urmă) - [Link]

cînd vin de la şcoală mă gîndesc...

Mesaj util ? Da 0 puncte

#12 by 13voin Drivers Club

(Carasic) (0 mesaje) at 2007-05-08 09:05:43 (884 săptămâni în urmă) - [Link]

da eu tsin minte ca trebu de scris Program si end

Mesaj util ? Da 0 puncte

#13 by Lexus®

(VIP | Loving An Angel) (0 mesaje) at 2007-05-08 09:06:08 (884 săptămâni în urmă) - [Link]

#12 13voin, "... da eu tsin minte ca trebu de scris Program si end ..." - The Shadow of Iurco :sarcastic:

Mesaj util ? Da 0 puncte

#14 by Bolivar (Power User) (0 mesaje) at 2007-05-08 09:25:54 (884 săptămâni în urmă) - [Link]

Ufffff treb mai ghini de elaborat un virus care ar sterge Pascalu din comp !!!!!
ca-ni strica nna nota mlin

la toate ini iese bine numa la inf galeak

(((

Mesaj util ? Da 0 puncte

#15 by Capilleary

(Патлатый) (0 mesaje) at 2007-05-08 09:27:57 (884 săptămâni în urmă) - [Link]

#13 Lexus®, "... The Shadow of Iurco ..." - :shok:

o shtii pe Iurco?

Mesaj util ? Da 0 puncte

#16 by Lexus®

(VIP | Loving An Angel) (0 mesaje) at 2007-05-08 09:29:40 (884 săptămâni în urmă) - [Link]

#15 Capilleary, am avut marea plăcere să deprind tainele calculatorului anume de la ea :sarcastic:

Mesaj util ? Da 0 puncte

#17 by gamer

(Power User) (0 mesaje) at 2007-05-08 09:36:40 (884 săptămâni în urmă) - [Link]

#0 Aylyme, Prima problema

Program P1;
var numele,prenumele,patronimicul:string;
l1,l2,l3:integer;
begin
write ('Numele:' ) ; readln(numele);
write ('Prenumele:' ) ; readln(prenumele);
write ('Patronimicul:' ) ; readln(patronimicul);
l1:=length(numele) ;
l2:=length(prenumele) ;
l3:=length(patronimicul);
write (numele,' ',prenumele,' ',patronimicul);
write ('Lugimea:',l1,' ' ,l2,' ',l3) ;
readln ;
end.

Editat de către gamer la 2007-05-08 09:50:47

Mesaj util ? Da 0 puncte

#18 by Capilleary

(Патлатый) (0 mesaje) at 2007-05-08 09:38:49 (884 săptămâni în urmă) - [Link]

#16 Lexus®, Iurco? Taine calculatorului? Matink vorbim de persoane diferite...

Deci va prezint: Actualul director al liceului Nicolae Iorga din Chisinau - Valentina Iurco (a.k.a. Johny Bravo (coafura niciodata nu shi-a schimbat-o, merg legende despre modalitatea de a o face, despre cum ea vine in fiecare zi asha))

Mesaj util ? Da 0 puncte

#19 by Lexus®

(VIP | Loving An Angel) (0 mesaje) at 2007-05-08 09:39:56 (884 săptămâni în urmă) - [Link]

#18 Capilleary, :scare:

Nu glumi cu inima mea slabă, deja nu sunt tânăr.

Da, e vorba de 2 persoane diferite, însă din aceiaşi oală :sarcastic:

Mesaj util ? Da 0 puncte

#20 by Capilleary

(Патлатый) (0 mesaje) at 2007-05-08 09:40:34 (884 săptămâni în urmă) - [Link]

gamer wrote:

#0 Aylyme, Prima problema

Program P1;
var numele,prenumele,patronimicul:string;
l1,l2,l3:integer;
begin
write ('Numele:' ) ; readln(numele);
write ('Prenumele:' ) ; readln(prenumele);
write ('Patronimicul:' ) ; readln(patronimicul);
l1:=length(numele) ;
l2:=length(prenumele) ;
l3:=length(patronimicul);
write (numele,prenumele,patronimicul);
write ('Lugimea:',l1,l2,l3) ;
readln ;
end.

mai bine oleaka mai asha:
Program P1;
var numele,prenumele,patronimicul:string;
l1,l2,l3:integer;
begin
write ('Numele:' ) ; readln(numele);
write ('Prenumele:' ) ; readln(prenumele);
write ('Patronimicul:' ) ; readln(patronimicul);
l1:=length(numele) ;
l2:=length(prenumele) ;
l3:=length(patronimicul);
writeln (numele,' ',prenumele,' ',patronimicul);
write ('Lugimea:',l1,' ',l2,' ',l3) ;
readln ;
end.

Mesaj util ? Da 0 puncte

#21 by 13voin Drivers Club

(Carasic) (0 mesaje) at 2007-05-08 09:40:35 (884 săptămâni în urmă) - [Link]

#18 Capilleary, nu la noi era alta..

super informaticianka.. :lol:

.. matinka si amu inca preda in liceu..
din informatika ceea tsin minte " nu umblatsi la calculatoare.."

Mesaj util ? Da 0 puncte

#22 by gamer

(Power User) (0 mesaje) at 2007-05-08 09:46:21 (884 săptămâni în urmă) - [Link]

#20 Capilleary, +1,am scriso in graba

Mesaj util ? Da 0 puncte

#23 by Lexus®

(VIP | Loving An Angel) (0 mesaje) at 2007-05-08 09:50:11 (884 săptămâni în urmă) - [Link]

#21 13voin, "... nu umblatsi la calculatoare ..." - +1. eu ţin minte când Ciocan furase un şaric de la mause, ea umbla ca turbata şi spunea că părinţii vor fi nevoiţi să vândă apartamentele pentru a procura un mouse nou... Ne temeam să apăsăm pe tastatură, chiar dacă PC-ul era deconectat :lol:

Mesaj util ? Da 0 puncte

#24 by gamer

(Power User) (0 mesaje) at 2007-05-08 10:06:18 (884 săptămâni în urmă) - [Link]

A doua problema

Program P2;
var x,y,z,rez:set of integer;
i:integer;
begin
x:=[1..5];
y:=[1..3,8..10];
z:=[6..12];
rez:=[];
rez:=x+z+y*(y-z);
for i:=1 to 12 do
if i in rez then write (i:2);
readln;
end.

cam asa trebuie sa fie

PS-Deschide cartea ca acolo sunt probleme asamanatoare

Quote:

părinţii vor fi nevoiţi să vândă apartamentele pentru a procura un mouse nou

Mesaj util ? Da 0 puncte

#25 by Ich

(Power User) (0 mesaje) at 2007-05-08 10:18:01 (884 săptămâni în urmă) - [Link]

13voin wrote:

din informatika ceea tsin minte " nu umblatsi la calculatoare.."

la noi ii tot asa

Mesaj util ? Da 0 puncte

1 2 3 4
<< Precedenta Următoarea >>

Forum Index > Chat > PASCAL... Ajutor! URGENT

Această temă este închisă. Nu puteţi posta mesaje noi.