procedure

[arnold]

procedure up(hz:integer);
	begin
		hz:=5;
		while hz<1600 do begin
			sound(hz);
			delay(20);
			hz:=hz+5;
		end;
	end;
procedure down(hz:integer);
	begin
		hz:=1600
		while hz>5 do begin
			sound(hz);
			delay(20)
			hz:=hz-5;
		end;
	end;
USES CRT;
begin up;delay(300);down;up;delay(300);down;end.

Что я не так написал, не запускается программа, выбивает ошибку.

[ViktorR]

procedure up(hz:integer);
begin
   hz:=5;
   ...
   ...

Так нельзя. Переменная hz - передается по значению. Почитай тему о передаче параметров.



Как-то так ...

[Stilet]

Что я не так написал

Ты код не так написал )

не запускается программа

Ужосс...

выбивает ошибку.

Закономерность.

А теперь подумай внимательно чего ты нам не рассказал для получения правильного ответа!

P.S. USES CRT; вообще-то принято писать самой первой строкой в исходнике.

Так нельзя. Переменная hz - передается по значению.

С чего бы это? Другое дело что автор описав параметр, просто напросто его не передает:

begin up;delay(300);down;

А надо как-то так:

begin up(100);delay(300);down(100);

Но лучше так:

procedure up; var hz:integer
	begin
		hz:=5;
		while hz<1600 do begin
			sound(hz);
			delay(20);
			hz:=hz+5;
		end;
	end;

[arnold]

Сообщение от Stilet

Ты код не так написал )

Ужосс...

Закономерность.

А теперь подумай внимательно чего ты нам не рассказал для получения правильного ответа!

P.S. USES CRT; вообще-то принято писать самой первой строкой в исходнике.


С чего бы это? Другое дело что автор описав параметр, просто напросто его не передает:
А надо как-то так:

begin up(100);delay(300);down(100);

Но лучше так:

procedure up; var hz:integer
	begin
		hz:=5;
		while hz<1600 do begin
			sound(hz);
			delay(20);
			hz:=hz+5;
		end;
	end;

Написал программу

procedure up; var hz:integer;
	begin
		hz:=5;
		while hz<1600 do begin
			sound(hz);
			delay(20);
			hz:=hz+5;
		end;
	end;
begin
up(100);
end.

и все равно выбивает ошибку. Использовал turbo pascal

[Serge_Bliznykov]

ну Вам же сказали, прочитайте про передачу параметров в процедуры/функции..

вот смотрите. Вы описали процедуру up.

procedure up;

у неё есть параметры?! (ответ: правильно, НЕТ параметров - вы ей параметров не разрешили иметь!)

теперь Вы эту процедуру вызываете:

up(100);

А что это вы в скобках передаёте в процедуру?! Параметер?! Какой параметер?! В процедуре НЕТ никаких параметров!

в вешем случае нужно вызывать просто

up;

без параметров!



p.s. очень рекомендую поставить в конце программы вызов процедуры nosound;
иначе спикер вас задолбает!

[arnold]

По моему у меня глюканутый паскаль

[Serge_Bliznykov]

во первых, на скриншоте не видно, на какой строчке выдалась ошибка (компилятор пишет, что не нашёл используемый Вами идентификатор и подсчвечивает этот самый идентификатор).
А во-вторых, рискну предположить, что он не знает, что такое sound (или delay
потому как Вы забыли указать модуль, где это идентификатор описан.

напишите вначале программы

uses Crt;

[arnold]

Большое спасибо