Напишите для обработки натурального числа в паскале

Var   i: real; //натуральное число begin   readln(i); //считал число   while (i > 5) do //в условном     i : = i / pi; // число   writeln(i); //вывел число end.

ответ:

chislo1 = int(input("введите число а "))

chislo2 = int(input("введите число b "))

while chislo1 ! = 0 and chislo2 ! = 0:

    if chislo1 > chislo2:

        chislo1 = chislo1 % chislo2

    else:

        chislo2 = chislo2   % chislo1

print(chislo1 + chislo2)

объяснение:

нод числа:

берутся два числа. большее число = остаток от деления большего на меньшее. затем опять большее число (может быть уже второе) = остаток от деления большего на меньшее, и так до тех пор, пока одно из них не станет равно 0. и выводится большее число. в случае если числа равны друг другу, находится остаток от деления второго числа на первое: 0, и выводится первое число. т.е всё работает.

Понятие типа данных в турбо паскаль

для обработки эвм данные представляются в виде величин и их совокупностей. с понятием величины связаны такая важная характеристика, как ее тип.

тип определяет:

возможные значения переменных, констант, функций, выражений, принадлежащих к данному типу;
внутреннюю форму представления данных в эвм;
операции и функции, которые могут выполняться над величинами, принадлежащими к данному типу.
в языке паскаль тип величины заранее. все переменные, используемые в программе, должны быть объявлены в разделе описания с указанием их типа. обязательное описание типа приводит к избыточности в тексте программ, но такая избыточность является важным средством разработки программ и рассматривается как необходимое свойство современных алгоритмических языков высокого уровня.

иерархия типов в языке паскаль такая:

простые
порядковые
целые
логические
символьные
перечисляемые
интервальные
вещественные
структуированные
массивы
строки
множества
записи
файлы
указатели


назад содержание вперед

простые типы данных

в таблице простые типы данных турбо паскаль, объем памяти, необходимый для хранения одной переменной указанного типа, множество допустимых значений и применимые операции.

идентификатор длина (байт) диапазон значений операции
целые типы
integer
2 -32768..32767 +, -, /, *, div, mod,
> =, < =, =, < > , < , >
byte
1 0..255 +, -, /, *, div, mod,
> =, < =, =, < > , < , >
word
2 0..65535 +, -, /, *, div, mod,
> =, < =, =, < > , < , >
shortint
1 -128..127 +, -, /, *, div, mod,
> =, < =, =, < > , < , >
longint
4 -2147483648..2147483647 +, -, /, *, div, mod,
> =, < =, =, < > , < , >
вещественные типы
real
6 2,9x10-39 - 1,7x1038 +, -, /, *,
> =, < =, =, < > , < , >
single
4 1,5x10-45 - 3,4x1038 +, -, /, *,
> =, < =, =, < > , < , >
double
8 5x10-324 - 1,7x10308 +, -, /, *,
> =, < =, =, < > , < , >
extended
10 3,4x10-4932 - 1,1x104932 +, -, /, *,
> =, < =, =, < > , < , >
логический тип
boolean
1 true, false not, and, or, xor,
> =, < =, =, < > , < , >
символьный тип
char
1 все символы кода ascii +,
> =, < =, =, < > , < , >
перечисляемый и интервальный тип относятся к типам, определяемым пользователем и будут рассмотрены нами позже.



дополнительные сведения о типах данных..

порядковые типы, выделяемые из группы простых типов, характеризуются следующими свойствами:

все возможные значения порядкового типа представляют собой ограниченное множество;
к любому порядковому типу может быть применена стандартная функция ord, которая в качестве результата возвращает порядковый номер конкретного значения в данном типе;
к любому порядковому типу могут быть применены стандартные функции pred и succ, которые возвращают предыдущее и последующее значения соответственно;
к любому порядковому типу могут быть применены стандартные функции low и high, которые возвращают наименьшее и наибольшее значения величин данного типа.
в языке паскаль введены понятия эквивалентности и совместимости типов. два типа т1 и т2 являются эквивалентными (идентичными), если выполняется одно из двух условий:

т1 и т2 представляют собой одно и то же имя типа;
тип т2 описан с использованием типа т1 с равенства или последовательности равенств. например:
type
t1 = integer;
t2 = t1;
t3 = t2;
менее строгие ограничения накладываются на совместимость типов. так, типы являются совместимыми, если:

они эквивалентны;
являются оба либо целыми, либо действительными;
один тип - интервальный, другой - его базовый;
оба интервальные с общим базовым;
один тип - строковый, другой - символьный.
в турбо паскаль ограничения на совместимость типов можно обойти с типов. типов позволяет рассматривать одну и ту же величину в памяти эвм как принадлежащую разным типам. для этого используется конструкция

имя_типа(переменная или значение)
напрмер, integer('z') представляет собой значение кода символа 'z' в двухбайтном представлении целого числа, а byte(534) даст значение 22, поскольку целое число 534 имеет тип word и занимает два байта, а тип byte занимает один байт, и в процессе старший байт будет отброшен.