Функции и процедуры выдает ошибку

09.03.2014, 21:10. Показов 523. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

написать процедуру и функцию вычисляющее наим. общее кратное трех натуральных чисел.

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
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
{ TForm1 }
var x,y,z:integer;
function nod(const x,y:integer):integer;
begin
if x<>0 then nod:=nod(y mod x,x) else nod:=y;
end;
function nok2(const x,y:integer):integer;
begin
nok2:=((x*y) div nod(x,y));
end;
function nok3(const x,y,z:integer):integer;
begin
nok3:=nok2(nok2(x,y),z);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var a,q,w,e:integer;
begin
a:=nok2(nok2(x,y),z);
 
x:=strtoint(edit1.Text);
 
y:=strtoint(edit2.Text);
 
z:=strtoint(edit3.Text);
 
 
Label1.Caption:=inttostr(a);
end;
 
end.

ругается вот на эту строку nok2:=((x*y) div nod(x,y));

Заказать работу у эксперта

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

09.03.2014, 21:10

Ответы с готовыми решениями:

Исправьте, пожалуйста. Подпрограммы(функции и процедуры). Выдаёт ошибку в процедуре zamena
Дана матрица А Н*М(Н,М<=10) Определить среднее арифметическое отрицательных элементов в матрице и заменить им элементы главной диагонали. ...

При решении программа выдаёт значение функции, равное 0 или выдаёт ошибку. Что не так?
#include <iostream> #include <iomanip> #include <cmath> using namespace std; long Fact(short m)// функция вычисления факториала ...

СМА Hansa PG5510A412 s/n 04454930213108 после нескольких минут выдает ошибку, выдает ошибку
Hansa PG5510A412 s/n 04454930213108 отработала 2 месяца на этом же месте, магазин где брали закрылся. После нескольких минут работы на...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

09.03.2014, 21:10

Помогаю со студенческими работами здесь

Выдает ошибку в функции
Не могу понять в чем ошибка. ОШИБКА: Необработанное исключение по адресу 0x00822D32 в Задание 3.exe: 0xC0000005: нарушение прав доступа при...

Выдает ошибку в функции
Ошибку выдает на 18 строке , а именно: virtual void get_data() = 0; // чистые виртуальные virtual void put_data() = 0; Код...

Выдает ошибку при записи функции
Выдает ошибку при записи функции

Выдает ошибку в при объявлении функции
вернее даже не ошибку но он просто не воспринимает видимо inc1 к слову это ValueListEditor function ValidateRearrangement:...

При вызове функции выдает ошибку
При вызове функции выдает ошибку... >>> Constructor TemplateCore::TemplateCore() cannot be static in...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Результаты исследования от команды MCM (март 2025 г.) Programma_Boinc 07.04.2025 Результаты исследования от команды MCM (март 2025 г. ) В рамках наших текущих исследований мы продолжаем изучать гены, которые имеют наибольшую вероятность развития рака легких, выявленные в рамках. . .	Рекурсивные типы в Python py-thonny 07.04.2025 Рекурсивные типы - это типы данных, которые определяются через самих себя или в сочетании с другими типами, которые в свою очередь ссылаются на исходный тип. В мире программирования такие структуры. . .	C++26: Объединение и конкатенация последовательностей и диапазонов в std::ranges NullReferenced 07.04.2025 Работа с последовательностями данных – одна из фундаментальных задач, с которой сталкивается каждый разработчик. C++ прошел длинный путь в эволюции средств для манипуляции коллекциями – от. . .	Обмен данными в микросервисной архитектуре ArchitectMsa 06.04.2025 Когда разработчики начинают погружаться в мир микросервисов, они часто сталкиваются с парадоксальным правилом: "два сервиса не должны делить один источник данных". Эта мантра звучит повсюду в. . .	PostgreSQL в Kubernetes: Автоматизация обслуживания с CNPG Mr. Docker 06.04.2025 Администраторы баз данных сталкиваются с целым рядом проблем при обслуживании PostgreSQL в Kubernetes: как обеспечить правильную репликацию данных, как настроить автоматическое переключение при. . .
Async/await в TypeScript run.dev 06.04.2025 Асинхронное программирование — это подход к разработке программного обеспечения, при котором операции выполняются независимо друг от друга. В отличие от синхронного выполнения, где каждая последующая. . .	Многопоточность в C#: Синхронизация потоков UnmanagedCoder 06.04.2025 Многопоточное программирование стало неотъемлемой частью разработки современных приложений на C#. С появлением многоядерных процессоров возможность выполнять несколько задач параллельно значительно. . .	TypeScript: Классы и конструкторы run.dev 06.04.2025 TypeScript, как статически типизированный язык, построенный на основе JavaScript, привнес в веб-разработку новый уровень надежности и структурированности кода. Одним из важнейших элементов этой. . .	Многопоточное программирование: Rust против C++ golander 06.04.2025 C++ существует уже несколько десятилетий и его поддержка параллелизма постепенно наращивалась со временем. Начиная с C++11, язык получил стандартную библиотеку для работы с потоками, а в последующих. . .	std::vector в C++: от основ к оптимизации производительности NullReferenced 05.04.2025 Для многих программистов знакомство с std::vector происходит на ранних этапах изучения языка, но между базовым пониманием и подлинным мастерством лежит огромная дистанция. Контейнер std::vector. . .

Наверх