Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.70/40: Рейтинг темы: голосов - 40, средняя оценка - 4.70
0 / 0 / 0
Регистрация: 13.10.2014
Сообщений: 11
1

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

26.10.2014, 15:02. Показов 7777. Ответов 4
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Пишет ошибку : Нельзя преобразовать тип real к integer

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

procedure Repeat1;
Const
Alpha = 0.1;
var 
I: real;
Iter, n1 : integer;
begin
Clrscr;
WriteLN(Тест);
readln;
R:=0;
n1:=0;   
Repeat    //Открываем цикл Repeat
F1:=1;
for Iter:= 1 to n1 do
F:=((Power(-1,Iter))*(Power(Iter,3)))/(Power(3,Iter));
F1:=F1*F;
R:=R+F;
Iter:=Iter+1;
Until Abs(F) <= Alpha;
Writeln('Sum =  ', Sum);
Writeln('Итерация =  ', Iter);
Writeln('F =  ', F);
 
end;
Помогите исправить.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 26.10.2014, 15:02
Ответы с готовыми решениями:

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) ...

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

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

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

4
908 / 756 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
26.10.2014, 15:34 2
Stoxis, вы можете весь код показать?
0
0 / 0 / 0
Регистрация: 13.10.2014
Сообщений: 11
26.10.2014, 15:58  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157

Program nyanya;
Uses CRT;
var 
R, n1,x, F, F1, code :integer; {R - сумма, n1 - переменная (через val)}
Iter: real;
n0 : string; {стриновая переменная}
l: byte;
const 
Alpha = 0.1; {Лимит прерывания}
procedure menu2(var n: integer);
Const K=5;
StrMenu: array [1..k] of string [50]=
('1. Главное окно',
 '2. Просмотреть условие',
 '3. While',
 '4. Repeat',
 '5. Выход');
///////////////////////////////////
var i:integer;
Nch: char;
Begin
Clrscr;
TextColor(white);
Gotoxy(35,4);
Writeln('Меню');
TextColor(8);
For i:=1 to k do
 Begin
   GotoXY(25,6+i);
   Write(StrMenu[i]);
   end;
TextColor(15);
Gotoxy(10,6+k+2);
WriteLN('Выберите пункт меню стрелками вверх или вниз и нажмите Enter');
i:=1;
TextColor(white);
Gotoxy(25,6+i);
Write(StrMenu[i]);
Repeat
Nch:= readKey;
Case ord(nch) of
      38: begin
      TextColor(8);
      GotoXY(25,6+i);
      Write(StrMenu[i]);
      Dec(i);
      If i<1 then i:=k;
      TextColor(white);
      GotoXY(25,6+i);
      Write(StrMenu[i]);
      end;
      //////////////////////////////////
      40: begin {стрелка вверх}
      TextColor(8);
      Gotoxy(25,6+i);
      Write(StrMenu[i]);
      Inc(i);
      If i>k then i:=1;
      TextColor(white);
      gotoxy(25,6+i);
      write(strmenu[i]);
      end;
27: halt;
end;
Until ord(nch)=13;
N:=i;
end;
procedure Okno;
begin
clrscr;
writeLN();
 
readlN;
end;
//////////////////////
Procedure Usl;
begin
clrscr;
ReadLN;
end;
//////////////////////
procedure While1(var R, n1, code :int64; n0 : string);
 
begin
Clrscr;
WriteLN('Программа вычисления с помошью цикла While ');
WriteLN();
WriteLN();
Repeat
WriteLN('Введите переменную (n). ');
readln(n0);
 
if (code <> 0) then 
writeln('Ошибка! Введите, пожалуйтса, число!');
until (code = 0);
 
readln;
end;
////////////////////////
procedure Repeat1;
var 
I: real;
Iter, n1 : integer;
begin
Clrscr;
WriteLN('Циклическая программы с неизвестным количеством повторений 1. Цикл Repeat.');
readln;
R:=0;
n1:=0;   
Repeat    //Открываем цикл Repeat
F1:=1;
for Iter:= 1 to n1 do
F:=((Power(-1,Iter))*(Power(Iter,3)))/(Power(3,Iter));
F1:=F1*F;
R:=R+F;
Iter:=Iter+1;
Until Abs(F) <= Alpha;
Writeln('Sum =  ', Sum);
Writeln('Итерация =  ', Iter);
Writeln('F =  ', F);
 
end;
////////////////////////
procedure Per;
begin
Clrscr;
WriteLN('Очистить переменные');
readln;
end;
///////////////////////
procedure Knopka;
begin
Clrscr;
readln;
end;
////////////////////////
procedure out;
begin
Clrscr;
WriteLN(' это выход');
readln;
end;
var n:integer;
 
begin
repeat
clrscr;
menu2(n);
case n of
1: Okno;
2: Usl;
3: While1(n1,code,R,n0);
4: Repeat1;
end;
Until n=5;
 
end.
Добавлено через 18 минут
Цитата Сообщение от erl27 Посмотреть сообщение
Stoxis, вы можете весь код показать?
вот.
0
908 / 756 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
26.10.2014, 16:59 4
Переменная F описана как целая, а выражение
Pascal
1

F:=((Power(-1,Iter))*(Power(Iter,3)))/(Power(3,Iter));
вещественное. Поэтому я округлил его до ближаешего целого (round). Еще нужно типы переменных в процедурах при вызове и описании должны совпадать.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167

program nyanya;
 
uses
  CRT;
 
var
  R, n1, x, F, F1, code: integer; {R - сумма, n1 - переменная (через val)}
  Iter: real;
  n0: string; {стриновая переменная}
  l: byte;
 
const
  Alpha = 0.1;{Лимит прерывания}
 
procedure menu2(var n: integer);
const
  K = 5;
  StrMenu: array [1..k] of string[50] =
  ('1. Главное окно',
   '2. Просмотреть условие',
   '3. While',
   '4. Repeat',
   '5. Выход');
///////////////////////////////////
var
  i: integer;
  Nch: char;
begin
  Clrscr;
  TextColor(white);
  Gotoxy(35, 4);
  Writeln('Меню');
  TextColor(8);
  for i := 1 to k do
  begin
    GotoXY(25, 6 + i);
    Write(StrMenu[i]);
  end;
  TextColor(15);
  Gotoxy(10, 6 + k + 2);
  WriteLN('Выберите пункт меню стрелками вверх или вниз и нажмите Enter');
  i := 1;
  TextColor(white);
  Gotoxy(25, 6 + i);
  Write(StrMenu[i]);
  repeat
    Nch := readKey;
    case ord(nch) of
      38: 
        begin
          TextColor(8);
          GotoXY(25, 6 + i);
          Write(StrMenu[i]);
          Dec(i);
          if i < 1 then i := k;
          TextColor(white);
          GotoXY(25, 6 + i);
          Write(StrMenu[i]);
        end;
      //////////////////////////////////
      40: 
        begin{стрелка вверх}
          TextColor(8);
          Gotoxy(25, 6 + i);
          Write(StrMenu[i]);
          Inc(i);
          if i > k then i := 1;
          TextColor(white);
          gotoxy(25, 6 + i);
          write(strmenu[i]);
        end;
      27: halt;
    end;
  until ord(nch) = 13;
  N := i;
end;
 
procedure Okno;
begin
  clrscr;
  writeLN();
  
  readlN;
end;
//////////////////////
procedure Usl;
begin
  clrscr;
  ReadLN;
end;
//////////////////////
procedure While1(var R, n1, code: integer; n0: string);
 
begin
  Clrscr;
  WriteLN('Программа вычисления с помошью цикла While ');
  WriteLN();
  WriteLN();
  repeat
    WriteLN('Введите переменную (n). ');
    readln(n0);
    
    if (code <> 0) then 
      writeln('Ошибка! Введите, пожалуйтса, число!');
  until (code = 0);
  
  readln;
end;
////////////////////////
procedure Repeat1;
var
  I: real;
  Iter, n1: integer;
begin
  Clrscr;
  WriteLN('Циклическая программы с неизвестным количеством повторений 1. Цикл Repeat.');
  readln;
  R := 0;
  n1 := 0;   
  repeat    //Открываем цикл Repeat
    F1 := 1;
    for Iter := 1 to n1 do
      F := round(((Power(-1, Iter)) * (Power(Iter, 3))) / (Power(3, Iter)));
    F1 := F1 * F;
    R := R + F;
    Iter := Iter + 1;
  until Abs(F) <= Alpha;
  //Writeln('Sum =  ', Sum); <--- Неизвестное имя Sum
  Writeln('Итерация =  ', Iter);
  Writeln('F =  ', F);
end;
////////////////////////
procedure Per;
begin
  Clrscr;
  WriteLN('Очистить переменные');
  readln;
end;
///////////////////////
procedure Knopka;
begin
  Clrscr;
  readln;
end;
////////////////////////
procedure out;
begin
  Clrscr;
  WriteLN(' это выход');
  readln;
end;
 
var
  n: integer;
 
begin
  repeat
    clrscr;
    menu2(n);
    case n of
      1: Okno;
      2: Usl;
      3: While1(n1,code,R,n0);
      4: Repeat1;
    end;
  until n = 5;
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33028 / 21328 / 8190
Регистрация: 22.10.2011
Сообщений: 36,639
Записей в блоге: 9
26.10.2014, 17:03 5
Stoxis, в 113 строке происходит деление. Эта операция всегда возвращает результат вещественного типа. А переменная F описана как целочисленная. Меняй типы переменных R, x, F, F1 на вещественные.
0
26.10.2014, 17:03
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 26.10.2014, 17:03
Помогаю со студенческими работами здесь

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

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

Определитель 4х4 нельзя преобразовать тип real к integer
Помогите немогу понять в чом проблема написал вроде всё правильно program Kramer; uses crt; var...

Program1.pas(12) : Нельзя преобразовать тип real к integer
Program Logika; var x,y,z: real; L,A,B,C:boolean; begin cls; // Вводим исходные...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Откуда у float лишние цифры в конце дробной части. Представление чисел с плавающей точкой
bytestream 25.01.2025
При разработке программного обеспечения часто возникает необходимость работать с вещественными числами, которые содержат дробную часть. В современных компьютерных системах такие числа представляются. . .
Как использовать глобальную переменную в функции в Python
bytestream 25.01.2025
В программировании на Python глобальные переменные представляют собой особый тип переменных, которые доступны для использования во всех частях программы, включая различные функции, классы и модули. . . .
Как в цикле обойти все элементы map в Java
bytestream 25.01.2025
В разработке на Java одной из наиболее востребованных структур данных является интерфейс Map, который предоставляет эффективный способ хранения и управления парами "ключ-значение". Разработчики. . .
Для чего нужен UserManager.isU­serAGoat(­) в Android и как это использовать
bytestream 25.01.2025
В мире Android-разработки существует множество интересных и порой загадочных функций, о которых знают далеко не все разработчики. Одной из таких функций является метод UserManager. isUserAGoat(),. . .
Как обойти масси в JavaScript. Всё о циклах
bytestream 25.01.2025
JavaScript представляет собой мощный язык программирования, широко используемый в веб-разработке, где массивы и циклы являются фундаментальными концепциями для эффективной работы с данными. Массив в. . .
Как сделать, чтобы существующая ветка отслеживала удалённую в Git. Связывание локальных и удалённых веток
bytestream 25.01.2025
В разработке программного обеспечения системы контроля версий стали неотъемлемой частью процесса создания качественного программного продукта. Эти инструменты позволяют разработчикам эффективно. . .
Как проверить, что файл НЕ существует с помощью Bash
bytestream 25.01.2025
В системном администрировании проверка существования файлов является фундаментальной операцией, особенно при написании скриптов на Bash. Правильная обработка ситуаций, когда файл отсутствует,. . .
Как проверить, что строка пустая, неопределена или null в JavaScript
bytestream 25.01.2025
При разработке веб-приложений на JavaScript разработчики регулярно сталкиваются с необходимостью проверки строковых значений на различные состояния. Валидация данных является критически важным. . .
Как проверить существование ключа в объекте или массиве в JavaScript
bytestream 25.01.2025
При разработке веб-приложений на JavaScript программисты постоянно сталкиваются с необходимостью работать с объектами и массивами. Эти структуры данных являются фундаментальными элементами языка и. . .
Как создать ArrayList из массива (array) в Java
bytestream 25.01.2025
При разработке программного обеспечения на языке Java программисты часто сталкиваются с необходимостью эффективного управления наборами данных. Массивы и ArrayList являются двумя фундаментальными. . .
Как сгенерировать случайные целые числа (int) в указанном диапазоне в Java
bytestream 25.01.2025
В программировании генерация случайных чисел является важнейшим инструментом для решения множества практических задач. От создания игровых механик до реализации алгоритмов машинного обучения, от. . .
Как сделать, чтобы grep выводил строки до и после найденной
hw_wired 25.01.2025
Утилита grep стала незаменимым инструментом для поиска и фильтрации информации в Unix-подобных операционных системах. Эта командная утилита позволяет осуществлять поиск строк, соответствующих. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru