Система тестов. Номер теста Данные Результат xA yA xB yB xC yC Otvet -1 "Это
| Номер теста
| Данные
| Результат
|
| xA
| yA
| xB
| yB
| xC
| yC
| Otvet
|
|
|
|
|
|
| -1
|
| "Это точка A"
|
|
|
|
|
|
| -1
|
| "Это точка B"
|
|
|
|
| -1
|
|
|
| "Это точка C"/TR>
|
Демонстрация
Школьный АЯ
алг Точки(арг вещ xA,yA,xB,yB,xC,yC, рез лит Otvet)нач вещ DistA,DistB,DistC ввод xA,yA,xB,yB,xC,yC DistA := sqrt(xA**2 + yA**2) DistB := sqrt(xB**2 + yB**2) DistC := sqrt(xC**2 + yC**2) если (DistA < DistB) и (DistA < DistC) то Otvet := "Это точка А" иначе если DistB < DistC то Otvet := "Это точка B" иначе Otvet := "Это точка C" все все вывод Otvetкон
Turbo Pascal
Program Points;Uses Crt;Var xA, yA, xB, yB, xC, yC, DistA, DistB, DistC : Real;BEGIN ClrScr;WriteLn('Введите координаты точки А:');Write('x = '); ReadLn(xA); Write('y = '); ReadLn(yA);WriteLn('Введите координаты точки B:');Write('x = '); ReadLn(xB); Write('y = '); ReadLn(yB);WriteLn('Введите координаты точки C:');Write('x = '); ReadLn(xC); Write('y = '); ReadLn(yC); DistA := sqrt(sqr(xA) + sqr(yA)); DistB := sqrt(sqr(xB) + sqr(yB)); DistC := sqrt(sqr(xC) + sqr(yC)); WriteLn; Write('Ответ : '); If (DistA < DistB) and (DistA < DistC) then WriteLn( 'Это точка А.') else If (DistB < DistC) then WriteLn('Это точка B.') else WriteLn('Это точка C.'); ReadLnEND.
Пример 1.4. Найти произведение цифр заданного целого четырехзначного числа.
Дата добавления: 2015-08-08; просмотров: 631;
