помогите решить алгоритм в паскале и составить блок схемы! - Форум
Четверг, 08.12.2016, 03:03
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите решить алгоритм в паскале и составить блок схемы!
помогите решить алгоритм в паскале и составить блок схемы!
TYC9IДата: Четверг, 17.06.2010, 18:50 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Помогите решить задачки в паскале и составить алгоритм, а то я ничего в этом не понимаю(((
1. Даны действительные числа x, y, z. Выяснить, существует ли треугольник с длинами сторон x, y, z, если существует, то определить его тип: равносторонний, равнобедренный, разносторонний.
2. Построить и записать алгоритм транспонирования матрицы MхN.
3. Построить и записать алгоритм вычисления sin(x) для действительного числа x с точностью ε с использованием рекурсии.
 
elДата: Воскресенье, 20.06.2010, 14:54 | Сообщение # 2
Сержант
Группа: Новичок
Сообщений: 8
[ 0 ]
Статус: Offline
Program z2;
uses crt;
var x,y,z,max,min,ost,ugol:real;

Begin
clrscr;
{проверка ввода действительного положительного числа}
repeat
write('введите x: ');
readln(x);
until (x>0); {проверка правильности введенных данных}
repeat
write('введите y: ');
readln(y);
until (y>0);
repeat
write('введите z: ');
readln(z);
until (z>0);
{проверяем условие существование треугольника}
if ((x+y)>z) and ((x+z)>y) and ((y+z)>x)
then
begin
writeln('треугольник со сторонами ',x:3:2,' ',y:3:2,' и ',z:3:2,' существует');
if (x>y) and (x>z) then max:=x {находим наибольшую сторону}
else if (y>z) then max:=y
else max:=z;
if (x<y) and (x<z) then min:=x {находим наименьшую сторону}
else if (y<z) then min:=y
else min:=z;
ost:=x+y+z-max-min; {вычисляем оставшуюся сторону}
ugol:=(sqr(min)+sqr(ost)-sqr(max))/(2*min*ost); {находим косинус большего угла}
if (ugol=0) then writeln('треугольник прямоугольный')
else
if (ugol>0) then writeln('треугольник остроугольный')
else writeln('треугольник тупоугольный');
end
else
writeln('треугольник со сторонами ',x:3:2,' ',y:3:2,' и ',z:3:2,' не существует');
readln;
end.

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите решить алгоритм в паскале и составить блок схемы!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016