Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.
Внимание! Некоторое время письма не доходят до аккаунтов MAIL RU GROUP, не доходят на все почтовые ящики mail.ru, inbox.ru, bk.ru. Пишите им жалобы, чтобы быстрее восстановили получение писем, регистрируйтесь через яндекс почту и gmail, туда письма с активизацией доходят.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 24.10.2018, 02:16   #1
Maksimwild
Новичок
 
Регистрация: 24.10.2018
Адрес: Московская область
Сообщений: 1
Репутация: 10
По умолчанию Pascal. Программа по проверки числа на целочисленный квадрат

Начал изучать Паскаль для начало обучение программирование(потом хочу в c++ перейти).Опыт 2 года в школе(но честно все забыл)
В чем все-таки просьба.У меня телефонная версия Паскаля.Я написал программу по проверки числа на целочисленный квадрат. Написал правильно,но плохо работает mod.Помогите решить проблему.Вот сама программа:Program A;
Код:

uses Math  ;
Var a,b,c:Real;
begin 
Write('напиши число');
ReadLn(a);
b:= sqrt(a);
c:=b mod 1;
if c>0 then Write('это число является целочисленным квадратом');
if c=0 then Write('это число не является целочисленным квадратом');
End.

Пожалуйста, оформляйте Ваш код согласно правилам.
А ошибка:internal interpreter error unspecified
(Rus.ошибка внутреннего интерпретатора неуточненная)

Последний раз редактировалось Вадим Мошев; 24.10.2018 в 02:38.
Maksimwild вне форума   Ответить с цитированием
Старый 24.10.2018, 07:52   #2
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,106
Репутация: 6385
По умолчанию

mod только для операций над целыми. Real далеко не целое )
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Старый 24.10.2018, 10:28   #3
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,615
Репутация: 5352
По умолчанию

Код:

uses Math  ;
Var a,b:Integer;
begin 
   Write('напиши число');
   ReadLn(a);
   b:= trunc( sqrt(a) );
   if (sqr(b)=a) 
      then Write('это число является целочисленным квадратом');
      else Write('это число не является целочисленным квадратом');
End.

Serge_Bliznykov вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны натуральные числа N, M. Найти все натуральные числа, меньшие N, квадрат суммы цифр которых равен M Namatrasnik Помощь студентам 1 04.11.2016 00:29
задания на базовые структуры. определить,равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа. С++ Анна Седакова Помощь студентам 2 20.11.2013 16:44
Найти кол-во вхождений каждого числа в массиве (целочисленный) Loka C# (си шарп) 7 19.10.2013 16:03
рекурсия квадрат числа ujif Паскаль 3 25.05.2013 10:24
вводим два числа, получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m Sparky Помощь студентам 2 22.11.2009 22:59


01:56.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru