0 / 0 / 0
Регистрация: 23.12.2018
Сообщений: 48
1

Не видит переменную n

11.02.2020, 19:15. Показов 2362. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Очень странная проблема. Не видит переменную n. И если убрать эту переменную, то программа работает. Куда эту n ставить?

Основная программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses sod;
var a, b, c, d, n, z1, z2: integer;
 
begin
writeln('one cherta (a i d):');
readln(a,d);
writeln('two cherta (b i c):');
readln(b,c);
n:=nod(a*d,b*c);
z1:=zet1(a,d);
z2:=zet2(b,c);
writeln(z1,'/',z2);
end.
Вот модуль:
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
UNIT sod;
Interface function NOD(x, y: integer): integer; function zet1(a, d: integer): integer; function zet2(b, c: integer): integer;
 
Implementation
 
var a, b, c, d, n, z1, z2: integer; {если их убрать и div n тоже, то работает}{n связан с НОД}
 
function NOD(x, y: integer): integer;
begin
  while (x<>0) and (y<>0) do
    if x>y then x:=x mod y
    else y:=y mod x;
    NOD:=x+y;
end;
 
function zet1(a, d: integer): integer;
begin
zet1:=a*d div n;
end;
 
function zet2(b, c: integer): integer;
begin
zet2:=b*c div n;
end;
begin
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.02.2020, 19:15
Ответы с готовыми решениями:

Не видит переменную
#include &lt;iostream&gt; using namespace std; int main() { int chislo; cin &gt;&gt; chislo; for (int...

Не видит переменную
Есть код, в котором при клике на combobox создается переменная. Далее при клике на кнопку идет...

Не видит переменную
Добрый день) Я недавно изучаю маткад и дошел до описаний функций. Мне нужно вычислить значение при...

Не видит переменную
Добрый день, Помогите пожалуйста. Пытаюсь достать список из класса и не получается. Спасибо. ...

2
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
11.02.2020, 20:59 2
Лучший ответ Сообщение было отмечено Shiro Paradox как решение

Решение

Модуль
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
UNIT sod;
Interface
function NOD(x, y: integer): integer;
function zet1(a, d, n: integer): integer;
function zet2(b, c, n: integer): integer;
 
Implementation
 
//var a, b, c, d, n, z1, z2: integer; {если их убрать и div n тоже, то работает}{n связан с НОД}
 
function NOD(x, y: integer): integer;
begin
  while (x<>0) and (y<>0) do
    if x>y then x:=x mod y
    else y:=y mod x;
    NOD:=x+y;
end;
 
function zet1(a, d, n: integer): integer;
begin
zet1:=a*d div n;
end;
 
function zet2(b, c, n: integer): integer;
begin
zet2:=b*c div n;
end;
begin
end.
1
0 / 0 / 0
Регистрация: 23.12.2018
Сообщений: 48
12.02.2020, 20:58  [ТС] 3
Спасибо! Когда вставил, то в основной программе писало где указывало на неверное количество параметров
Pascal
1
2
z1:=zet1(a,d);
z2:=zet2(b,c);
И в скобках, и там и там добавил ту самую невидимую переменную, и программа заработала как надо.
0
12.02.2020, 20:58
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.02.2020, 20:58
Помогаю со студенческими работами здесь

Не видит переменную
Добрый день! Помогоите, пожалуйста, объявила в классе переменную directors, но в остальной...

Не видит переменную
Всем привет, суть такова, имею файл предположим такого содержания: include...

Функция не видит переменную
Нужно вычислить сумму элементов массива, которые расположены после первого положительного элемента....

Не видит переменную в WindowsForm
Господа, скажите пожалуйста почему не видит peremenaa? using System; using...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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