Potrzebuję program Turbo Pascal lub Free Pascal

[zajac_poziomka]

Potrzebuje tego programu do stworzenia kalkulatora, to jest sprawa życia jak nie bede miał do wtorku to lece ze szkoły.

[proktor]

http://www.bloodshed.net/dev/devpas192.exe

wydaje mi sie, że leprzy od Free Pascal a tym bardzoej od Turbo Pascala

pzdr

[daxrider]

Kalkulator naukowy w Pascalu:
http://www.wright.edu/~john.matthews/a2/calc.html

[siwy144]

Nazwa Borland Turbo Pascal 7-0
http://rapidshare.de/files/5203298/Borl ... 0.zip.html
Nazwa Borland -Turbo Pascal 7.01 Professional - Installation Disks
http://rapidshare.de/files/11579976/Bor ... s.zip.html
Pliki skanowane nortonem 2003pro

http://www.google.pl/search?hl=pl&q=Fre ... ad&spell=1
http://www.google.pl/search?hl=pl&q=Tur ... Szukaj&lr=

[proktor]

Kalkulator naukowy w Pascalu:
http://www.wright.edu/~john.matthews/a2/calc.html

zjedli by go gdyby im pokazał coś czego sami prawdopodobnie nie potrafili by zrobic

coś o tym wiem

[daxrider]

Kalkulator naukowy w Pascalu:
http://www.wright.edu/~john.matthews/a2/calc.html

zjedli by go gdyby im pokazał coś czego sami prawdopodobnie nie potrafili by zrobic

coś o tym wiem

Ofkoz, ale kto przepisuje cały kod? Rip-off na maxa ;]
Coś prostszego, na poziomie 1-ej klasy liceum: http://www.partnersclub.pl/arti/pas/kalkulat.pas

[proktor]

Ofkoz, ale kto przepisuje cały kod? Rip-off na maxa ;]

Ktoś na poziomie 1 klasy liceum(jeśli wcześniej nic ze soba nie robil)

Pozatym, pewnie i tak nie wiedził by co zrobić gdyby miał go modyfikować(czytaj upraszczać)

[Chojny86]

