Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Вычислить сумму из n слагаемых https://www.cyberforum.ru/ pascal/ thread1261335.html
Дано целое число n (вводится с клавиатуры). Вычислить сумму из n слагаемых: y=\frac{n!}{\sqrt{1}}+\frac{(n-1)!}{\sqrt{2+3}}+\frac{(n-2)!}{\sqrt{4+5+6}}+\frac{(n-3)!}{\sqrt{7+8+9+10}}+...
Разложить числа на четные и нечетные Pascal
Разложить числа на четные и нечетные. Паскаль. Спасибо большое!
Pascal Ошибка в программе, определяющей пересечение фигур var d1,d2,a,b,x1:real; c,h,a1,a2,y1,y2:real; begin writeln('Введите Полуоси элипса'); readln(d1,d2); writeln('Введите гипотенузу и катет треугольника'); readln(a,b); writeln('Введите кординату x прямого угла треугольника угол должен лежать на оси X'); readln(x1); https://www.cyberforum.ru/ pascal/ thread1261312.html Pascal Передача массива в процедуру https://www.cyberforum.ru/ pascal/ thread1261245.html
Делаю quicksort, массив читаю из файла. Не выходит передать массив в процедуру. Входные параметры в процедуру не поддерживают границы массива, а считать массив из файла невозможно без границ. Как выйти из данной ситуации? Вот код: var a: array of integer; b:array of integer; i, j, n, med, min1, max1, temp:integer; f,t:text;
Вычислить значение выражения Pascal
Как записать левую формулу на паскале? \frac{x(4-x)}{4!}-\frac{x^5(8-x)}{8!}+\frac{x^9(12-x)}{12!}-...\pm \frac{x^{4i-3}(4i-x)}{(4i)!}\mp ...|\frac{2-\sin x-\cos x-e^{-x}}{2x^2}
Pascal Четные числа представить в виде суммы х простых Pascal - Как Четные числа представить в виде суммы 2х простых? чтобы было: 6=3+3 7=2+5 8=3+5 .... 992=73+919 program Sum2pr4isel; https://www.cyberforum.ru/ pascal/ thread1260978.html
Pascal Не работает mode в чем ошибка? Вот мой код program Project1; Uses Graph; Var Driver,Mode: Integer; X: Real; Xg,Yg,I: Integer; Begin {Инициализация графического режима} https://www.cyberforum.ru/ pascal/ thread1260942.html Как не надо писать программы Pascal
При написании графических программ большинство проблем проявляется более остро, поэтому я хочу рассказать о том, чего не надо делать, когда пишется программа с графическим интерфейсом, и приведу основные способы исправления часто встречающихся ошибок. Все фрагменты кода, которые я здесь рассматриваю, взяты мной из вопросов на разных форумах по программированию, я ничего не придумал (иногда в...
Pascal Установить в Debian что-нибудь похожее интерфейсом IDE на Turbo Pascal Подскажите, что и как можно установить в Debian что-нибудь похожее интерфейсом IDE на Turbo Pascal. Спасибо. Добавлено через 3 минуты Да, ещё желательно, чтоб была совместимость с синтаксисом объектов Turbo Pascal'я. https://www.cyberforum.ru/ pascal/ thread1260862.html Pascal В массиве удалить все элементы кратные заданному числу Задать три массива: один случайными целыми числами, второй вещественными положительными числами, третий - целыми числами в диапазоне значений от h до f. В первом массиве удалить все элементы кратные заданному числу, во втором первый элемент по порядку больший заданного числа, в третьем массиве последний элемент по порядку равный нулю. https://www.cyberforum.ru/ pascal/ thread1260818.html
Вывести K-e степени чисел из заданного набора Pascal
Вариант4. Даны целые числа K, N и набор из N вещественных чисел: A1, A2, …,AN. Вывести K-e степени чисел из данного набора: (A1)^K, (A2)^K, …, (AN)^K. ^cтепень
Pascal Вычислить значение y в зависимости от х функции https://www.cyberforum.ru/ pascal/ thread1260635.html
очень нуждаюсь в помощи.. нужно вычислить значение y в зависимости от х функции...
0 / 0 / 0
Регистрация: 24.09.2014
Сообщений: 11
0

Нет индексного свойства по умолчанию для типа real - Pascal - Ответ 6640662

24.09.2014, 08:41. Показов 22752. Ответов 3
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Нет индексного свойства по умолчанию для типа real. Изменение типа переменных не принесло успехов. Просьба помочь разобраться в ошибке, возможно исправить код. За ранее спасибо.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
x,r1,q1,p1,y,i,z:real;
Begin
p1:=1; q1:=1; r1:=1; {инвариант: x[p1]..x[p], y[q1]..y[q], z[r1]..z[r]содержат общий элемент}
while not x[p1]=y[q1] and y[q1]=z[r1] do begin
if x[p1]<y[q1] then begin
p1:=p1+1;
end
else if y[q1]<z[r1] then 
begin
q1:=q1+1;
end 
else if z[r1]<x[p1] then 
begin
r1:=r1+1;
end 
else 
begin
end;
end; {x[p1] = y[q1] = z[r1]}
writeln (x[p1]);
end.
Добавлено через 14 минут
Вот условие:
Некоторое число содержится в
каждом из трех целочисленных неубывающих массивов x[1] <= ... <=
x[p], y[1] <= ... <= y[q], z[1] <= ... <= z[r]. Найти одно из
таких чисел. Число действий должно быть порядка p + q + r.

Вернуться к обсуждению:
Нет индексного свойства по умолчанию для типа real Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.09.2014, 08:41
Готовые ответы и решения:

Ошибка в коде. Тип - Запись. Нет индексного свойства по умолчанию для типа
type Tsch = record NumSchool: byte; children: byte end; Tarr =...

Нет индексного свойства по умолчанию для типа real
uses graphABC; type point = record x, y: integer; end; var doodler, background,...

Program1.pas(144) : Нет индексного свойства по умолчанию для типа real
При компиляции программы выводит ошибку в 144 строке : Нет индексного свойства по умолчанию для...

Нет индексного свойства по умолчанию для типа integer
В общем дошел до процедур и функций и решил попрактиковаться в них, написав простую...

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

Нет индексного свойства по умолчанию для функционального типа
Ошибка в строке 42, помогите исправить. За ранее спасибо program test; const s0 =...

Нет индексного свойства по умолчанию для типа integer
Program Massivi; uses crt; Type Digit=array of integer; Matrix=array of byte; var i,j,s,k,c:...

Нет индексного свойства по умолчанию для типа integer
var n, m, x, y, a, i:integer; begin readln(n,m); for i:=1 to n do a:=i; for i:=1 to...

Ошибка: Нет индексного свойства по умолчанию для типа char
program kajdiuvtoroi; var a, b : string; begin writeln('введите строку:'); readln (a); b :=...

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