Pascal - potrzebna szybka pomoc (lamerskie pytanie)

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» Kool@ 21:06 » Markizy 21:05 » @GUTEK@ 21:02 » XepeR 21:01 » rooter666 21:00 » Ziomek 20:58 » Curro 20:57 » rurecznik 20:55 » rainy 20:54 » wielo 20:53 » DYD 20:51 » ham_solo 20:50 » Dexter 20:48 » kicior 20:47 » Wedelek 20:46 » yanix 20:45 » GULIwer 20:36 » wrrr 20:34 » JE Jacaw 20:27 » Sebek 20:27 Dzisiaj przeczytano 41123 postów, wczoraj 25974 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

Pascal - potrzebna szybka pomoc (lamerskie pytanie) , BigeRr 8/11/05 10:20
Siema, Potrzebuje szybkiej pomocy od kogoś kto zna się na Pascalu,jestem początkujący w tym i nie potrafie zrozumieć tego, jak funkcje zastąpić procedurą (mam takie zadanie). Mam na przykład takie coś:

Program Demo;
uses crt;
VAR
dlugosc1,dlugosc2,dlugosc2:real;

function trojkat(a,b,c:real):integer;
begin
trojkat:=a+b+c;
end;

begin
clrscr;
write('Podaj dlugosc pierwszego boku: ');
readln(dlugosc1);
write('Podaj dlugosc drugiego boku: ');
readln(dlugosc2);
write('Podaj dlugosc trzeciego boku: ');
readln(dlugosc3);
write('Obwod trojkata wynosi: ', trojkat(dlugosc1,dlugosc2,dlugosc3):5:2);
readln
end.

I tą funkje musze zastąpić procedurą:

Procedure trojkat(a,b,c:real; var wynik:integer);

(albo cos w tym stylu)

POMOCY!! :(

odpowiedz , biEski 8/11/05 10:28
Procedure trojkat(a,b,c:real; var wynik:integer)
begin
wynik:=a+b+c;
end;

wiem ze sie uczysz ake tak zapytam bana na google masz
na google na pewno znalazl bys odpowiedz :> i to szybciej niz czekajac naz ktos ci odpisze :P
Dzięki, ale..... , BigeRr 8/11/05 10:40
mam prośbe, mógłbyś napisać cały program z tą procedurą :/ (lamer ze mnie, wiem), bo nie kumam jak to dalej zrobić, chce zobaczyć jak cały wygląda.

Na google bym szukał (zazwyczaj tam najpierw szukam), ale teraz naprawde nie mam czasu, mam kupe zadań do robienia, i tak tym razem bedzie dla mnie lepiej, jakby ktoś mi pomógł. Więc prosze.... nie bijcie :(
666 , recydywista 8/11/05 11:18
Program Demo;
uses crt;
VAR
dlugosc1,dlugosc2,dlugosc2:real;
wyn:integer;

procedure trojkat(a,b,c:real, var wynik:integer);
begin
wynik:=a+b+c;
end;

begin
clrscr;
write('Podaj dlugosc pierwszego boku: ');
readln(dlugosc1);
write('Podaj dlugosc drugiego boku: ');
readln(dlugosc2);
write('Podaj dlugosc trzeciego boku: ');
readln(dlugosc3);
trojkat(dlugosc1,dlugosc2,dlugosc3,wyn);
write('Obwod trojkata wynosi: ', wyn:5:2);
readln
end.
Computers are useless. They can only
give you
answers.
HEHE , Deus ex machine 8/11/05 12:13
ale jak pascal z real zrobi integer'a to ja bede swiety .)

procedure trojkat(a,b,c:real, var wynik:integer);
zmien na
procedure trojkat(a,b,c:real; var wynik:real);
i
wyn:integer;
na
wyn:real;
"Uti non Abuti"
1. właśnie , kicior 8/11/05 19:07
  jak nie zmieni to będzie niezgodność typów. Poza tym jak liczba całkowita może mieć jakieś miejsca po przecinku.
Pascal... , Pron! 8/11/05 13:31
...po prostu gotuj :D
Slalom alejkom!
Ok..... , BigeRr 8/11/05 16:41
dzięki wielke za pomoc, tym prostym sposobem skumałem (mniej wiecej, ale zawsze coś) na czym polega procedura. Trzeba się zabrać za kolejne zadania....ehh.

Pozdro.