Главная Случайная страница


Полезное:

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


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






Наименьшего общего кратного (НОК) двух чисел





Вид формы с компонентами:

Процедура обработки щелчка на кнопке “Расчет

procedure TForm1.Button1Click(Sender: TObject);

var M,N,NOD,NOK:word; i,k:word;

Begin

M:=StrToInt(Edit1.text); N:=StrToInt(Edit2.text);

if N>M then k:=M else k:=N;

NOD:=1;

for i:=1 to k do

if (N mod i=0) and (M mod i=0) then NOD:=i;

NOK:=NOD*(N div NOD)*(M div NOD);

Label4.Caption:='NOD='+IntToStr(NOD);

Label5.Caption:='NOK='+IntToStr(NOK)

End;

Задания к лабораторной работе

Разработать приложение, в котором при щелчке на кнопке " Решение " на форме появляется решение вашего варианта:

1. Указать число, в двоичном представлении которого больше всего единиц.

2. Разложить на простые множители числа последовательности, сумма цифр которых кратна 7.

3. Указать число, которое делится на каждую из своих цифр.

4. Найти все натуральные числа, не превосходящие заданного N и делящиеся на каждую из своих цифр.

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

6. Найти все совершенные числа последовательности.

7. Найти все симметричные числа последовательности.

8. Для всех простых чисел последовательности найти цифровой корень.

9. Распечатать числа последовательности равные числу А.

10. Определить количество простых чисел палиндромов.

11. Определить количество взаимно простых чисел палиндромов.

12. Распечатать количество чисел, чья сумма цифр кратна заданному числу.

Лабораторная работа №5







Date: 2015-07-25; view: 449; Нарушение авторских прав



mydocx.ru - 2015-2024 year. (0.006 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию