Форум программистов, компьютерный форум, киберфорум
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. Показов 7749. Ответов 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 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
32972 / 21285 / 8173
Регистрация: 22.10.2011
Сообщений: 36,559
Записей в блоге: 8
26.10.2014, 17:03 5
Stoxis, в 113 строке происходит деление. Эта операция всегда возвращает результат вещественного типа. А переменная F описана как целочисленная. Меняй типы переменных R, x, F, F1 на вещественные.
0
26.10.2014, 17:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 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
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru