Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Казанский национальный исследовательский технологический университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

КонтрольнаяInfo1.docx

Скачиваний:

Добавлен:

12.03.2015

Размер:

101 Кб

Скачать

☆

<<< < Предыдущая 12 / 32 3 > Следующая >>>

Program prg2_7;

VAR I, N, M, K, NOD : INTEGER;

BEGIN

{ДАНЫ НАТУРАЛЬНЫЕ ЧИСЛА M И N. ОПРЕДЕЛИТЬ ИХ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ NOD }

REPEAT

WRITE('ВВЕДИТЕ НАТУРАЛЬНОЕ ЧИСЛО N = ');

READLN (N);

WRITE('ВВЕДИТЕ НАТУРАЛЬНОЕ ЧИСЛО М =');

READLN (М);

UNTIL (N>0) AND (М>0);

IF N>M THEN К := M ELSE К := N;

FOR I := 1 TO К DO

IF (N MOD I = 0) AND (M MOD I = 0) THEN NOD := I;

WRITELN(‘ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ ЧИСЕЛ', N, 'И', М, 'NOD = ‘,NOD )

END.

Program prg2_8;

VAR I, N, M, K, NOD, NOK : INTEGER;

BEGIN

{ДАНЫ НАТУРАЛЬНЫЕ ЧИСЛА М И N.

ОПРЕДЕЛИТЬ ИХ НАИМЕНЬШЕЕ ОБЩЕЕ КРАТНОЕ NOK }

REPEAT

