Ошибка выходит "требуется идентификатор"

@klubni4ka · Регистрация: 11.01.2011

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

Pascal

{lab6b.pas
------------------
 
sozdal:
data: 15/03/11
dlya: Turbo Pascal 7.1}
Program Lab6b;
   Const
     y=9.75;
   Var
     z,t: real;
Begin
Function t(x:real):real; (здесь пишет, что требуется идентификатор error in statement)
  var t,s:real;
  k:integer;
  Begin
    S:=0;
    For k:=1 to 5 do 
           s:=s+(x*x)/(2*k);
           t:=s;
End;
    Writeln ('z=',z:5:2);
    Readln;
End.

Комментарий модератора

Теги кода добавлены модератором. По правилам форума код должен быть оформлен соответствующими тегами. Для оформления кода Pascal следует выделить этот код и на панели редактирования сообщения нажать кнопку "PASCAL".

@SuPeR XaKer · 08.05.2011, 00:20

вроде все правильно, проверьте, если не сложно

за исключением того что у вас функция в основном теле каким то чудесным образом оказалась.да и идентификатор функции будет совпадать с именем переменной.
Не видя задание могу исправить так:

Pascal

Const
 y=9.75;
 
Function t(x:real):real;
var
 s:real;
 k:byte;
Begin
S:=0;
For k:=1 to 5 do
 s:=s+(x*x)/(2*k);
t:=s;
End;
 
Begin
Writeln ('z=',t(y));
Readln;
End.

@klubni4ka · 08.05.2011, 00:32 **[ТС]**

мне надо было вот эту задачу решить Дано действительное число y=9.75. Получить,
z= (1.7t(0.25)+2t(1+y))/(6-t(y^2-10)),где t(x)=∑ (сверху 5 снизу k=1 ) x*2/2k .
у меня вот так получилось.

Pascal

Function t (x:real):real;
  Begin
    S:=0;
    For k:=1 to 5 do 
           s:=s+(x*x)/(2*k);
           t:=s;
End;
 
Program Lab6b;
   Const
     y=9.75;
   Var
     z,t: real;
Begin
{функция}
    Writeln (‘z=’,z:5:2);
    Readln;
End.

но программа не запускается . подскажите что не так

Комментарий модератора

Теги кода добавлены модератором. По правилам форума код должен быть оформлен соответствующими тегами. Для оформления кода Pascal следует выделить этот код и на панели редактирования сообщения нажать кнопку "PASCAL".

@SuPeR XaKer · 08.05.2011, 00:37

но программа не запускается . подскажите что не так

ну не так здесь то что вы абсолютно не знаете что есть подпрограмма.

Pascal

Const
 y=9.75;
 
Function t(x:real):real;
var
 s:real;
 k:byte;
Begin
S:=0;
For k:=1 to 5 do
 s:=s+(x*2)/(2*k);
t:=s;
End;
 
Begin
Writeln ('z=',(1.7*t(0.25)+2*t(1+y))/(6-t(y*y-10)));
Readln;
End.

@klubni4ka · 08.05.2011, 00:45 **[ТС]**

вот работает спасибо огромное

только вот вы не могли бы мне объяснить, зачем ввели переменную L ?
без нее никак нельзя было?
а byte что за тип? мы просто не брали такого на занятиях. преподаватель прикопается

@SuPeR XaKer · 08.05.2011, 00:47

а byte что за тип? мы просто не брали такого на занятиях. преподаватель прикопается

http://pascal.guti.ru/types.html

только вот вы не могли бы мне объяснить, зачем ввели переменную L ?
без нее никак нельзя было?

смотри пост 4.Уже убрал т.к. она не нужна.

@klubni4ka · 08.05.2011, 00:54 **[ТС]**

спасибо огромнейшее вам!

вот у меня еще пара задач никак сделать не могу..
1. создать файл, содержащий сведения о расчете сметы капитальных затрат. структура файла: номер строки; наименование оборудования; планируемое количество; состояние заказа (поставщик, дата размещения заказа; ожидаемая дата поставки; примечания); фамилия инженера-куратора.
2.составить программу, осуществляющую поиск информации по номеру строки и выводящую на печать данные о состоянии заказа.

Ошибка выходит "требуется идентификатор"

Решение

Решение

@klubni4ka 1 / 1 / 0 Регистрация: 11.01.2011 Сообщений: 99
	08.05.2011, 00:45 [ТС]	5
	вот работает спасибо огромное только вот вы не могли бы мне объяснить, зачем ввели переменную L ? без нее никак нельзя было? а byte что за тип? мы просто не брали такого на занятиях. преподаватель прикопается 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	08.05.2011, 00:47	6
	а byte что за тип? мы просто не брали такого на занятиях. преподаватель прикопается http://pascal.guti.ru/types.html только вот вы не могли бы мне объяснить, зачем ввели переменную L ? без нее никак нельзя было? смотри пост 4.Уже убрал т.к. она не нужна. 0

@klubni4ka 1 / 1 / 0 Регистрация: 11.01.2011 Сообщений: 99
	08.05.2011, 00:54 [ТС]	7
	спасибо огромнейшее вам! вот у меня еще пара задач никак сделать не могу.. 1. создать файл, содержащий сведения о расчете сметы капитальных затрат. структура файла: номер строки; наименование оборудования; планируемое количество; состояние заказа (поставщик, дата размещения заказа; ожидаемая дата поставки; примечания); фамилия инженера-куратора. 2.составить программу, осуществляющую поиск информации по номеру строки и выводящую на печать данные о состоянии заказа. 0