Главная » Информатика
использование линейных алгоритмов для решения задачЗадание Составить программу для вычисления площади равностороннего треугольника, если известна его сторона. Решение Program ploshad ravnostoronnego treygolnika; Var a,s:real; begin writln(‘Vvedite storony’); Readln(a); s:=(sgr(a)*sgrt(3))/4; writln (`Ploshad S=. s); end. Выполнение Alt+F9 – компиляция, проверка на ошибки. Ctrl+F9 – выполнение программы. Вводим переменные, например a=5. Получаем на экране сообщение площадь треугольника равна 11 Объяснение program perimetr; (указываем название программы) var P,a.b.c:integer; (описываем переменные в программе) begin (начало рабочей области) writeln(‘введите длины сторон’ ); (оператор вывода предупреждает пользователя, что надо ввести значения переменных) readln(a); (считывание значений переменных в память компьютера) s:=(sgr(a)*sgrt(3))/4;(присваиваем переменной s сумму трех сторон) writeln(‘площадь треугольника равена’ ,s); (выводим результат на экран) end. (конец рабочей области) Составление программы на языке Paskal по нахождению площади треугольника по формуле Герона.1. Использование линейных алгоритмов для решения задач. 2.Задача: составить программу на языке Paskal по нахождению площади треугольника по формуле Герона. 3.Решение: Programa vichislenie_ploshadi_treug_po_Geronu; Var a,b,c,S,p:real; begin writenLn(‘dliny storon’); readLn(a); readLn(b); readLn(c); p:=(a+b+c)/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); writenLn(‘ploshad=’,S); end. 4. Выполнение. Alt+F9 – компиляция, проверка на ошибки. Ctrl+F9-выполнение программы. Вводим переменные(длины сторон треугольника). Alt+F5 – просмотре результатов. Получаем на экране ответ. 5. Объяснение: Programa vichislenie_ploshadi_treug_po_Geronu;(название программы) Var a,b,c,S,p:real;(переменные в программе) begin(начало рабочей области) writenLn(‘dliny storon’);(оператор ввода оповещает о необходимости ввести переменные) readLn(a); readLn(b); readLn(c);(считывается значение переменных в память компьютера) p:=(a+b+c)/2;(рассчитывается полупериметр) S:=sqrt(p*(p-a)*(p-b)*(p-c));(рассчитывается площадь треугольника) writenLn(‘ploshad=’,S);(вывод результата на экран) end.(конец рабочей области) |