Witam
Mam pewien problem jak by mógł mi ktoś pomóc to bardzo proszę
Muszę napisać program w free pascalu a czuje że sam sobie nie poradzę czy może ktoś mi pomóc ???:(
A treścią zadania jest: Napisanie programu do przeliczania walut ( tak ze 4 waluty )
lub drogi temat do wyboru: Napisanie programu do przeliczania miar i wag.....
Jak ktoś wie jak to napisać to bardzo proszę o pomoc nawet na e-mail [email protected]
Z góry dzięki.

[Czarodziejczarek]

zadanie które tu przed stawie to nie jest gotowe takie jakie chcesz ale na podstawie tych trzech przykładów możesz zrobić swoje postępując analogicznie.
zad 1 przykład.

Kod: Zaznacz wszystko

[b]program zad4;[/b]
uses crt;
var jard,stopa,cal,centymetr,metr,mila: real;
begin
clrscr;
writeln ('podaj dludosc w metrach metr');
readln (metr);
cal:=39.37008*metr;
stopa:=3.28084*metr;
jard:=1.09361*metr;
mila:=0.00067*metr;
centymetr:=100*metr;
write ('metr');
writeln(metr:10:2);
write ('mila');
writeln(mila:10:2);
write ('jard');
writeln(jard:10:2);
write ('stopa');
writeln(stopa:10:2);
write ('cal');
writeln(cal:10:2);
write ('centymetr');
writeln(centymetr:10:2);
readln;
end.

[b]przyklad 2[/b]

program zad5;
uses crt;
var atm,mmHG,bar,paskal,hpaskal: real;
begin
clrscr;
writeln ('podaj cisnienie w paskalach paskal');
readln (paskal);
hpaskal:=paskal/100;
bar:=(1/100000)*paskal;
atm:=(1.0197/100000)*paskal;
mmHG:=(750/100000)*paskal;
paskal:=paskal;
write ('atm');
writeln(atm:10:2);
write ('mmHG');
writeln(mmHG:10:2);
write ('bar');
writeln(bar:10:2);
write('paskal');
writeln(paskal:10:2);
write('hpaskal');
write(hpaskal:10:2);
readln;
end.

[b]przyklad 3[/b]

program zad6;
uses crt;
var korzec,garnc,kwarta,litr: real;
begin
clrscr;
writeln ('podaj objetosc w litrach litr');
readln (litr);
litr:=litr;
kwarta:=litr;
korzec:=(1/128)*litr;
garnc:=(32/128)*litr;
write ('korzec');
writeln(korzec:10:3);
write ('garnc');
writeln(garnc:10:3);
write ('kwarta');
writeln(kwarta:10:3);
write ('litr');
writeln(litr:10:3);
readln;
end.

[b]i to tyle pozdrawiam miłej zabawy...[/b]


[Chojny86]

Wielkie dzięki....
Jak ktoś jeszcze zna dokładne rozwiązanie któregoś z zadań to proszę pisać...
Może jaskoś zaliczę z waszą pomocą

[Czarodziejczarek]

a tutaj masz pomoc do programu jeśli chciałbyś użyć formuły "else"

Kod: Zaznacz wszystko

program informacje;
uses crt;
var A:INTEGER;
BEGIN
CLRSCR;
TEXTCOLOR(12);
WRITELN('1.DANE OGOLNE 2.OCEANY 3.NAJWIEKSZE MORZA 4.DEPRESJE 5.NAJDLUZSZE RZEKI');
WRITELN('6.NAJWYZSZE SZCZYTY GORSKIE');
WRITELN;
TEXTCOLOR(13);
WRITELN('ABY POZNAC INFORMACJE DOTYCZACE WYZEJ WYMIENIONYCH TEMATOW WPISZ ODPOWIEDNIA    CYFRE');
WRITELN('PODAJ WARTOSC A');
READLN(A);
IF (A=1) THEN
BEGIN
clrscr;
TEXTCOLOR(10);

WRITELN('          POWIERZCHNIA        w km2');

WRITELN;

TEXTCOLOR(11);

WRITELN('  SWIAT-------------------509450000');

WRITELN('  WODA--------------------360000000');

WRITELN('  LAD---------------------149450000');

WRITELN('  AZJA---------------------44500000');

WRITELN('  AFRYKA-------------------30302000');

WRITELN('  AMERYKA POLNOCNA---------24241000');

WRITELN('  AMERYKA POLUDNIOWA-------17793000');

WRITELN('  ANTARKTYDA---------------14100000');

WRITELN('  EUROPA--------------------9957000');

WRITELN('  AUSTRALIA I OCEANIA-------8557000');
READLN;
END
ELSE
IF  A=2 THEN
BEGIN

clrscr;

TEXTCOLOR(3);

WRITELN('                POWIARZCHNIA            w Km2');

WRITELN;

TEXTCOLOR(4);

WRITELN('  OCEAN SPOKOJNY------------------- 179679000');

WRITELN('  OCEAN ATLANTYCKI-------------------92373000');

WRITELN('  OCEAN INDYJSKI----------------------7391700');

WRITELN('  OCENA ARKTYCZNY---------------------1409000');

READLN;
END
else if a=3 then
begin
clrscr;
textcolor(5);
writeln('  NAJWIEKSZR MORZA                                   Km2');
WRITELN;
TEXTCOLOR(6);
writeln('  KARAIBSKIE ------------------------------------2766000');
writeln('  SRODZIEMNE-------------------------------------2516000');
writeln('  POLUDNIOWO CHINSKIE----------------------------2318000');
writeln('  MORZE BERINGA----------------------------------2268000');
writeln('  ZATOKA MEKSYKANSKA-----------------------------1543000');
writeln('  MORZE OCHOCKIE---------------------------------1528000');
writeln('  MORZE WSCHODNIO CHINSKIE I MORZE ZOLTE---------1249000');
writeln('  ZATOKA HUDSONA---------------------------------1232000');
writeln('  MORZE JAPONSKIE--------------------------------1008000');
writeln('  MORZE POLNOCNE----------------------------------575000');
writeln('  MORZE CZARNE------------------------------------452000');
writeln('  MORZE CZERWONE----------------------------------438000');
textcolor(7);
writeln('  MORZE BALTYCKIE---------------------------------397000');
textcolor(6);
writeln('  ZATOKA PERSKA-----------------------------------239000');
writeln('  ZATOKA SW. WAWRZYNCA----------------------------238000');
writeln('  ZATOKA KALIFORNISKA-----------------------------162000');
writeln('  CIESNINA BASSA-----------------------------------75000');
READLN;
END
ELSE IF A=4 THEN
BEGIN
CLRSCR;
TEXTCOLOR(7);
WRITELN('                        POLOZENIE    GLEBOKOSC ( M PONIZEJ PM )');
WRITELN;
TEXTCOLOR(8);
WRITELN('  MORZE MARTWE----------AZJA-------------------      -400  ');
WRITELN('  DEPRESJA TURFANSKA----CHINY------------------      -154  ');
WRITELN('  JEZIORO ASSAL---------DZIBUTI----------------      -150  ');
WRITELN('  DEPRESJA KARAGIJE-----KAZACHSTAN-------------      -132  ');
WRITELN('  DOLINA SMIERCI--------AMERYKA POLNOCNA-------       -86  ');
READLN;
END
ELSE IF A=5 THEN
BEGIN
CLRSCR;
TEXTCOLOR(5);
WRITELN('  NAJDLUZSZE RZEKI  ');
WRITELN;
TEXTCOLOR(6);
WRITELN('  NAZWA RZEKI      DLUGOSC W KM  ');
WRITELN;
TEXTCOLOR(7);
WRITELN('  NIL--------------------  6690  ');
WRITELN('  AMAZONKA---------------  6570  ');
WRITELN('  MISSISPI-MISSOURI------  6020  ');
WRITELN('  JANGCY-----------------  5900  ');
WRITELN('  JENISEJ----------------  5870  ');
WRITELN('  OB-IRTYSZ--------------  5410  ');
WRITELN('  HUANG-HE---------------  4840  ');
WRITELN('  ZAIR-------------------  4630  ');
WRITELN('  AMUR-------------------  4510  ');
WRITELN('  PARANA-----------------  4500  ');
WRITELN('  LENA-------------------  4400  ');
READLN;
END ELSE
IF A=6 THEN
BEGIN
CLRSCR;
TEXTCOLOR(2);
WRITELN(' NAJWYZSZE SZCZYTY GORSKIE');
WRITELN;
TEXTCOLOR(3);
WRITELN(' NAZWA           KRAJ      WYSOKOSC   ');
WRITELN;
TEXTCOLOR(5);
WRITELN(' EVEREST---------NEPAL--------  8848  ');
WRITELN(' K2--------------PAKISTAN-----  8611  ');
WRITELN(' KANCZENDZANGA---INDIE--------  8598  ');
WRITELN(' LHOTSE 1--------CHINY--------  8516  ');
WRITELN(' MAKALU----------CHINY--------  8481  ');
WRITELN(' CHO OYU---------CHINY--------  8201  ');
WRITELN(' DHAULAGIRI------NEPAL--------  8172  ');
WRITELN(' MANSLU----------NEPAL--------  8156  ');
WRITELN(' NANGA PARBAT----PAKISTAN-----  8126  ');
WRITELN(' ANNAPURNA-------NEPAL--------  8078  ');
WRITELN(' GASHERBRUM------CHINY--------  8068  ');
WRITELN(' BROAD-----------INDIE--------  8051  ');
WRITELN(' GOSAINTHAN------CHINY--------  8012  ');
READLN;
END
else
TEXTCOLOR(12);
writeln('BRAK PODANEGO ODNOSNIKA WYJDZI WPISZ INNA WARTOSC!!!!');
readln;
END.


a tu z kolei masz else na dany przedział tak jakby do wyboru zależy co wciśniesz

Kod: Zaznacz wszystko

program poraroku;
uses crt;
var liczba: byte;
begin

clrscr;

textcolor(12);

writeln('podaj lczbe z zakresu od 1 do 12');

readln(liczba);

textcolor(10);

case liczba of

1..3:write('zima');

4..6:write('wiosna');

7..9:write('lato');

10..12:write('jesien');

else textcolor(11); {tak mozna wstawic kolor} write('taki miesiac nie istnieje to nie jest zadna pora roku');

end;

readln;
end.


mysle ze dasz rade poprostu skopiuj ten program uruchom go, ponadto zobacz gdzie zaczyna sie jedna opcja else a gdzie kończy mysle zę dasz rade to co teraz tobie zapodałem to są wartości if i case co zrobic jesli użytkownik wybierze jakąś opcje...

[Czarodziejczarek]

Kod: Zaznacz wszystko

program waluty;
uses crt;
var A:Real;
var b,wynik:real;

BEGIN
CLRSCR;

Writeln('Ja tu przyjmuje że 1Pln=1Pln, 1Euro=2Pln, 1Dolar=3Pln, 1Frank=1Pln.');
writeln('Robie to w tym celu aby ułatwić sobie życie czy wszytko dobrze działa');
writeln('Jeżeli chciałbyś żeby wartośći danych walut były zmienne, to już jest wyższa półka');
writeln('bo albo wczytywało by to z pliku, albo za każdym razem byś musiał je wprowadzać z poziomu');
writeln('dzłającego programu.');

WRITELN('1.Zloty Polski 2.Euro 3.Dolar 4.Frank 5.Peso');
WRITELN('ABY POZNAC INFORMACJE DOTYCZACE WYZEJ WYMIENIONYCH TEMATOW WPISZ ODPOWIEDNIA CYFRE');

WRITELN('PODAJ WARTOSC A, na jak walute chcesz zamieniac.');
Readln(A);
writeln('Podaj ilosć złotówek, które chcesz zamienić na na wybraną przez siebie walute');
readln(B);

If a=1 then
BEGIN
wynik:=b/1;
writeln('Jeden złoty to: ',wynik:10:2,' zlotych.');
readln;
End;

If a=2 then
BEGIN
wynik:=b/2;
writeln('Jeden złoty to: ',wynik:10:2,' euro.');
readln;
End;

If a=3 then
BEGIN
wynik:=b/3;
writeln('Jeden złoty to: ',wynik:10:2,' dolar.');
readln;
End;

If a=4 then
BEGIN
wynik:=b/4;
writeln('Jeden złoty to: ',wynik:10:2,' frank.');
readln;
End;

If a=5 then
BEGIN
wynik:=b/5;
writeln('Jeden złoty to: ',wynik:10:2,' peso.');
readln;
End;

end.


[Czarodziejczarek]

żeby każdy myślał ze to ty napisałeś to usuń to kiedy nauczycielowi będziesz oddawać

Kod: Zaznacz wszystko

Writeln('Ja tu przyjmuje że 1Pln=1Pln, 1Euro=2Pln, 1Dolar=3Pln, 1Frank=1Pln.');
writeln('Robie to w tym celu aby ułatwić sobie życie czy wszytko dobrze działa');
writeln('Jeżeli chciałbyś żeby wartośći danych walut były zmienne, to już jest wyższa półka');
writeln('bo albo wczytywało by to z pliku, albo za każdym razem byś musiał je wprowadzać z poziomu');
writeln('dzłającego programu.');


to jest najprostsza wersja bez różnych zabezpieczeń itp i działa tylko w jedna stronę... dwie strony można by było dorzucić po przez warunek if lub else życze milej zabawy narka

[Czarodziejczarek]

aha i jeszcze jedno wersje z zabezpieczeniami może napisze jeszcze dla ciebie ale nie dziś. pozdro....

[Czarodziejczarek]

o to programik gdzie ni gdzie jest zabezpieczony przed literami ale wszędzie tego nie robiłem bo trzeba postąpić analogicznie itp... program skopiuj tak jak jest nic nie zmieniaj sprawdzałem działa jeśli pojawi się błąd myślę że sobie poradzisz. skopiuj go to notatnik i plik zapisz jako np: kantor.pas. nastepnie uruchom go przez turbo pascala i włącz run+f9. zamknij i uruchom aplikacje kantor.exe. pozdrawiam...

Miłej Nauki...

Kod: Zaznacz wszystko

program Kantor;
uses crt;

var A,b,wynik:real;
var ZNAKCYFRA,znak:char;

BEGIN

CLRSCR;
textcolor(1);
gotoxy(10,10);
WRITELN('*********************************************************');
gotoxy(10,11);
WRITELN('*                                                       *');
gotoxy(10,12);
WRITELN('*         PROGRAM PODAJE WARTOSC WALUTY POLSKIEJ        *');
gotoxy(10,13);
WRITELN('*         WZGLEDEM OBCEJ WALUTY, ORAZ                   *');
gotoxy(10,14);
WRITELN('*         WARTOSC WALUTY OBCEJ WZGLEDEM POLSKIEJ.       *');
gotoxy(10,15);
WRITELN('*                                                       *');
gotoxy(10,16);
textcolor(10);
WRITELN('*                                         VERSION 1.0   *');
gotoxy(10,17);
textcolor(1);
WRITELN('*********************************************************');
gotoxy(25,25);
writeln('Wcisnij "Enter", aby kontynuowac.');
READLN;
CLRSCR;

textcolor(2);
gotoxy(10,10);
WRITELN('WYBIERZ KONWERSJE WALUT: WCISNIJ "0",');
gotoxy(10,11);
writeln('ABY WYBRAC KONWERSJE POLSKA->OBCA.');

textcolor(3);
gotoxy(10,12);
WRITELN('WYBIERZ KONWERSJE WALUT: WCISNIJ "1",');
gotoxy(10,13);
writeln('ABY WYBRAC KONWERSJE OBCA->POLSKA.');
READLN(ZNAKCYFRA);
clrscr;

if (Znakcyfra<'0') or (znakcyfra>'1') or
   (znakcyfra='a') or (znakcyfra='b') or  (znakcyfra='c') or (znakcyfra='d') or
   (znakcyfra='e') or (znakcyfra='m') or  (znakcyfra='u') or (znakcyfra='D') or
   (znakcyfra='f') or (znakcyfra='n') or  (znakcyfra='w') or (znakcyfra='E') or
   (znakcyfra='g') or (znakcyfra='o') or  (znakcyfra='x') or (znakcyfra='F') or
   (znakcyfra='h') or (znakcyfra='p') or  (znakcyfra='y') or (znakcyfra='G') or
   (znakcyfra='i') or (znakcyfra='q') or  (znakcyfra='z') or (znakcyfra='H') or
   (znakcyfra='j') or (znakcyfra='r') or  (znakcyfra='A') or (znakcyfra='I') or
   (znakcyfra='k') or (znakcyfra='s') or  (znakcyfra='B') or (znakcyfra='J') or
   (znakcyfra='l') or (znakcyfra='t') or  (znakcyfra='C') or (znakcyfra='K') or
   (znakcyfra='L') or (znakcyfra='U') or  (znakcyfra='W') or
   (znakcyfra='M') or (znakcyfra='T') or  (znakcyfra='X') or
   (znakcyfra='N') or (znakcyfra='S') or  (znakcyfra='Y') or
   (znakcyfra='O') or (znakcyfra='R') or  (znakcyfra='Z') or
   (znakcyfra='P') or (znakcyfra='Q') or  (znakcyfra='a') or
   (znakcyfra='') THEN
BEGIN
gotoxy(8,9);
textcolor(4);
writeln('Podales zla wartosc moze byc tylko 0 lub 1. Nastpi zamkniecie programu.');
gotoxy(8,10);
writeln('Ponow probe po kolejnym uruchomieniu programu.');
readln;
exit;
end;

clrscr;

textcolor(4);
gotoxy(10,10);
WRITELN('WYBIERZ ODPOWIEDNIA WALUTE ŻZADANA WALUTE.');
gotoxy(10,11);
WRITELN('WALUTY DO WYBORU: 1.Zloty Polski 2.Euro 3.Dolar 4.Frank 5.Peso');

textcolor(5);
gotoxy(10,13);
WRITELN('ABY POZNAC INFORMACJE DOTYCZACE WYZEJ WYMIENIONEJ');
gotoxy(10,14);
writeln('WALUTY WPISZ ODPOWIEDNIA CYFRE WYBRANA Z KLAWIATURY.');

textcolor(6);
gotoxy(10,16);
WRITELN('Podaj wartosc 1,2,3,4 lub 5, na jaka  walute chcesz');
gotoxy(10,17);
writeln('zamieniac/wymienic pieniadze.');
Readln(a);

if (a<1) or (a>5)  THEN
BEGIN
   gotoxy(8,9);
   textcolor(4);
   writeln('Podales zla wartosc moga byc tylko liczby zprzedzialu od 1 do 5. Nastpi zamkniecie programu.');
   gotoxy(8,10);
   writeln('Ponow probe po kolejnym uruchomieniu programu.');
   readln;
   exit;
end;


textcolor(7);
gotoxy(10,19);
writeln('Podaj ilosc zlotowek (kwote), ktore chcesz zamienic');
gotoxy(10,20);
writeln('na wybrana przez siebie walute.');
readln(b);
textcolor(8);
gotoxy(10,22);
writeln('Teraz wyczyszcze ekran w celu podania wyniku, wcisnij "Enter".');
textcolor(9);
gotoxy(10,24);
writeln('Czekaj analizuje... ');
readln;

CLRSCR;

textcolor(10);

if znakcyfra='0' then
begin
   if a=1 then
   BEGIN
   wynik:=b/1;
        gotoxy(20,20);
   writeln('Kwota ',b:10:2,' zloty/-ch to: ',wynik:10:2,' zloty/-ch.');
   readln;
   End;

   If a=2 then
   BEGIN
   wynik:=b/2;
        gotoxy(20,20);
   writeln('Kwota ',b:10:2,' zloty/-ch to: ',wynik:10:2,' euro.');
   readln;
   End;

   If a=3 then
   BEGIN
   wynik:=b/3;
        gotoxy(20,20);
   writeln('Kwota ',b:10:2,' zloty/-ch to: ',wynik:10:2,' dolar/-ow.');
   readln;
   End;

   If a=4 then
   BEGIN
   wynik:=b/4;
        gotoxy(20,20);
   writeln('Kwota ',b:10:2,' zloty/-ch to: ',wynik:10:2,' frank/-ow.');
   readln;
   End;

   If a=5 then
   BEGIN
   wynik:=b/5;
        gotoxy(20,20);
   writeln('Kwota ',b:10:2,' zloty/-ch to: ',wynik:10:2,' peso.');
   readln;
   End;

gotoxy(10,22);
textcolor(11);
writeln('Dziekujemy za z korzystanie z naszego programu Kantor version 1.0');
readln;

end;

if znakcyfra='1' then
begin
   if a=1 then
   BEGIN
   wynik:=b*1;
        gotoxy(20,20);
   writeln('Kwota ',b:10:2,' zloty/-ch to: ',wynik:10:2,' zloty/-ch.');
   readln;
   End;

   If a=2 then
   BEGIN
   wynik:=b*2;
        gotoxy(20,20);
   writeln('Kwota ',b:10:2,' euro to: ',wynik:10:2,' zloty/-ch.');
   readln;
   End;

   If a=3 then
   BEGIN
   wynik:=b*3;
        gotoxy(20,20);
   writeln('Kwota ',b:10:2,' dolar/-ow to: ',wynik:10:2,' zloty/-ch.');
   readln;
   End;

   If a=4 then
   BEGIN
   wynik:=b*4;
        gotoxy(20,20);
   writeln('Kwota ',b:10:2,' frank/-ow to: ',wynik:10:2,' zloty/-ch.');
   readln;
   End;

   If a=5 then
   BEGIN
   wynik:=b*5;
        gotoxy(20,20);
   writeln('Kwota ',b:10:2,' peso to: ',wynik:10:2,' zloty/-ch.');
   readln;
   End;

textcolor(11);
gotoxy(10,22);
writeln('Dziekujemy za z korzystanie z naszego programu Kantor version 1.0');
readln;

end;

end.


podkreslam, że to jest gotowy program bez jakiś tam udziwnien, i nei jest głupio odporny itp...
Pozdrawiam