Система тестов
| Номер теста
| Проверяемый
случай
| Число
| Результат
|
|
| Число положительное
|
| 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); ReadLnEND.
QBasic
CLSINPUT "Введите четырехзначное число: ", NumberPRINT: 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 lP = i * j * k * lPRINT: PRINT "О т в е т: произведение цифр равно "; PEND
Пример 1.5. Решить квадратное уравнение ax2+ bx + c = 0.
| Номер теста
| Проверяемый случай
| Коэффициенты
| Результаты
|
| a
| b
| c
|
|
| d >0
|
|
| -2
| x1 = 1, x2 = - 2
|
|
| d=0
|
|
|
| Корни равны: x1 = - 1, x2 = - 1
|
|
| d < 0
|
|
|
| Действительных корней нет
|
|
| a=0, b=0, c=0
|
|
|
| Все коэффициенты равны нулю. х — любое число.
|
|
| a=0, b=0, c<>0
|
|
|
| Неправильное уравнение
|
|
| a=0, b<>0
|
|
|
| Линейное уравнение. Один корень: x = - 0,5
|
|
| a <> 0, b <> 0, с = 0
|
|
|
| x1 = 0, x2 = - 0,5
|
Демонстрация
Школьный АЯ (упрощенный алгоритм)
алг Квур (арг вещ а, b, c, рез вещ x1, x2, рез лит t) дано a <> 0нач вещ d d:= b**2-4*a*c | d - дискриминант квадратного уравнения если d<0 то t:= "Действительных корней нет" иначе если d=0 то t:= "Корни равны"; x1:= -b/(2*a); x2:= x1 иначе t:= "Два корня" x1:= (-b + sqrt(d)) / (2*a) x2:= (-b - sqrt(d)) / (2*a) все всекон
Turbo Pascal
Program QuadraticEquation; Uses Crt; { подключение библиотеки Crt } Var a, b, c: Real; {a, b, c - коэффициенты уравнения} Discr: Real; x1, x2: Real; {x1, x2 - корни } Test, NTest: Integer; {Ntest - количество тестов }BEGIN ClrScr; Write('Введите количество тестов: '); ReadLn(NTest); For Test:= 1 to NTest do {цикл по всем тестам задачи } begin Write('Тест ', Test, '. Введите коэффициенты a, b, c: '); ReadLn(a, b, c); If (a=0) and (b=0) and (c=0) then begin Write('Все коэффициенты равны нулю.'); WriteLn('x - любое число ') end else If (a=0) and (b<>0) then WriteLn('Линейное уравнение. Oдин корень: x =', (-c/b):6:2) else If (a=0) and (b=0) and (c<>0) then WriteLn('Неправильное уравнение.') else begin Discr:= b*b - 4*a*c; If Discr > 0 then begin x1:=(-b + Sqrt(Discr)) / (2*a); x2:=(-b - Sqrt(Discr)) / (2*a); WriteLn('x1=', x1:6:2, '; x2=', x2:6:2) end else If Discr = 0 then begin x1:= -b/(2*a); WriteLn('Корни равны: x1=', x1:6:2, ' x2=', x1:6:2) end else WriteLn('Действительных корней нет.'); end; WriteLn end; ReadLnEND.
QBasic
CLSINPUT "Введите количество тестов: ", NTestFOR Test = 1 TO NTest ' цикл по всем тестам задачи PRINT "Тест"; Test; ". Введите коэффициенты a, b, c: "; INPUT a, b, c IF (a = 0) AND (b = 0) AND (c = 0) THEN PRINT "Все коэффициенты равны нулю. x - любое число" ELSE IF (a = 0) AND (b <> 0) THEN PRINT "Линейное уравнение, корень один: x = "; -c / b ELSE IF (a = 0) AND (b = 0) AND (c <> 0) THEN PRINT "Неправильное уравнение." ELSE Discr = b * b - 4 * a * c IF Discr > 0 THEN x1 = (-b + SQR(Discr)) / (2 * a) x2 = (-b - SQR(Discr)) / (2 * a) PRINT "x1 = "; x1; "; x2 = "; x2 ELSE IF Discr = 0 THEN x1 = - b / (2 * a) PRINT "Корни равны: x1 = "; x1; "; x2 = "; x1 ELSE PRINT "Действительных корней нет." END IF END IF END IF END IF END IF: PRINTNEXT TestEND Результаты работы QBasic-программы (фрагмент):
| Тест 1. Введите коэффициенты a, b, c:? 1, 1, –2 <Enter> x1 = 1; x2 = – 2
Тест 2. Введите коэффициенты a, b, c:? 1, 2, 1 <Enter> Корни равны: x1 = – 1; x2 = – 1
Тест 3. Введите коэффициенты a, b, c:? 2, 1, 2 <Enter> Действительных корней нет.
|
Пример 1.6.
2014-01-24
695
