Визначте, в яких операторах допущені помилки.
Виберіть кілька з 4 варіантів відповіді:
1) Label1.Captіon := Бажаю успіху!;
2) Label1.Color := clYellow;
3) Button1.Width := true;
4) Button1.Top := 40;

Завдання #8
Запитання:
Установіть відповідність між фрагментами програмного коду і типами помилок, які в них допущені
Вкажіть відповідність для всіх 3 варіантів відповіді:
1) Синтаксична помилка
2) Помилка виконання
3) Немає помилки
__ a = 6; b := 8; X := a/b;
__ a := 6; b := 0; X := a/b;
__ a := 16; b := 2; X:= a/b;

Завдання #9
Запитання:
Розташуйте дії в порядку виконання програми в покроковому режимі.
Вкажіть порядок слідування всіх 3 варіантів відповіді:
__ Натиснути сполучення клавіш Ctrl+F2
__ Натискати клавішу F7 після виконання кожного рядка операторів
__ Натиснути клавішу F7

Математическая модель (а также программа; зависит от того, что понимать под этапом формализации).

В учебнике выделяют такие этапы решения задачи на компьютере:

Исходные данные (результат - словесная информационная модель)Формализация (математическая модель)Алгоритмизация (алгоритм)Программирование (программа)Отладка, тестирование (уточнение модели)Выполнение расчетов (получение результатов)

Нормальные люди понимают, что после формализации информация должна быть представлена на формальном языке, таких языком может быть как математический, так и язык программирования.

Пусть a,b,c - стороны треугольника (и их длины). Условие существование треугольника:

Пусть а - наибольшая из сторон, тогда против нее будет лежать наибольший угол, который можно определить по теореме косинусов:


Текст программы приводится ниже.
var
  a,b,c,t,cosA:real;
begin
  Write('Введите длины сторон треугольника: '); Readln(a,b,c);
  if (a<b+c) and (b<a+c) and (c<a+b) then
  begin
    if a>b then
    begin
        if a<c then begin t:=a; a:=c; c:=t end
    end
    else
      if b>c then begin t:=a; a:=b; b:=t end
      else begin t:=a; a:=c; c:=t end;
    cosA:=(sqr(c)+sqr(b)-sqr(a))/(2*b*c);
    if cosA=0 then Writeln('Треугольник прямоугольный')
    else
      if cosA<0 then Writeln('Треугольник тупоугольный')
      else Writeln('Треугольник остроугольный')
  end
  else
    Writeln('Треугольник построить нельзя')
end.

Тестовое решение:
Введите длины сторон треугольника: 4 6.1 3.7
Треугольник тупоугольный