Programowanie - program - pomoc

[Gość: :)]

Moglby ktos napisac program, ktory z wykorzystaniem procedur i funkcji od
woli użytkownika liczy iloraz lub iloczyn 2 liczb.

[bogus_jurlich]

hm...
ale oczywiscie wiesz ze funkcja daje winik a procedura nie....

[Gość: KT05]

A w jakim języku? Jak mowa o procedurach i funkcjach to można przypuszczać, że
chodzi o Pascala... ale Borland Pascala, Delphi Pascala czy jakiego? :)

[Gość: Royal]

Ale delphi też jest Borlanda

[Gość: KT05]

Ale język jest mimo wszystko zmodyfikowany w stosunku do innych wersji Pascala...

[doomboy]

Gość portalu: KT05 napisał(a):

> Ale język jest mimo wszystko zmodyfikowany w stosunku do innych wersji
Pascala.
> ..
Niekoniecznie. Delphi bez problemu może obsłużyć np. Turbo Pascala wraz z
komendami charakterystycznymi dla tego środowiska (writeln, readln). Aby
stworzyć aplikację konsolową, zapisz plik project1.dpr (nie zapisuj pliku
formularza unit1.pas) i go zmodyfikuj do postaci (możesz zmodyfikować plik np.
za pomocą notatnika):
//zawartość pliku dpr
program project1;
uses
Forms;
{$R *.res}
begin
Application.Initialize;
Application.Run;
end.
Otwierasz projekt w Delphi i jedziesz tak jak w TP ;) :
program nazwa:
Begin
//instrukcje
end.
Delphi jest kompilatorem Object Pascala, ale także Pascala.

[Gość: KT05]

To, ze obsłuzy jako apliakcja konsolowa wszystko to co Turbo Pascal taki to to
ja wiem. Delphi się od paru lat zajmuję. Ale tutaj głownie chodziło mi o to, że
w Delphi w stosunku na przykłąd do TP pojawiły się na przykład klasy czy wyjątki
(i konstrukcja try..except) i tym podobne.

[spl2]

nie pamietam jak to bylo w pascalu (kilka lat temu troche pisalem w nim), ale
na pewno funkcja (taka jak twoja) musi przyjmowac argumenty (np. dwie liczby
zmiennopozycyjne - to chyba double albo float) i zwracac takze liczbe
zmiennopozycyjna. i to chyba wszystko - potem tylko pozostaje
dopisanie 'interfejsu' i wywolanie funkcji.

[doomboy]

Wystarczą dwie funkcje:

function iloczyn(X:currency; Y:currency):currency;
Begin
result:=X*Y;
end;

function iloraz(X:currency; Y:currency):currency
Begin
result:=X/Y;
end;

Powyższe funkcje należy jeszcze odpowiednio wywołać, np:
var zmiennaX, zmiennaY: currency //deklatracja zmiennych
writeln('Podaj X:'); //gdzieś w kodzie programu :)
readln(zmiennaX);
writeln('Podaj Y:');
readln(zmiennaY);
writeln('Iloczyn wynosi: '+ iloraz(zmiennaX,zmiennaY));

Typ currency wskazuje na liczbę zmiennoprzecinkową, jeżeli wystarczą działania
na liczbach całkowitych wówczas lepiej użyć zmiennej typu integer, ale uwaga
jeżeli użyjesz typu integer wówczas nie można zastosować X/Y, tylko X mod Y.

[doomboy]

W Delphi identycznie jak powyżej tylko zamiast komend writeln i readln
korzystamy z komponentów i ich właściwości. Na formularzu umieszczamy 2
kontrolki edycyjne (edit1, edit2) oraz 1 etykietę (label1), i przycisk
(button1) w kodzie programu wpisujemy:

function iloczyn(X:currency; Y:currency):currency;
Begin
result:=X*Y;
end;

function iloraz(X:currency; Y:currency):currency;
Begin
result:=X/Y;
end;

Teraz w zdarzeniu OnClick komponentu button wpisujemy:
if (edit1.text<>'')and(edit2.text<>'') then
label1.caption:='Iloczyn wynosi: '+ currtostr(iloczyn(strtocurr
(edit1.text),strtocurr(edit2.text)));

[Gość: :)]

To ma byc w Pascalu:)

[doomboy]

Funkcje już napisałem powyżej, wystarczy je tylko lekko zmodyfikować w tym celu
trzeba zmienić currency (zmiennoprzecinkowe w Delphi) na np. real (rzeczywiste
w TP).
Zmienne zmiennoprzecinkowe w TP:
nazwa ilość bajtów na liczbę
real 6
single 4
double 8
extended 10
comp 8

[Gość: w++]

doomboy napisał:

> Funkcje już napisałem powyżej, wystarczy je tylko lekko zmodyfikować w tym celu

No i przy zwracaniu wartości funkcji zamiast zmiennej result, trzeba napisać po
prostu nazwę danej funkcji (w TP nie ma czegoś takiego jak result).

np.

function iloraz(X:real; Y:real):real;
Begin
iloraz:=X/Y;
end;