Then WriteLn( 'Это точка А.')

Дата добавления: 2015-07-04; просмотров: 489; Нарушение авторских прав

else If (DistB < DistC)

Then WriteLn('Это точка B.')

else WriteLn('Это точка C.');

ReadLn

END.

Пример 1.4. Найти произведение цифр заданного целого четырехзначного числа.

Система тестов

Номер теста	Проверяемый случай	Число	Результат
	Число положительное		P = 24
	Число отрицательное	-1245	P = 40

Демонстрация

Начало формы

Конец формы

Школьный АЯ

Алг Произведение цифр (арг цел Num, рез цел P)

Нач цел i, j, k, l

Num := abs(Num) | abs - абсолютная величина

i := div(Num, 1000) | i - первая цифра

| div - частное от деления с остатком

j := mod(div(Num, 100), 10) | j - вторая цифра

| mod - остаток от деления с остатком

k := mod(div(Num, 10), 10) | k - третья цифра

l := mod(Num, 10) | l - четвертая цифра

P := i * j * k * l;

Кон

Turbo Pascal

Program DigitsProduct;

Uses Crt;

Var Number, {заданное число}

i, j, k, l, {цифры числа}

P : Integer; {произведение цифр}

BEGIN ClrScr;

Write( 'Введите четырехзначное число : ' ); ReadLn(Number);

Number:=Abs(Number);

Write( 'Цифры числа ' , Number , ' : ' );

i := Number div 1000; Write(i:3); {первая цифра}

j := Number div 100 mod 10; Write(j:3); {вторая цифра}

k := Number div 10 mod 10; Write(k:3); {третья цифра}

l := Number mod 10; WriteLn(l:3); {четвертая цифра}

P := i * j * k * l ;

WriteLn( 'О т в е т : произведение цифр равно ' , P );

ReadLn

END.

QBasic

CLS

INPUT "Введите четырехзначное число : ", Number

PRINT : PRINT "Цифры числа "; Number; ": ";

Number = ABS(Number)

i = FIX(Number / 1000): PRINT i ; ' FIX - целая часть аргумента

j = FIX(Number / 100) MOD 10 : PRINT j ;

k = FIX(Number / 10) MOD 10 : PRINT k ;

l = Number MOD 10 : PRINT l

P = i * j * k * l

PRINT : PRINT "О т в е т : произведение цифр равно " ; P

END

Пример 1.5. Решить квадратное уравнение ax²+ bx + c = 0.

<== предыдущая лекция | следующая лекция ==>

Демонстрация | Система тестов