Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.10.2018, 01: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 в 01:38.
Maksimwild вне форума Ответить с цитированием
Старый 24.10.2018, 06:52   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

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

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны натуральные числа N, M. Найти все натуральные числа, меньшие N, квадрат суммы цифр которых равен M Namatrasnik Помощь студентам 1 03.11.2016 23: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 21:59