Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Маша96
0 / 0 / 0
Регистрация: 23.04.2013
Сообщений: 12
#1

Опишите функцию

13.12.2013, 22:08. Просмотров 829. Ответов 2
Метки нет (Все метки)

Опишите функцию согласно представленным условиям. В файле-ответе должно присутствовать только описание функции. Имя файла должно совпадать с именем фу
1. Опишите функцию IsFullSquare, позволяющую распознать, является ли натуральное число полным квадратом другого натурального числа.
2. Опишите функцию IsSimple, позволяющую распознать, является ли заданное натуральное число простым.
3. Опишите функцию ToBin, которая заданное натуральное число преобразует в двоичное представление и возвращает его в виде строки.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2013, 22:08
Ответы с готовыми решениями:

Опишите рекурсивную функцию Stepen(x,n)
Опишите рекурсивную функцию Stepen(x,n), формальными параметрами которой...

Опишите функцию MHeight(G), определяющую средний рост самых высоких
type name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara, Bill, Pol); data =...

Опишите рекурсивную логическую функцию, проверяющую наличие заданного числа в сформированном дереве
1. Создайте программой числовое двоичное дерево. Опишите рекурсивную логическую...

Опишите множества Ml (1,2,3) и М2 (1,4,2,5)
Опишите множества Ml (1,2,3) и М2 (1,4,2,5). Получите результирующее множество...

Опишите процедуру double(f),
type myfile = file of integer; Опишите процедуру double(f), удваивающие в...

2
ВАСИЛЕВС
557 / 480 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
13.12.2013, 22:21 #2
Лучший ответ Сообщение было отмечено Маша96 как решение

Решение

Цитата Сообщение от Маша96 Посмотреть сообщение
1. Опишите функцию IsFullSquare, позволяющую распознать, является ли натуральное число полным квадратом другого натурального числа.
Pascal
1
2
3
4
function isFullSquare(n: integer): boolean;
begin
 isFullSquare := (frac(sqrt(n)) = 0);
end;
1
Cyborg Drone
Модератор
5273 / 3141 / 2440
Регистрация: 17.08.2012
Сообщений: 10,115
14.12.2013, 01:37 #3
Цитата Сообщение от Маша96 Посмотреть сообщение
2. Опишите функцию IsSimple, позволяющую распознать, является ли заданное натуральное число простым.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function IsSimple(N: integer): boolean;
var i: integer;
begin
if n < 2 
  then IsSimple := False
  else begin
    IsSimple := True;
    for i:=2 to trunc(sqrt(N)) do 
    if N mod i = 0
      then begin
        IsSimple := False;
        break
      end
  end
end;
Добавлено через 12 минут
Цитата Сообщение от Маша96 Посмотреть сообщение
3. Опишите функцию ToBin, которая заданное натуральное число преобразует в двоичное представление и возвращает его в виде строки.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function ToBin(i: integer): string;
var b: string;
begin
  b := '';
  repeat
    if i mod 2 = 0
      then b := '0' + b
      else b := '1' + b;
    i := i div 2
  until i = 0;
  ToBin := b
end;
Добавлено через 2 минуты
Маша96, Вы нарушили правила форума:
5. 4. Запрещено создавать темы с бессмысленными названиями вроде "Помогите!", "Вопрос" и т.п.
5. 16. Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2013, 01:37

Опишите программу на русском языке
Пожалуйста помогите!!!!

Опишите рекурсивную функцию sum без параметров для нахождения суммы элементов файла
Помогите пожалуйста!!!! type reals = file of real; var f : reals; ...

Опишите функцию для определения, является ли первая запись текстового файла f восьмеричной цифрой
Опишите функцию для определения , является ли первая запись текстового файла f...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru