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
	» Piwomir 16:45 » AfiP 16:43 » skalak23 16:41 » wrrr 16:37 » NWN 16:33 » Liu CAs 16:32 » elliot_pl 16:31 » Sherif 16:28 » NimnuL 16:26 » J@rek 16:25 » siwydym 16:22 » Artaa 16:21 » Syzyf 16:15 » zibi13 16:14 » mravel 16:13 » Doczu 16:08 » jablo 16:05 » Miron 16:04 » KHot 16:00 » ReMoS 15:56 Dzisiaj przeczytano 36877 postów, wczoraj 25433 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.