Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Маша96
0 / 0 / 0
Регистрация: 23.04.2013
Сообщений: 12
#1

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

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

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

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

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

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

Опишите множества Ml (1,2,3) и М2 (1,4,2,5) - Pascal ABC
Опишите множества Ml (1,2,3) и М2 (1,4,2,5). Получите результирующее множество МЗ = М1*М2. Определите, содержатся ли в МЗ элементы 1 и 2.

Опишите процедуру double(f), - Pascal ABC
type myfile = file of integer; Опишите процедуру double(f), удваивающие в файле f все четные числа.

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

2
ВАСИЛЕВС
557 / 480 / 60
Регистрация: 14.02.2012
Сообщений: 1,561
13.12.2013, 22:21 #2
Цитата Сообщение от Маша96 Посмотреть сообщение
1. Опишите функцию IsFullSquare, позволяющую распознать, является ли натуральное число полным квадратом другого натурального числа.
Pascal
1
2
3
4
function isFullSquare(n: integer): boolean;
begin
 isFullSquare := (frac(sqrt(n)) = 0);
end;
1
Cyborg Drone
Модератор
5220 / 3085 / 1278
Регистрация: 17.08.2012
Сообщений: 9,960
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
Привет! Вот еще темы с ответами:

Опишите логическую функцию, проверяющую, есть ли в группе G хотя бы два человека одного роста - Pascal
Дано: type name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara, Bill, Pol); data = record male : boolean; {пол: true - мужской,...

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

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

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


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

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

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