pascal help

[darko385]

ponuđene su uvjetne naredbe repeat, for, if i while...e sad treba napisati program koji će koristiti bilo koje 2 naredbe od ponuđenih. program ne mora biti kompliciran, nešto jednostavno a da sadrži te dvije naredbe, može i neki kalkulator koji računa površinu ili obujam bilo šta...hvala

[miato]

var x: int;
var opseg,pov: real;
begin
repeat
{writeln("unesi radius kruga");
readln(x);
if (0<x) writeln("radius ne moze biti negativan!!");
} until (0<x);
pov = x*x*pi;
opseg = 2*x*pi;
writeln("povrsina kruga je ", pov);
writeln("opseg kruga je ",opseg);
readln;
end.

odnedavno "programiram" samo u C-u, pa sam zaboravio neke sintakse iz pascala. mozes probat ovo copi pejstat pa ispravit sta ne valja

[miato]

ili jos bolja ideja
nasao sam na disku neke stare pascal fajlove, pa se posluzi sa jednim od programa

[darko385]

puno hvala. zasto nakon kompajliranja te pokretanja programa izbaci na sekundu dos prozor i izađe odmah? u čem je problem? koristim turbo pascal 7

[Emissary]

Pascal zna radit probleme sa XP-ima...
Preporuka je "free pascal"

[big_B]

Miato kaj je to onaj prvi primjer u knjizi.......

Da Pascal pravi jaaaako puuuuuno problema sa XP-om.

Imam doma na kompu 12 verzija i niti jedna nije potpuno funkcionalna........

Ovo je bila moja maturalna radnja iz infice......

[miato]

Originally posted by big_B
Miato kaj je to onaj prvi primjer u knjizi.......

neznam na koju knjigu mislis, al vjerojatno sve pocinju sa ovakvim primjerima

i da, i ja sam se namucio dok mi nije proradio pascal, neznam koju sam verziju tocno imao. a HR keyboard layout je radio...hm.. nikada

[darko385]

sad mi je jasno zašto u školi "ne radi pascal". sigurno komplikacije sa xp-om. ništa napisat ću na papir kod i netko će biti 'compiler'...

[Stana B< 108 VK]

Bolje koristi C++ ,

Imam ti ja barem 50 programa u C++
ako šta trebaš javi pa ćemo nešto srediti.

Imam i tutoriale :::::

C++

[darko385]

evo nagovori mog profesora da nas prebaci na cpp
još nisam ni osnove pascala one najosnovnije savladao, a ti odma :burn:

razumiješ se u taj c, jel znas šta je ovo: #include <iostream>

[Stana B< 108 VK]

#include ti je direktiva koja se koristi kada ima više operacija za obaviti a onaj
<iostream.h> ti je jedna vrsta hierarhijske ljestvice za funkcije ili varijable to ti je varijabla koja se koristi za ulazno izlazne operacije evo ti primjer možda lakše skužiš

1.1 #include <iostream.h>

int main (void)
{
double fahrenheit;
double celsius;

cout << "Temperature in Fahrenhait: ";
cin >> fahrenheit;

celsius = 5 * (fahrenheit - 32) / 9;

cout << fahrenheit << " degrees Fahrenheit = "
<< celsius << " degrees Celsius\n";
return 0;
}

[darko385]

a ja sam cijelo vrijeme mislio da include nije naredba c++ jezika... ček a šta će se dogoditi ako prevoditelj naleti na tu naredbu? neće se valjda prekinuti proces? šta je hierarhijska ljestvica?

[Stana B< 108 VK]

Ljestvica ti je ono kad npr. u programu zadaš da ti ispiše sve brojeve do 10 a da su parni pa kada naleti na neparan broj neće izvršiti naredbu nego ide do sljedećeg parnog broja ...

Ne bi se trebao prekinuti proces... kad naleti na include. Taj include ti je početna vrijednost ko void main() ... ... ... ... ... ... ... ... ... ... ... ... ... ...

[bude]

@stana - Sta ti trabunjas?? Kakve direktive i hierarhijske ljestvica?

[darko385]

hvala vam na odgovorima...dal mi može neko ko zna napisat program koji računa površinu trokuta, kvadrata ili bilo čega, a može i kalkulator još bolje. a da ima 2 ili više naredbi koje sam naveo gore u programu...eto

[munst0r]

program pravokutnik;
var a,b : integer;
begin
write ('Unesi stranicu a: ');
readln (a);
write ('Unesi stranicu b: ');
readln (b);
write ('Povrsina pravokutnika je: ', a*b);
readln;
end.

Evo... ovo racuna povrsinu pravokutnika...



A sta mislis pod 'kalkulator'? Mislis napravit u paskalu pravi kalkulator? Koji bi i izgledao kalkulator? S gumbicima? Ili sta...?

[munst0r]

Aha... ali ti moras u programu imat neku od onih naredbi... onda to mozemo nadopunit s IFom i REPEATom...



program pravokutnik;
var a,b : integer;
begin

repeat
write ('Unesi stranicu a: ');
readln (a);
if a<=0 then writeln ('Ovo je neispravna duljina stranice, pokusaj ponovo...');
until a>0;

repeat
write ('Unesi stranicu b: ');
readln (b);
if b<=0 then writeln ('Ovo je neispravna duljina stranice, pokusaj ponovo...');
until b>0;

write ('Povrsina pravokutnika je: ', a*b);
readln;
end.




A bilo bi dobro da se i ti malo potrudis... jedan jednostavni program koji racuna povrsinu necega bi trebao znat sam napisat...

[darko385]

Originally posted by munst0r
A sta mislis pod 'kalkulator'? Mislis napravit u paskalu pravi kalkulator? Koji bi i izgledao kalkulator? S gumbicima? Ili sta...? [/B]

ne. onako obično iz dos prozora tipa unesi ovo-ti uneseš, pa unesi ono-uneseš pa izračuna...
e hvala na ködu iznad poslužit će.

[munst0r]

Ste ucili procedure i funkcije?

Kalkulator bi bilo najlakse napravit s funkcijama...

[big_B]

Mislim da bu do njegovih procedura i funkcija prošla još koja godina dana.......

[Emissary]

Ja sam sad na tome

[darko385]

Originally posted by big_B
Mislim da bu do njegovih procedura i funkcija prošla još koja godina dana.......

gle nisi se ni ti rodio naučen..a ovaj tutorial iz tvog siga je baš zakon,

[mc_fish]

Originally posted by darko385
gle nisi se ni ti rodio naučen..a ovaj tutorial iz tvog siga je baš zakon,

ajd ajd kaj cete se vrijedat?nema tog bez mene
sala
al kaj si reko stima...moras ucit da naucis...a da naucis 1 programski jezik je potrebno dost vremena a kad uzmes 5 i vise onda ti se sve spetlja
bez svadanja i lijepo igranje sa programskim jezicima

[big_B]

Originally posted by darko385
gle nisi se ni ti rodio naučen..a ovaj tutorial iz tvog siga je baš zakon,

Nisam mislio reći da je netko glup već da gradivo sa procedurama i funkcijama dolazi tek za godinu dana (barem sam ih ja tako učio), imaš još pred sobom sve stringove, komplikacije oko CASE-ova i WHILE-ova...........

[Emissary]

Originally posted by big_B
gradivo sa procedurama i funkcijama dolazi tek za godinu dana (barem sam ih ja tako učio), imaš još pred sobom sve stringove, komplikacije oko CASE-ova i WHILE-ova...........

E vidiš, mi smo već na procedurama, a o CASE i WHILE ni riječi

[Stana 12]

C++ je najbolji,
iako izgleda kao i Pascal...
Imam hrpu tih programskih jezika pa ako nekom treba

[darko385]

no comment

[mc_fish]

Originally posted by Stana 12
C++ je najbolji,
iako izgleda kao i Pascal...
Imam hrpu tih programskih jezika pa ako nekom treba

dok naucis c++ ces biti stari dedek...osim ako ti ga neko ne pokaze...najbolje je radit u visualu ili obicnom c-u(meni osobno najdrazi)