Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 9 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

Школьный АЯ
алг Точки(арг вещ 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.');
ReadLn
END.
Пример 1.4. Найти произведение цифр заданного целого четырехзначного числа.
Система тестов
Номер
теста
Проверяемый
случай
Число Результат
1 Число положительное 2314 P = 24
2 Число отрицательное -1245 P = 40 
               Школьный АЯ
               алг Точки(арг вещ 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.');
  ReadLn
END.

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

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

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

Страницы