Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Ответ
 
Опции темы
Старый 24.10.2018, 02:16   #1
Maksimwild
Новичок
Джуниор
 
Регистрация: 24.10.2018
Сообщений: 1
По умолчанию 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
Сообщений: 19,061
По умолчанию

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

Код:
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 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны натуральные числа 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 Паскаль, Turbo Pascal, PascalABC.NET 3 25.05.2013 10:24
вводим два числа, получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m Sparky Помощь студентам 2 22.11.2009 22:59