Написать программы с использованием процедуры и функции

@Elserjo · Регистрация: 20.11.2012

Author24 — интернет-сервис помощи студентам

Написать программы с использованием:
А) процедуры
Б) функции

@ermolay · 07.01.2013, 09:55

хмм.. что-то закономерности не наблюдается, потому просто вычисляю выражение..
1. процедура

Pascal

procedure f();
var x: real;
begin
  x:=(2+sin(3))/(3+sin(2))
    +(1+sin(5))/(sin(1)+5)
    +(sin(7)+4)/(sin(3)+7);
  writeln('x = ',x);
end;
 
begin
  f;
  readln;
end.

2. функция

Pascal

function f(): real;
var x: real;
begin
  f:=(2+sin(3))/(3+sin(2))
    +(1+sin(5))/(sin(1)+5)
    +(sin(7)+4)/(sin(3)+7);
end;
 
begin
  writeln(' x= ',f);
  readln;
end.

@Puporev · 07.01.2013, 12:32

Мне кажется в условии опечатка, в знаменателе последней дроби просится sin4. Просто были уже такие задачи.

@Elserjo · 09.01.2013, 19:46 **[ТС]**

а такой вопрос, при запуске пишет "Identifier expected" в чем может быть проблема?

@ermolay · 09.01.2013, 20:08

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

в чем может быть проблема?

сорри, компилировал в PascalABC.net, попробуйте без скобок в процедуре:

Pascal

procedure f;
var x: real;
begin
  x:=(2+sin(3))/(3+sin(2))
    +(1+sin(5))/(sin(1)+5)
    +(sin(7)+4)/(sin(3)+7);
  writeln('x = ',x:5:3);
end;
 
begin
  f;
  readln;
end.

так оно работает и в Pascal ABC и во Free Pascal. Проверить в турбо сейчас не могу..

Добавлено через 44 секунды
в 7-й строке добавил форматирование вывода

@Elserjo · 09.01.2013, 20:10 **[ТС]**

ermolay работает)

Написать программы с использованием процедуры и функции

Решение

Решение

@Elserjo 11 / 11 / 0 Регистрация: 20.11.2012 Сообщений: 150
		1
	Написать программы с использованием процедуры и функции 06.01.2013, 19:03. Показов 1924. Ответов 5 Метки нет (Все метки) Написать программы с использованием: А) процедуры Б) функции Миниатюры 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.01.2013, 12:32	3
	Мне кажется в условии опечатка, в знаменателе последней дроби просится sin4. Просто были уже такие задачи. 1

@Elserjo 11 / 11 / 0 Регистрация: 20.11.2012 Сообщений: 150
	09.01.2013, 19:46 [ТС]	4
	а такой вопрос, при запуске пишет "Identifier expected" в чем может быть проблема? 0

@Elserjo 11 / 11 / 0 Регистрация: 20.11.2012 Сообщений: 150
	09.01.2013, 20:10 [ТС]	6
	ermolay работает) 0