ФУНКЦИИ
и ГРАФИКИ

ЭЛЕМЕНТАРНЫ Е ФУНКЦИИ
ГРАФИКИ
ТЕСТЫ
КОНТАКТЫ
КАРТА САЙТА
НА ГЛАВНУЮ

NEW !!!

ПРОГРАММИРОВАНИЕ
TURBO PASCAL
C++
ПРОВЕРЬ СВОИ ЗНАНИЯ!
ЛАБОРАТОРНАЯ №1 ВАРИАНТ 6
Задача: Проверить, является ли заданное число А квадратом целого числа. С клавиатуры вводится число А. Результат выводится на экран в удобном для восприятия виде. Примечание: использовать функцию вычисления целой части числа trunc и функцию извлечения корня sqrt.
Решение:
> > Скачать< <
program task6;
var a,kv:real;
     r:integer;
begin      writeln('VVEDITE CHISLO');
     readln(a);
     kv := sqrt(a);
{KOREN IZ A}      r := trunc(kv);
{OTBROS DROBNOI CHASTI OT kv PREVRASCHENIE V ZELOE}      { writeln(r);
}      r := sqr(r);
{PROVERKA NA KVADRAT}      if r=a then writeln('kvadrat') else writeln('ne kvadrat');
     readln;
end.

Используются технологии uCoz