Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Ошибка в сортировке масива https://www.cyberforum.ru/ pascalabc/ thread958561.html
Значения элементов массива упорядочены по убыванию. Определить, на какое место в массиве следует записать число 100, чтобы упорядоченность значений сохранилась. Помогите найти ошибку var a:array of integer; i,j,k,c,p,n,m,min,s: integer; q:boolean; begin c:=100; read(n); for i:= 1 to n do read(a); for i:= 1 to n do
Pascal ABC Найти минимальный элемент последовательности среди элементов расположенных на четных местах
найти минимальный элемент последовательности среди элементов расположенных на четных местах и положительных
Pascal ABC Определить взаимное расположение прямоугольника и окружности Прямоугольник находится в начале координат нижним левым углом. Входные данные:высота и длина прямоуглотника, радиус и координаты окружности. https://www.cyberforum.ru/ pascalabc/ thread958162.html Pascal ABC Вычислить для треугольника со сторонами a, b и c радиус R окружности, которая или вписана в него, или описана вокруг него. Вычислить для треугольника со сторонами a, b и c радиус R окружности, которая или вписана в него, или описана вокруг него. https://www.cyberforum.ru/ pascalabc/ thread957998.html
Pascal ABC Перевести код с Турбо на АВС (с модулем Graph)
ребят можете перекодировать программу а то на моей системе TP не работает. Модуль Graph не работает program Potokk1; uses crt,graph; const n=2;m=50;dt=1;dx=1;s=1; var i,kk,k,j,DriverVar,ModeVar,ErrorCode:integer; p:array of real; uslovie:boolean; v:real;
Pascal ABC Принадлежит ли начало координат данному прямоугольнику https://www.cyberforum.ru/ pascalabc/ thread957889.html
Действительные числа x1,y1,x2,y2,x3,y3,x4,y4 являются координатами вершин прямоугольника со сторонами параллельными осям координат. Принадлежит ли начало координат этому прямоугольнику? Помогите, ребята. Заранее спасибо. Задача на разветвленную программу, хотя думаю вы и так догадались.
Pascal ABC Цикл на несколько вхождений Есть тут проблема, вот само задание: заменить все слова child на children в строке. В общем у меня заменяет только при первом вхождении, последующие игнорит. Посмотрите, может подскажите в чем ошибка. Вот код: program pas_79; uses crt; var stroka, subs, subs_remove:string; n:integer; begin clrscr; writeln('Введите текст:'); readln(stroka); writeln('Искомое... https://www.cyberforum.ru/ pascalabc/ thread957828.html Pascal ABC pi
вычислить число pi
Pascal ABC Найти корень числа https://www.cyberforum.ru/ pascalabc/ thread957821.html
составить программу нахождения числа корень из 2 в десятичном представлении.
Pascal ABC Составление программы Приветствую всех форумчан, прошу помощи в составлении программы: Даны натуральное число n и вещественные числа t, a0, a1, ..., an. Вычислить значение многочлена: a0*xn+a1*xn-1+...+an-1*x+an и его производной в точке t2+0.5 Знания пока не позволяют сделать это. Буду благодарен за любую помощь в написании этой программы. https://www.cyberforum.ru/ pascalabc/ thread957702.html
Составить пару примитивных программ Pascal ABC
Ребят, нужна помощь. Помогите составить 2 программы. Нужны только 2 задания с каждой картинки. Спасибо большое! Ссылки на картинки с заданиями. первая,вторая
Pascal ABC Условие: Проверить, образуют ли введенные символы А, В, С целое трехзначное четное число https://www.cyberforum.ru/ pascalabc/ thread957431.html
Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если выполняется указанное условие, и FALSE в противном случае.(Операторы IF и Case не использовать). б) введенные символы А,В,С образуют целое трехзначное четное число; Var n1,n2,n3: byte; t:boolean; Begin readln(n1,n2,n3); t:=(n1*100+n2*10+n3) mod 2=0; writeln(t); End.
0 / 0 / 0
Регистрация: 15.09.2013
Сообщений: 4
0

Program1.pas(12) : Нельзя преобразовать тип real к integer - Pascal ABC - Ответ 5079133

20.09.2013, 18:04. Показов 45882. Ответов 9
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program Logika; 
var x,y,z: real; 
 L,A,B,C:boolean; 
begin 
 cls; 
 // Вводим исходные данные: 
 writeLn('Введите x,y,z'); 
 readLn(x,y,z); 
 // вычисляем промежуточные предикаты: 
 A:= (sin(x)>cos(x)); 
 B:= (abs(y)>= 2*(sqrt(x))); 
 C:= (12 div z <= 6);
 // выводим полученные значения
writeLn('A=',A,' B=',B,' C=',C);
 // вычисляем и выводим результирующий предикат: 
 L:= ((C xor B) and (A or B)) xor B;
 writeLn('L=',L); 
end.
В чем проблема?

Вернуться к обсуждению:
Program1.pas(12) : Нельзя преобразовать тип real к integer Pascal ABC
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.09.2013, 18:04
Готовые ответы и решения:

Program1.pas(7) : Нельзя преобразовать тип KeyValuePair<real,integer> к real
program pomogite; var x, y: real; begin readln(x); if x=&gt;-2 and 3&gt;=x then y:=sqrt(x*x+4) ...

Запутался с программой,выдает ошибку Program1.pas(21,4): Нельзя преобразовать тип IEnumerable<integer> к integ
Доброго времени суток,суть моей проблемы такова.При запуске программы выдает ошибку...

Нельзя преобразовать тип function(a: integer;b: integer):integer к real
unit matr1; interface type matr2=array of real; matr3=array of real; procedure sum...

Нельзя преобразовать тип real к integer
Всем привет) В процессе написание программы у меня возникла следующая проблема: Строка 24: нельзя...

9
20.09.2013, 18:04
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.09.2013, 18:04
Помогаю со студенческими работами здесь

Нельзя преобразовать тип real к integer
Выдаёт ошибку при завершении &quot;Program1.pas(15,20): Нельзя преобразовать тип real к integer&quot; в чём...

Нельзя преобразовать тип real к integer
uses graphabc; begin var x,y:real; var angl:integer; x:=0; y:=0; for angl:=0 to...

Нельзя преобразовать тип real к integer
Пишет ошибку : Нельзя преобразовать тип real к integer procedure Repeat1; Const Alpha = 0.1;...

Нельзя преобразовать тип real к integer
program l7; var F1,F2:text; R,K:real; i:byte; begin assign(F1,'E:\file1.txt');...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru