Pascal. Задачи.

ВЫЕЗД ИЗ УКРАИНЫ • ОФОРМЛЕНИЕ ДОКУМЕНТОВ • БРОНИРОВАНИЕ • ПОМОЩЬ С ТЦК

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ

Скрыть

		ANTICHAT > ОФФТОП > Болталка
Pascal. Задачи.

Страница 2 из 2

Опции темы

Поиск в этой теме

Опции просмотра

#11

13.05.2006, 15:01

Zakary

Участник форума

Регистрация: 28.09.2005

Сообщений: 180

С нами: 10851302

Репутация: 34

Deem3n
ещё раз спасибо!
Zarakul
А у нас вот так вот)))

#12

13.05.2006, 15:21

Sn@k3

Познавший АНТИЧАТ

Регистрация: 13.04.2006

Сообщений: 1,738

С нами: 10566621

Репутация: 1198

Цитата:

Сообщение от [Zarakul]

Ни разу в 11-ом классе даже близко таких задач не решали...

вы чё серъёзно.блин а нас закидывают такие барахлом.приходится делать

#13

13.05.2006, 17:17

Otaku

Познавший АНТИЧАТ

Регистрация: 24.07.2005

Сообщений: 1,057

С нами: 10946149

Репутация: 116

Блин. Ведь я лет в 15 такие задачки щёлкал. Экзамены сдавл даже. А сейчас паскаль забыл совсем

Старею?

#14

14.05.2006, 14:44

Zakary

Участник форума

Регистрация: 28.09.2005

Сообщений: 180

С нами: 10851302

Репутация: 34

Вот здесь ну очень легкая задача...больше по математике надо))) Решить задачу с использованием условного оператора. Составить программу для определения вида треугольника по двум сторонам и углу меджду ними. Определяемое совйство: равностороний, равнобедренный или прямоугольный(обратите внимание, что треугольник может быть равнобедренным прямоугольным). Для корректного анализа нужно определить ещё третью сторону (например, по теореме косинусов sqr(c)=sqr(a)+sqr(b)-2*a*b*cos(a)). вот что получилось у меня, но не правильно работает.

Код:

program abc;
var a,b,c,d:real;
begin
write('enter 1 side:'); readln(a);
write('enter 2 side:'); readln(b);
write('enter angle:'); readln(c);
d:=sqrt(sqr(a)+sqr(b)-2*a*b*cos(a));
if c=90 then writeln('priamougolnii');
if (a=b) and (a=d) and (c=60) then writeln('ravnostoronii');
if (a=b) or (b=d) or (a=d) and (c<>60)then writeln ('ravnobedrenii');
readln;
end.(

#15

16.05.2006, 16:22

Zakary

Участник форума

Регистрация: 28.09.2005

Сообщений: 180

С нами: 10851302

Репутация: 34

Все ещё требуется ваш хелп.

#16

16.05.2006, 17:36

~~Li4inka~~

Banned

Регистрация: 14.05.2006

Сообщений: 8

С нами: 10521844

Репутация: -10

1) 2Mobile ты мудак
2) все кто хотели на этом срубить деньги просто гады

должно быть стыдно.
3) Zakary - программирование это лишь умение задачу вбить комуптеру чтобы он ее делал, но если ты сам не знаешь как решать задачу теб нужно сначала над первым работать, а не браться за второе - это так совет.
1) стандартные тригонометрические функции в паскале берут угол как аргумент не в градусах, а радианах, для перевода градусов в радианы : rad=gradus*pi/180;
2) замени:

Код:

if (a=b) then if (c=60) then writeln('ravnostoronii')
  else writeln ('ravnobedrenii');

#17

16.05.2006, 19:49

SanyaX

.::Club Life::.

Регистрация: 28.01.2005

Сообщений: 1,205

С нами: 11200586

Репутация: 1398

Li4inka вот закрыла бы твой маленький ротик. Програмист-тракторист широкого профиля тебе звание было бы.

__________________
-=Ok let's Go=-
-=OpenVPN=-

#18

18.05.2006, 09:59

Zakary

Участник форума

Регистрация: 28.09.2005

Сообщений: 180

С нами: 10851302

Репутация: 34

Li4inka
Спасибо за сове. но оскорблять не надо.....Mobile ведь пошутил)))

Страница 2 из 2

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Pascal для новичка	Micr0b	PHP	19	12.03.2006 21:24
Неадекватные цели, туманные задачи	Rebz	Болталка	12	02.02.2006 05:49
Нужно решение задачи	}{0TT@БЬ)Ч	Уязвимости	4	24.01.2006 10:07

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход