Нельзя преобразовать тип

@Profderevbud · Регистрация: 08.02.2018

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

Привет всем! при написании программы столкулся с проблемой
при компиляции
kr:= (0.6+(lat/2)/(COS*((3,14*grad)/180))*(long+0.6));
выдает
Нельзя преобразовать тип Tuple<integer,real> к real
незнаю где ошибся.

@Puporev · 08.02.2018, 20:42

Объявите все переменные как real;

@Profderevbud · 08.02.2018, 20:46 **[ТС]**

Pascal
1
2
3
4
5
PROGRAM PR4;
VAR 
lat,long,h,win,dor,persh, perdov, grad,lag,stoj,prog,krokv,latan,membr,ruf,pot,pol, vat, met, 
svai, komyn, robot, koef, nar, vn,gips,vag,blok,falch,st,kr: REAL;
BEGIN

как-бы сделал, но....

@ZX Spectrum-128 · 08.02.2018, 20:54

Profderevbud, по тем обрывкам, что вы предоставляете, понять невозможно.

@Profderevbud · 08.02.2018, 20:59 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PROGRAM PR4;
VAR 
lat,long,h,win,dor,persh, perdov, grad,lag,stoj,prog,krokv,latan,membr,ruf,pot,pol, vat, met, 
svai, komyn, robot, koef, nar, vn,gips,vag,blok,falch,st,kr: REAL;
BEGIN 
  ........
......тело с вводом даных опускаю
.......
  st:=lat*long*2;
  vn:= (lat*h*2+lat*h*persh*2+long*h*2+long*h*2)*((blok*240/100)+(vag*120/100)+(falch*160/100)+(gips*35/100))+st*(blok*240/100)+(vag*120/100)+(falch*160/100)+(gips*35/100); 
  nar:= (lat*(h+0.7)+long*(h+0.7))*2; 
  kr:= (0.6+(lat/2)/(COS*((3,14*grad)/180))*(long+0.6)); 
  area:=a*a*sin(x)/(2*cos(x));
  WRITELN('Y =', st);
END.

@ZX Spectrum-128 · 08.02.2018, 21:02

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

COS*

Что это?

@Profderevbud · 08.02.2018, 21:36 **[ТС]**

функция косинус угла для вычисления катета

@Puporev · 09.02.2018, 08:32

У Вас неправильно написана формула, с косинус нужно так

Pascal
1
(cos(pi*grad)/180)*(long+0.6)

Добавлено через 1 минуту
Вообще такое ощущение что написано не очень верно. Напишите точное и полное условие задачи.

@Cyborg Drone · 09.02.2018, 13:46

Puporev, скобка после grad лишняя.

@Puporev · 09.02.2018, 13:47

Это да.

@Profderevbud · 09.02.2018, 15:41 **[ТС]**

Всем огромное спасибо, причина была в точке числа пи, и может ещё в чём-то но когда подставил выражение
гр. Puporev всё пошло.

@Puporev · 09.02.2018, 15:43

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

причина была в точке числа пи

Это скорее всего так, но и cos* это тоже какое-то чудо.

@Profderevbud · 09.02.2018, 16:19 **[ТС]**

вообще-то выражение было скопировано из Exel отсюда и проблемы

@Puporev · 09.02.2018, 16:20

А нужно не копировать откуда попало, а печатать условие руками.

@Profderevbud · 09.02.2018, 17:11 **[ТС]**

Ну вообще-то лень движитель прогреса.

@Puporev · 09.02.2018, 17:12

Не по теме:

Ага, по тебе это видно...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Profderevbud 0 / 0 / 0 Регистрация: 08.02.2018 Сообщений: 7

	Нельзя преобразовать тип 08.02.2018, 20:41. Показов 1809. Ответов 15 Метки нет (Все метки) Привет всем! при написании программы столкулся с проблемой при компиляции kr:= (0.6+(lat/2)/(COS((3,14grad)/180))*(long+0.6)); выдает Нельзя преобразовать тип Tuple<integer,real> к real незнаю где ошибся. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	08.02.2018, 20:42
	Объявите все переменные как real; 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	08.02.2018, 20:54
	Profderevbud, по тем обрывкам, что вы предоставляете, понять невозможно. 0

@Profderevbud 0 / 0 / 0 Регистрация: 08.02.2018 Сообщений: 7
	08.02.2018, 21:36 [ТС]
	функция косинус угла для вычисления катета 0

@Cyborg Drone Модератор 10431 / 5719 / 3404 Регистрация: 17.08.2012 Сообщений: 17,395
	09.02.2018, 13:46
	Puporev, скобка после grad лишняя. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.02.2018, 13:47
	Это да. 0

@Profderevbud 0 / 0 / 0 Регистрация: 08.02.2018 Сообщений: 7
	09.02.2018, 15:41 [ТС]
	Всем огромное спасибо, причина была в точке числа пи, и может ещё в чём-то но когда подставил выражение гр. Puporev всё пошло. 0

@Profderevbud 0 / 0 / 0 Регистрация: 08.02.2018 Сообщений: 7
	09.02.2018, 16:19 [ТС]
	вообще-то выражение было скопировано из Exel отсюда и проблемы 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.02.2018, 16:20
	А нужно не копировать откуда попало, а печатать условие руками. 0

@Profderevbud 0 / 0 / 0 Регистрация: 08.02.2018 Сообщений: 7
	09.02.2018, 17:11 [ТС]
	Ну вообще-то лень движитель прогреса. 0

@Puporev
	09.02.2018, 17:12
	Не по теме: Ага, по тебе это видно... 0