WRITE(‘ВВЕДИТЕ НАТУРАЛЬНОЕ ЧИСЛО N = ');

READLN (N);

WRITE('ВВЕДИТЕ НАТУРАЛЬНОЕ ЧИСЛО М =');

READLN (М);

UNTIL (N>0) AND (М>0);

IF N>M THEN К := M ELSE К := N;

FOR I := 1 TO К DO

IF (N MOD I = 0) AND (M MOD I = 0) THEN NOD := I;

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

WRITELN('HAИМЕНЬШЕЕ ОБЩЕЕ КРАТНОЕ ЧИСЕЛ');

WRITELN(N, 'И', M, 'NOK = ' , NOK)

END.

Program prg2_9;

VAR N, R, М : INTEGER;

BEGIN

{ДАНО НАТУРАЛЬНОЕ ЧИСЛО N. ОПРЕДЕЛИТЬ,

ЯВЛЯЕТСЯ ЛИ ОНО АВТОМОРФНЫМ. АВТОМОРФНОЕ

ЧИСЛО N РАВНО ПОСЛЕДНИМ РАЗРЯДАМ КВАДРАТА

ЭТОГО ЧИСЛА:

5 < - > 25 6 < - > 36 25 < - > 625 }

REPEAT

WRITE('ВВЕДИТЕ НАТУРАЛЬНОЕ ЧИСЛО N = ');

READLN (N);

UNTIL N>0;

М := N;R := 1;

WHILE М>0 DO

BEGIN

M := M DIV 10;

R := R*10;

END;

IF (N*N MOD R) = N THEN

WRITELN('ЧИСЛО ', N, ' АВТОМОРФНО')

ELSE WRITELN('ЧИСЛО ', N, ' HE АВТОМОРФНО')

END.

Program prg2_10;

VAR N, R, M, К, I : INTEGER;

F : BOOLEAN;

BEGIN

{ДАНО НАТУРАЛЬНОЕ ЧИСЛО N. ОПРЕДЕЛИТЬ,ЯВЛЯЕТСЯ ЛИ ОНО ПАЛИНДРОМОМ. ЧИСЛО-ПАЛИНДРОМ МОЖНО ЧИТАТЬ СПРАВА НАЛЕВО И СЛЕВА НАПРАВО:

4 88 121 767767 И Т. Д. }

REPEAT

WRITE('Bведите НАТУРАЛЬНОЕ ЧИСЛО N = ');

READLN (N);

UNTIL N>0;

М := N;R := 1;К := 1;F := FALSE;

WHILE (M DIV 10)>0 DO

BEGIN

M := M DIV 10;

R := R*10;

К := K+1

END;

M := N;

FOR I := 1 TO К DIV 2 DO

BEGIN

IF (M DIV R)<> (M MOD 10) THEN F := TRUE;

M := (M MOD R) DIV 10;

R := R DIV 100

END;

IF F THEN WRITELN('число N, ' HE ПАЛИНДРОМ')

ELSE WRITELN('число ', N, ' ПАЛИНДРОМ')

END.

PROGRAM PRG2_11;

VAR X, Y, Z : REAL;

I, N : INTEGER;

BEGIN

{НАЙТИ СУММУ ПЕРВЫХ N ЧЛЕНОВ РЯДА

Y = 1 + Х / 2 + Х2 / 3 + Х3 / 4 +...}

WRITE('BBEflHTE ЗНАЧЕНИЕ ПЕРЕМЕННОЙ X =');

READLN (X);

WRITE('BBEflHTE КОЛИЧЕСТВО ЧЛЕНОВ РЯДА N =');

READLN (N);

Y := 1;Z := 1;

FOR I :== 1 TO N-1 DO

BEGIN

Z := Z*X;

Y:= Y + Z / ( l + 1)

END;

WRITELN('Y =', Y)

END.

PROGRAM PRG2_12;

VAR X, Y, Z : REAL;

N, I: INTEGER;

BEGIN

REPEAT

WRITE('ВВЕДИТЕ ПЕРЕМЕННУЮ РЯДА X, |X|<1 X =');

READLN(X);

WRITE(‘BВЕДИТЕ ЧИСЛО ЧЛЕНОВ РЯДА N =');

READLN (N);

UNTIL (ABS (X) <1) AND (N > 0);

Y:= 1; Z := 1;

FOR I := 2 TO N DO

BEGIN

Z:= Z*X;

Y:= Y + Z/I;

END;

WRITELN('CYMMA ПЕРВЫХ N ЧЛЕНОВ РЯДА Y =', Y);

END.

PROGRAM PRG2_13;

VAR X, Y, Z, E : REAL;

I: INTEGER;

BEGIN

REPEAT

WRITE('BBЕДИТЕ ПЕРЕМЕННУЮ РЯДА X, |X|<1 X = ');

READLN(X);

WRITE('ВВЕДИТЕ ТОЧНОСТЬ ВЫЧИСЛЕНИЯ E = ');

READLN(E);

UNTIL (ABS (X) <1) AND (E < 1 ) AND (E <= X);

Y := 1; Z := 1; I := 2;

REPEAT

Z := Z*X;

Y := Y + Z / l ;

I := 1+1

UNTIL ABS (Z/(i - 1)) < E;

WRITELN('ИСКОМАЯ СУММА РЯДА Y = ‘,Y);

END.

PROGRAM PRG2_14;

VAR X, Y, Z, Е : REAL;

I : INTEGER;

BEGIN

REPEAT

WRITE('ВВЕДИТЕ ПЕРЕМЕННУЮ РЯДА X, |X|<= 1 X = ');

READLN(X);

WRITE('ВВЕДИТЕ ТОЧНОСТЬ ВЫЧИСЛЕНИЯ E =' );

READLN(E);

UNTIL (ABS (X) <= 1) AND (E < 1 ) AND (E <= X);

Y := 1; Z := 1;l := 2;

REPEAT

Z := (Z*X*X)/I;

IF I MOD 2 = 0 THEN Y := Y+Z

ELSE Y := Y-Z;

I := 1+1

UNTIL ABS (Z) <= E;

WRITELN('ИСКОМАЯ СУММА РЯДА Y = Y);

END.

PROGRAM PRG2_15;

VAR X, Y, Z : REAL;

N, I: INTEGER;

BEGIN

REPEAT

WRITE('ВВЕДИТЕ ПЕРЕМЕННУЮ РЯДА X, |X|>1 X = ');

READLN(X);

\ШТЕ('ВВЕДИТЕ ЧИСЛО ЧЛЕНОВ РЯДА N = ');

READLN(N);

UNTIL (ABS (X) > t ) AND (N > 0);

Y := 1; Z := 1;

FOR I := 1 TO N-1 DO

BEGIN

z •= z*x-

IF I MOD 2 = 0 THEN Y := Y + l / Z

ELSE Y := Y - l / Z

END;

WRITELN(‘CYMMA ПЕРВЫХ N ЧЛЕНОВ РЯДА Y = ’, Y);

END.

PROGRAM PRG3_1;

VAR, N, X, SUM, I: INTEGER;

BEGIN

REPEAT

WRITE('BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');

READLN (N);

UNTIL N>0;

SUM := 0;

FOR I := 1 TO N DO

BEGIN

WRITE('BBEAHTE X = ');

READLN (X);

IF X<0 THEN SUM := SUM+X

END;

IF SUM > 0 THEN WRITELN('OTPИЦATEЛЬHЫX ЧИСЕЛ НЕТ')

ELSE

WRITELN('CУMMA ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ SUM = ’, SUM);

END.

PROGRAM PRG3_2;

VAR N, X, К, I : INTEGER;

BEGIN

REPEAT

WRITE('ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');

READLN (N);

UNTIL N>0;

К := 0;

FOR I := 1 ТО N DO

BEGIN

WRITE('ВВЕДИТЕ X = ');

READLN (X);

IF X = 0 THEN К := K+1

END;

IF К = 0 THEN WRITELN(‘НУЛЕЙ НЕТ')

ELSE

WRITELN(‘КОЛИЧЕСТВО НУЛЕЙ РАВНО К = ', К);

END.

PROGRAM PRG3_3;

VAR N, X, MAX, I : INTEGER;

BEGIN

REPEAT

WRITE('ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');

READLN (N);

UNTIL N>0;

WRITE(‘ВВЕДИТЕ X = ');

READLN (X);

MAX := X;

FOR I := 2 TO N DO

BEGIN

WRITE('ВВЕДИТЕ X = ');

READLN (X);

IF (X>MAX) THEN MAX := X;

END;

WRITELN(‘НАИБОЛЬШЕЕ ИЗ ЧИСЕЛ MAX = ‘,MAX);

END.

PROGRAM PRG3_4;

VAR N, X, MAX, I: INTEGER;

BEGIN

REPEAT

WRITE('ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');

READLN (N);

UNTIL N>0;

MAX := 0;

REPEAT

WRITE('ВВЕДИТЕ X = ');

READLN (X);

N := N-1

UNTIL (X<0) OR (N<= 1);

IF X<0 THEN MAX := X;

FOR I := 1 TO N DO

BEGIN

WRITE(‘ВВЕДИТЕ X = ');

READLN (X);

IF (X<0) AND(X>MAX) THEN MAX := X;

END;

IF MAX = 0 THEN WRITELN(‘ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ НЕТ')

ELSE

WRITELN('НАИБОЛЬШЕЕ ИЗ ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ MAX = ', MAX);

END.

PROGRAM PRG3_5;

VAR X, MINI, MIN2 : INTEGER;

BEGIN

WRITE(‘ВВЕДИТЕ X = ');

READLN (X);

MINI := X;

MIN2 := X;

{MIN2 > = MINI)

REPEAT

IF X < = MINI THEN

BEGIN

MIN2 := MINI;

MINI := X

END

ELSE

IF (MINKX) AND (X<MIN2) THEN MIN2 := X;

WRITE('ВВЕДИТЕ X = ');

READLN (X);

UNTIL (X = 0);

WRITELN('ДВА НАИМЕНЬШИХ ЧИСЛА РАВНЫ MINI, 'И', MIN2);

END.

PROGRAM PRG3_6;

VAR OLD, NEW : REAL;

F : BOOLEAN;

BEGIN

WRITE('ВВЕДИТЕ X = ');

READLN (OLD);

WRITE('BBЕДИТЕ X = ');

READLN (NEW);

F := FALSE;

REPEAT

IF NEW = OLD THEN F TRUE;

OLD := NEW;

WRITE('ВВЕДИТЕ X =');

READLN (NEW)

UNTIL NEW = 0;

IF F THEN

WRITELN('B ПОСЛЕДОВАТЕЛЬНОСТИ ЕСТЬ РАВНЫЕ');

WRITELN('СОСЕДНИЕ ЧЛЕНЫ')

ELSE

WRITELN('B ПОСЛЕДОВАТЕЛЬНОСТИ НЕТ РАВНЫХ');

WRITELN(‘СОСЕДНИХ ЧЛЕНОВ')

END.

PROGRAM PRG3_7;

VAR OLD, NEW : REAL;

К : INTEGER;

BEGIN

WRITEC (‘ВВЕДИТЕ X = ');

READLN (OLD);

WRITEC (‘ВВЕДИТЕ X = ');

READLN (NEW);

К := 0;

REPEAT

IF NEW*OLD<0 THEN К := K+1;

OLD := NEW;

WRITE('Введите X = ');

READLN (NEW)

UNTIL NEW = 0;

IF K>0 THEN

WRITELN(‘ПОСЛЕДОВАТЕЛЬНОСТЬ МЕНЯЕТ ЗНАК К’, 'РАЗ')

ELSE

WRITELN(‘ПОСЛЕДОВАТЕЛЬНОСТЬ HE МЕНЯЕТ ЗНАКА')

END.

PROGRAM PRG3_8;

VAR OLD, NEW, F : REAL;

К, I, N : INTEGER;

BEGIN

REPEAT

WRITE('BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');

READLN (N);

UNTIL N>0;

WRITE('BВЕДИTE X =' );

READLN (OLD);

F := OLD;

К := 0;

FOR I := 2 TO N DO

BEGIN

WRITE(‘ВВЕДИТЕ X = ');

READLN (NEW);

IF (NEW=0) AND (F = 0) THEN F := NEW;

IF NEW*F<0 THEN

BEGIN

F := NEW;

К := K+1

END;

OLD := NEW;

END;

IF K>0 THEN

WRITELN(‘ПОСЛЕДОВАТЕЛЬНОСТЬ МЕНЯЕТ ЗНАК К, 'РАЗ')

ELSE

WRITELN(‘ПОСЛЕДОВАТЕЛЬНОСТЬ HE МЕНЯЕТ ЗНАКА')

END.

<<< < Предыдущая 12 / 32 3 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
01.03.202584 Кб2Контрольная работа ИТД.doc
#
01.03.2025313 Кб3контрольная работа Логистика для экон.doc
#
25.11.2019327 Кб6Контрольная работа по истории.doc
#
01.05.202551 Кб2Контрольная работа по корпаративным финансам.docx
#
01.05.202556 Кб1Контрольная работа ПСЭД юристы.doc
#
12.03.2015101 Кб27КонтрольнаяInfo1.docx
#
26.11.201961 Кб4Контрольные вопросы 5-9.doc
#
01.04.2025144 Кб0Контрольные задачи ТОЭРС ЭТЭТТ.doc
#
29.04.2019373 Кб3Контрольные Уголовный процесс.doc
#
01.05.2025124 Кб0Контрольный тест студ.doc
#
01.07.2025636 Кб0КонтрРабПо УЦП.docx