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
	» dugi 07:38 » steve 07:33 » ghost12 07:25 » alkatraz 07:24 » Miron 07:16 » P@blo 07:09 » Zbyl 07:07 » DYD 07:06 » XepeR 07:05 » Syzyf 07:02 » PaKu 07:01 » leosh 06:55 » AfiP 06:36 » KHot 06:35 » DJopek 06:29 » Killer 06:19 » Dexter 06:00 » Kenny 05:55 » hokr 05:45 » @GUTEK@ 05:23 Dzisiaj przeczytano 97987 postów, wczoraj 92849 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.