Известны координаты вершин a, b, c треугольника. напишите программу, вычисляющую площадь этого треугольника. пример входных данных: ха=2 ya=1 xb=6 yb=5 xc=10 yc=1 пример выходных данных: s=16.0 )
Rem BASIC-256 cls errors = 0 print "Введите текст > ";
rem Пользователь вводит текст input a$
rem Перебираем все буквы с начала и до предпоследней for i=1 to length(a$)-1
rem Если встречаем букву Ч или Щ if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then
rem Тогда проверяем следующую за ней букву. rem Если это буква я, тогда подсчитываем очередную ошибку if mid(a$, i + 1, 1) = "я" then errors = errors + 1 end if
rem Переходим к следующей букве next i
rem Вывод результата print "Количество ошибок в тексте "; print errors
var i,z,y,x: integer; // объявление переменных begin // начало программы writeln('Введите числа: '); // Вывод сообщения readln(x,y); // Ввод чисел х и у с клавиатуры while i <> y do // Повторять цикл пока i не будет равно y begin // Вход в цикл z:=z+x; // z = z + x (при первом шаге получается 0 = 0 + х) i:=i+1; // Увеличиваем счетчик цикла на 1 end; // Выход из цикла write(z); // Вывод z (произведение х и у) end. // Конец программы
Program triangle;
var ax,bx,cx,ay,by,cy:integer;
begin
Writeln('Введите координату А по Х');
Readln(ax);
Writeln('Введите координату B по Х');
Readln(bx);
Writeln('Введите координату C по Х');
Readln(cx);
Writeln('Введите координату А по Y');
Readln(ay);
Writeln('Введите координату B по Y');
Readln(by);
Writeln('Введите координату C по Y');
Readln(cy);
Writeln('Площадь треугольника равна ', 0.5*((ax-cx)*(by-cy)-(bx-cx)*(ay-cy)));
end.
Подробнее - на -
Объяснение: