помогите найти ошибку! - Паскаль, Turbo Pascal, PascalABC.NET

Picaso18 · 24.01.2009, 15:11

z,b,y,Otvet1:integer;
x:string;

if b <> 10 Then Begin for y:=z downto 0 do Otvet1:=x[y] * (exp(b * ln(y)));end
Выдает ошибку несоответствие типов.
подскажите где ошибка и как исправить.

capta1n · 24.01.2009, 15:14

умножение на экспоненту чего-то там - всегда real, так что Otvet1 сделайте real; во-вторых, только сейчас заметил, вы умножаете число на символ - что вы хотите получить на выходе

это неверно - поэтому если это не исправить, мое первое замечание не в счет!

Picaso18 · 24.01.2009, 15:28

как исправить

Иван 883 · 24.01.2009, 15:32

z,b,y:integer;
Otvet1:real;
x:string;

24.01.2009, 15:11	#1
Picaso18 Регистрация: 25.12.2008 Сообщений: 8	помогите найти ошибку! z,b,y,Otvet1:integer; x:string; if b <> 10 Then Begin for y:=z downto 0 do Otvet1:=x[y] * (exp(b * ln(y)));end Выдает ошибку несоответствие типов. подскажите где ошибка и как исправить. "Наша жизнь такова, какой делают ее наша мысли."

24.01.2009, 15:28	#3
Picaso18 Регистрация: 25.12.2008 Сообщений: 8	как исправить "Наша жизнь такова, какой делают ее наша мысли."

24.01.2009, 15:32	#4
Иван 883 Пользователь Регистрация: 25.12.2008 Сообщений: 39	. z,b,y:integer; Otvet1:real; x:string;

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
помогите найти ошибку	LyaLyaLya	Помощь студентам	6	15.12.2008 20:59
Помогите найти ошибку ( с++ )	JOFRIF	Помощь студентам	10	23.05.2008 14:34
Помогите найти ошибку	N!ckeL	Общие вопросы Delphi	9	05.05.2008 14:15
Помогите найти ошибку	JOFRIF	Помощь студентам	8	22.04.2008 14:22

24.01.2009, 15:14	#2
capta1n Форумчанин Регистрация: 06.12.2008 Сообщений: 613	умножение на экспоненту чего-то там - всегда real, так что Otvet1 сделайте real; во-вторых, только сейчас заметил, вы умножаете число на символ - что вы хотите получить на выходе это неверно - поэтому если это не исправить, мое первое замечание не в счет!