Pascal - program na vymenu hodnoty premennych

• Citovať príspevok

Príspevok od používateľa metthal » 27 nov 2007, 15:00

pls chcem spravit taky program ze na zaciatku mame zadat 3 cisla a nazvy tych premennych budu A,B,C a bude jedna pomocna premenna POM, teraz ked zadame cisla zacne sa to vymienat, cize A bude B, B bude C, C bude A a nakoniec sa maju vypisat v tom vymenenom poradi, tuto je priklad ako by to bolo pri 2 premennych lenze pri 3 uz moja logika zaostava

Kód: Vybrať všetko

program vymena;
var a,b,pom:integer;
begin
writeLn('zadaj 1. cislo');
readLn(a);
writeLn('zadaj 2.cislo');
readLn(b);
pom:=a;
a:=b;
b:=pom;
writeLn(a,' ',b);
readLn;
end.

• Citovať príspevok

Príspevok od používateľa audiotrack » 27 nov 2007, 17:15

program vymena;
var a,b,c,pom:integer;
begin
  writeLn('zadaj 1. cislo');
  readLn(a);
  writeLn('zadaj 2.cislo');
  readLn(b);
  writeLn('zadaj 3.cislo');
  readLn(c);
  pom:=a;
  a:=b;
  b:=c;
  c:=pom;
  writeLn(a,' ',b,' ',c);
  readLn;
end.

• Citovať príspevok

Príspevok od používateľa "J" » 27 nov 2007, 17:21

no neviem:

Kód: Vybrať všetko

program tri_cisla;
uses crt;
var a,b,c,p:integer;
begin
clrscr;
a:=0;
b:=0;
c:=0;
writeln('zadaj 3 cisla');
readln(a,b,c);
p:=c;
c:=b;
b:=a;
a:=p;
writeln(a,'   ',b,'   ',c);
readln;
end.

dufam ze som to neposral

/audiotrack az teraz som si vsimol tvoj prispevok, v premennych nemas c
/uz mas

• Citovať príspevok

Príspevok od používateľa metthal » 27 nov 2007, 17:27

• Citovať príspevok

Príspevok od používateľa audiotrack » 27 nov 2007, 17:32

-=wolf=- napísal:a inac naco tam mas priradovanie premennym hodnotu 0? a este otazka, naco je prikaz uses crt?

nanič, a nanič
(uses crt pripojí crt knižnicu na pracu so systemom, no nepoužíva žiaden jej príkaz tak sa tiež čudujem.)
//edit: aha, he. POužíva clrscr ale zbytočne

• Citovať príspevok

Príspevok od používateľa D!eSel_78 » 02 feb 2008, 9:28

• Citovať príspevok

Príspevok od používateľa juho » 02 feb 2008, 15:57

crt.clrscr;

• Citovať príspevok

Príspevok od používateľa mastermind » 03 feb 2008, 9:40

• Citovať príspevok

Príspevok od používateľa Frikso » 03 feb 2008, 10:52

teoreticky to funguje aj takto i keď v škole by si s tým asi pohorel

Kód: Vybrať všetko

var a,b,c:integer;
begin  
writeln('zadaj 3 cisla'); 
readln(a,b,c); 

writeln(c,b,a); 
readln; 
end.

//neppo: Môže byť

• Citovať príspevok

Príspevok od používateľa chrono » 03 feb 2008, 18:29

mastermind napísal:ako??? objektovo? v pascale?

Napr. v Borland Pascale sa dá programovať aj objektovo (ale crt.clrscr nemá s objektovým nič spoločné).

• Citovať príspevok

Príspevok od používateľa neppo » 03 feb 2008, 19:32

...
writeln(b,c,a)
...