помогите решить к субботе) - Форум
Пятница, 09.12.2016, 06:48
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите решить к субботе)
помогите решить к субботе)
DELTaДата: Пятница, 29.04.2011, 14:21 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
в паскале программы написать)
4. Даны три положительных числа. Определить, можно ли построить треугольник с длинами сторон, равным этим числам. Если можно, то ответить на вопрос, является ли он остроугольным.
4. Если сумма трех попарно различных действительных чисел X, Y, Z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из X, У полусуммой двух оставшихся значений.

Добавлено (29.04.2011, 14:21)
---------------------------------------------
ну что никто не знает что ли?( спасайте sad

Сообщение отредактировал DELTa - Четверг, 28.04.2011, 20:19
 
KOT_B_MEIIIKEДата: Пятница, 29.04.2011, 17:10 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
да не заморачивайся ты)))
program treangle;
var a,b,c,cosa,cosb,cosc:real;mozhno,ostriy:boolean;
begin
writeln ('Введите числа a,b,c:');read(a,b,c);
mozhno:=(a+b>c) and (a+c>b) and (b+c>a);
if not mozhno then writeln('Построить треугольник с данными сторонами нельзя')
else
begin
cosa:=(b*b+c*c-a*a)/(2*b*c);
cosb:=(a*a+c*c-b*b)/(2*a*c);
cosc:=(b*b+a*a-c*c)/(2*a*b);
ostriy:=(cosa>0) and (cosb>0) and (cosc>0);
write ('Треугольник с данными сторонами можно построить, и он');
if not ostriy then write (' не');
write (' является остроугольным');
end;
end.

Добавлено (29.04.2011, 17:10)
---------------------------------------------
program chisla;
var x,y,z:real;
begin
writeln ('Введите x,y,z:');
read(x,y,z);

if (x+y+z<1) then
if (x>y) then
if (y<z) then y:=(x+z)/2
else z:=(x+y)/2
else x:=(y+z)/2
else
if x<y then x:=(y+z)/2
else y:=(x+z)/2;
writeln(x:6:2,y:6:2,z:6:2);
writeln
end.


Сообщение отредактировал KOT_B_MEIIIKE - Пятница, 29.04.2011, 17:03
 
DELTaДата: Суббота, 30.04.2011, 17:48 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
спасибо большое :))

Добавлено (30.04.2011, 17:48)
---------------------------------------------
а как репутацию то повысить?)

 
KOT_B_MEIIIKEДата: Суббота, 30.04.2011, 17:59 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
под кол-вом сообщений есть циферка. Так вот справа от неё кнопочка)
 
SnowmanДата: Суббота, 07.05.2011, 18:47 | Сообщение # 5
Подполковник
Группа: Новичок
Сообщений: 21
[ 0 ]
Статус: Offline
Пожалуйста помогите мне решить всего одну задачу.Она мне не даётся:
Даны два натуральных числа. Выяснить, является ли хоть одно из них палиндромом ("перевертышем"), т. е. таким числом, десятичная запись которого читается одинаково слева направо и справа налево. (Определить функцию, позволяющую распознавать числа-палиндромы.)
Заранее огромное спасибо.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите решить к субботе)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016