1. Использование линейных алгоритмов для решения задач. Язык программирования: PASCAL Выполнила:ученица 11-а класса Тукила Кристина 2. Задача Составить программу для нахождения площади трапеции,зная высоту и сторону. 3. program ploshad;
var a,h,S:integer;
begin
writeln('введите a, h ');
readln(a,h);
S:=a*h;
writeln('площадь трапеции равен',S=a*h) 4.1)Alt+F9-комбинация, проверка на ошибки. 2)Ctrl+F9-запуск на выполнение программы. 3)Вводим переменные a=5,h=5. 4)Alt+F5-просмотр результатов и возврат к программе. 5)Получаем ответ на экране. Площадь равна 25. 5.Объяснение. program ploshad;(указываем название программы) var a,h,S:real;(описываем переменные в программе)begin(начало рабочей области)writeln('введите a, h ');(оператор вывода предупреждает пользователя.что нужно ввести значения переменных)readln(a,h);(считывание знаний переменных в память компьютера)S:=a*h;(присваиваем переменной S значения a и h)writeln('площадь равна ',s);(площадь трапеции равен S=h*a)end.(конец рабочей области).
Задача Составить
программу для нахождения площади равнобедренной трапеции. Решение program Ploshad; var S,r,sinA:real; begin writeln('radius
okryzhosti i sinA'); readln(r); readln(sinA); S:=4*r*r/sinA; writeln('ploshad=',
S:2:2);
end. Выполнение Alt+F9 – компиляция, проверка на ошибки. Ctrl+F9-выполнение программы. Вводим переменные(r=2. sinA=1/2). Alt+F5 – просмотре результатов. Получаем на экране ответ S=32. Объяснение program Ploshad;
(название программы) var S,r,sinA:real; (переменные в программе) begin(начало
рабочей области) writeln('radius okryzhosti i sinA'); (оператор ввода оповещает о
необходимости ввести переменные) readln(r); readln(sinA); (считывается значение переменных в
память компьютера) S:=4*r*r/sinA; (рассчитывается площадь равнобедренной трапеции) writeln('ploshad=', S:2:2);
(вывод результата на экран)
end. (конец рабочей области)
Задание Составить программу для вычисления площади равностороннего треугольника, если известна его сторона.
Решение 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. (конец рабочей области)
1. Использование линейных алгоритмов для решения задач.
2.Задача.
Составить программу для нахождения площади треугольника,
зная радиус впис. окр-ти и полупериметр.
Значение сторон натуральные числа.
3.Решние
Program Ploshad;
Var S,r,p:real;
begin
writeln (‘vvedite dlinnu storoni I visoti’);
readln (r,p);
S:=r*p
writeln (‘Ploshad=‘,S:2:2);
end.
4. Выполнение
Аlt + F9 – Проверка на ошибки.
Ctrl + F9 – Выполнение программы.
После того как вы выполнили, без ошибочно, решение задачи ,
программа попросит Вас ввести в нижнем окне значение a и значение b.
Т.е в нашем случае это будут переменные r и p .
Вводим переменные, например r=10, p=5.
Получаем на экране сообщение : площадь треугольника равна 50 cм² .
5.Обьяснение. program
perimetr; (указываем название программы)
var S,r,p:integer;
(описываем переменные в программе)
begin (начало рабочей области)
writeln(‘введите длинну стороны и высоты ’ ); (оператор
вывода предупреждает пользователя, что надо ввести значения переменных)
readln(r,p); (считывание значений переменных в память
компьютера)
S:=r*p (присваиваем переменной Р сумму трех сторон)
writeln(‘периметр треугольника равен ’ ,P); (выводим результат на экран)
Использование линейных алгоритмов для решения задач ЗадачаСоставить программу для нахождения площади треугольника через высоту и основание.
Решение
Program
Ploshad;
Var S,a,h: real;
Begin
writeln (‘vvedite dliny visoti i osnovanya’);
readln (a,h);
S:=1/2*a*h
writeln (‘ Ploshad=’,S);
end.
Выполнение
Аlt + F9 – Проверка на
ошибки.
Ctrl + F9 – Выполнение программы.
После того как вы выполнили, без ошибочно,
решение задачи , программа попросит Вас ввести в нижнем окне значение a и значение b.
Т.е в нашем случае это будут переменные a и h .
Вводим переменные, например a=10, h=5.
Получаем на экране сообщение : площадь треугольника равна 25 cм² .
Обьяснение
program perimetr; (указываем
название программы)
var S,a,h:integer; (описываем
переменные в программе)
begin (начало рабочей
области)
writeln(‘введите длинну стороны и высоты
’ ); (оператор вывода предупреждает пользователя, что надо ввести
значения переменных)
readln(a,h); (считывание
значений переменных в память компьютера)
S:=1/2*a*h (присваиваем
переменной S значение ½*a*h )
writeln(‘площадь треугольника
равна ’ ,S); (выводим
результат на экран)
end. (конец рабочей
области)
использование линейных алгоритмов для решения задач from romanamelin
Использование линейных алгоритмов для решения задач.
Задача
Составить программу для нахождения площади треугольника через радиус вписанной окружности.
Решние
program ploshad; var r, S:real; begin writeln('введите радиус вписанной окружности'); readln(r); S:=3*SQRT(3)*r*r; writeln('периметр треугольника равен =',s:2:2); end. Выполнение
Аlt + F9 – Проверка на ошибки.
Ctrl + F9 – Выполнение программы.
После того как вы выполнили, без ошибочно, решение задачи , программа попросит Вас ввести в нижнем окне значение радиуса.
Вводим переменные, например r=4.
Получаем на экране сообщение : площадь параллелограмма равна S=83.14 cм² .
*program ploshad;(название
программы)
*var r, S:real;(переменные в программе)
*begin(начало рабочей области)
*writeln('введите
радиус вписанной окружности');(оператор ввода
оповещает о необходимости ввести переменные)
*readln(r);(считывается
значение переменных в
память компьютера)
*S:=3*SQRT(3)*r*r;(рассчитывается площадь
треугольника)
*writeln('периметр
треугольника равен =',s:2:2);
*(вывод
результата на экран, округленный до сотых)
*end.(конец
рабочей области)
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.(конец рабочей области)
1.Использование линейных алгориртмов для решения задач.
2.Задача:Составить программу для нахождения площади прямоугольного треугольника по формуле Герона , зная все его стороны.Значение сторон натуральные числа.
3.Решение.
1) Program ploshad;
var a,b,p,S:integer;
begin
writeln('vvedite dliny katetov i polyperimetr');
readln(a,b,p);
S:=(p-a)*(p-b);
writeln(S);
end.
4.Выполнение.
Аlt + F9 – Проверка на ошибки.
Ctrl + F9 – Выполнение программы.
После того как вы выполнили, без ошибочно, решение задачи , программа попросит Вас ввести в нижнем окне значение a, b, c (для полупериметра) и a, b, p (для площади).
Вводим переменные, например a=5, b=6, c=7, а отсюда p=11.
Получаем на экране сообщение : площадь прямоугольного треугольника равна 30м² .
5. Объяснение
Program ploshad ; ( указываем название программы)
var S,a,b,p :integer; ( описываем переменные в программе)
begin ( начало рабочей области)
writeln('введите длину катетов и полупериметра'); ( оператор вывода предупреждает что нужно ввести значение переменных)
readln(a,b,p); ( считывание значения переменных в память компьютера)
S:=(p-a)*(p-b);( присваеваем переменной S значение a,b и р)
writeln('площадь прямоугольного треугольникаравна ',S); ( выводим результат на экран)
end. ( конец рабочей области
|
