Pascal dotaz

MrGizmof

Dnes sme konečne mali programovanie ale zatial iba celočíselné.. tak ja sa chcem spýtať na dve veci:
1. Skúšam si robiť aj výpočty s 1.blabla a tak.. ale aj keď dám real tak sa mi zle ukazujú výsledky a na konci je he+ a také.
2. Čo mám spraviť ak chcem nastaviť aby sa mi program ukončil po stlačení escape.. mám tam repeat blablablabla until a tam chcem dať že stlačí escape.

1) pri výpise použiješ niečo takéto cislo:2:5 čo znamená že premennú cislo ktorá je typu real zobrazí s 2 desatinnými miestami a zarovnané na 5 pozícii (ak bude cislo 1.1 tak doplni dolava 4 prazdne znaky)

2) musíš najprv načítať kláves (klaves:=readkey;) a potom v podmienke bude if klaves=chr(27) then exit; (premenná klaves je typu char)

BX · Príspevok od používateľa BX » 02 okt 2008, 21:48

Neviem ci si pochopil lebo ja by som NIE

(nic v zlom audiotrack, ale bolo to prilis vedecke)
Pokusim sa to zjednodusit a trochu upresnit:
1.) ak mas i:real tak do zapisu musis dat

Kód: Vybrať všetko

write(i:4:2);

co ti upravi desatine cisla... (pohraj sa s tym a uvidis)
2.) da sa to aj zapisom

Kód: Vybrať všetko

repeat
<program>
until readkey=#27;
end.

MrGizmof

Včera by som nechápal, dnes už hej. Diky za radu, idem to upraviť

.

//autoeditácia príspevku ( 03 Oct 2008, 6:58 )
No tak som to tam dal až teraz ale na klaves:=readkey mám unknow identifier. Skúšal som to aj inak ale namiesto toho aby sa to vypalo to písalo lomítko...
A mám to tam asi takto:

Kód: Vybrať všetko

begin 
repeat
klaves:=readkey;
príkaz
until klaves=#27;
end.

konyk87

mas pripojenu kniznicu crt? uplne na zaciatku este pred definiciou premennych (var) napis (ak nemas) prikaz

Kód: Vybrať všetko

uses crt;

premenna klaves musi byt typu char..

cize by to malo vyzerat nejak takto:

Kód: Vybrať všetko

program blabla;
uses crt;

var klaves : char;

begin
  repeat
    klaves=readkey;
    prikaz;
  until klaves=#27;
end.

popripade sem hod cely tvoj kod aby sme mohli zistit, kde je chyba

BX · Príspevok od používateľa BX » 03 okt 2008, 12:28

Stale som nazoru ze lahsie to je takto:

Kód: Vybrať všetko

begin
repeat
príkaz
until readkey=#27;
end.

Viete mi vysvetlit preco to stazujete?

MrGizmof

Tak tu je.. neviem čím to je, if som tam nedával kedže ifko 99% pokazím... teraz to pre istotu nepíše nič ale ani sa nevypne ak stlačím esc... a číslo musím dávať až 2x.. takže keď dávam sumu 50 tak stlačím 2x5 aby to šlo.. Ale inak je to taká prkotina do školy

Kód: Vybrať všetko

program Eurokalkulacka;
var b,a:real;
    klaves:char;
begin
repeat
writeln ('Zadaj sumu');
klaves:=readkey;
readln (b);
a:=b/30.126;
writeln ('Pocet Eur ',a:4:2);
until klaves=#27;
end.

BX: No to tvoje mi nejak nešlo

gwixt

ako myslis ze nepise nic? ani "Zadaj sumu" ?

BX · Príspevok od používateľa BX » 03 okt 2008, 15:19

Lebo klaves mas zle dany

Kód: Vybrať všetko

program Eurokalkulacka;
var b,a:real;
    klaves:char;
begin
repeat
writeln ('Zadaj sumu');
readln (b);
a:=b/30.126;
writeln ('Pocet Eur ',a:4:2);
klaves:=readkey;
until klaves=#27;
end.

skus to takto, alebo uz co som pisal ja 2x, tym nemas co pokazit

MrGizmof

Unknow identifier...

A pridal si tam aj to

Kód: Vybrať všetko

uses Crt;

čo ti už písali?

tomPD

doplne toto uses crt; takto:

Kód: Vybrať všetko

program eurokalkulacka;
uses crt;
.
.
.
end.

edit: tak chrono bol rychlejsi

MrGizmof

Moja blbosť, nedal som ;

Inak uses Crt; som tam dával už na začiatku, potom som dačo upravoval a nejak mi vypadlo že som ho vymazal.
Ale ostatným ďakujem... aj za ten repeat a za tie desatinné miesta

.

IkemeR

Prosím, čo znamená (na čo slúži) to

Uses crt;

?

Mek · Príspevok od používateľa **Mek** » 04 okt 2008, 21:13

To je kniznica obsahujuca funkcie a konstanty pre pracu s farbami, obrazovkou a pod. v textovom rezime.

BX · Príspevok od používateľa BX » 05 okt 2008, 11:22

Este doplnim (ak mozem), len pre zaujimavost, ze CRT kniznica je zakladna. Mozes dat aj

Kód: Vybrať všetko

uses crt,dos

a k zakladnym prikazom (write, read apod. co vsetci vieme) mozes pridavat dalsie prikazy z unitu dos (napr. getdate, registers apod.)
Unit dos je vcelku zaujimavy, skus si ho niekde pozriet

Všetky knižnice sú popísané v nápovede.

Tom1622

Další zajímavé knihovny třeba zde

Kód: Vybrať všetko

http://www.bsdg.org/SWAG/