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
	» Hitman 23:27 » Fl@sh 23:17 » DJopek 23:08 » petropank 23:07 » rarek 23:06 » Wolf 23:05 » Zbyszek.J 23:02 » b0b3r 22:58 » cVas 22:56 » dugi 22:51 » Dexter 22:50 » Soulburne 22:44 » stefan_nu 22:41 » Brauni 22:41 » maddog 22:39 » Kenny 22:36 » toledo 22:35 » Raist 22:33 » DYD 22:32 » buddookan 22:32 Dzisiaj przeczytano 40700 postów, wczoraj 25604 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.