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
	» rooter666 14:39 » Mariosti 14:38 » xan 14:37 » P.J._ 14:35 » myszon 14:33 » Dexter 14:31 » Wolf 14:25 » wrrr 14:24 » Kenny 14:22 » exmac 14:21 » skalak23 14:19 » Visar 14:17 » alien1 14:02 » rzymo 14:01 » esteban 14:01 » Ramen 13:58 » Doczu 13:52 » zibi13 13:50 » KHot 13:45 » kemilk 13:32 Dzisiaj przeczytano 18353 postów, wczoraj 26990 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.