Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.10.2011, 18:52   #1
sanyawasdas
Пользователь
 
Регистрация: 28.10.2011
Сообщений: 12
Восклицание Две задачи: Вычислить периметр и площадь прямоугольного треугольника; Найти сумму ряда

1.обчислити периметр і площу прямокутного трикутника за заданим катетом та гострим кутом (Паскаль)
2.зробіть алгоритм і програму обчислення суми паскаль 1+1/2+1/3....+1/10


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

Последний раз редактировалось sanyawasdas; 29.10.2011 в 11:57.
sanyawasdas вне форума Ответить с цитированием
Старый 28.10.2011, 18:54   #2
sanyawasdas
Пользователь
 
Регистрация: 28.10.2011
Сообщений: 12
По умолчанию

Буду всім вдячний.
sanyawasdas вне форума Ответить с цитированием
Старый 28.10.2011, 19:13   #3
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
зробіть алгоритм і програму обчислення суми паскаль 1+1/2+1/3....+1/10
ir kokia problema? tau reikia naudoti ciklą nuo 1 iki 10, kuriame, pavyzdžiui, kintamoje s (nepamiršk, kad ji turi būti nekilnojamojo tipo) sumuoti s ir 1/ciklo_skaitiklis (t.y. paprastai i).
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.

Последний раз редактировалось Alex11223; 28.10.2011 в 19:56.
Alex11223 вне форума Ответить с цитированием
Старый 29.10.2011, 00:25   #4
Leshii
Форумчанин
 
Регистрация: 26.07.2011
Сообщений: 376
По умолчанию

1)
Шановний, Клац додавайте сюди знаходження через катет і кут, і вирішуйте цю задачу. Яка виявляється занадто важка...

2)
Ну тут ну очень сложно.
Код:
Program drob;
uses crt;
var i:integer;
    S:real;
begin
clrscr;
S:=0;
for i:=1 to 10 do
begin
S:=S+(1/i);
writeln(S:1:1);
end;
readln;
end.
Люблю на ты.Я человек простой

Последний раз редактировалось Leshii; 29.10.2011 в 00:44.
Leshii вне форума Ответить с цитированием
Старый 29.10.2011, 06:47   #5
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

1. Вопрос: а заданный угол при заданном катете или нет? Если да, то
Код:
p:= a + a/cos(f) + a*sin(f)/cos(f);
s:= a*a*sin(f)/cos(f)/2;
Тут
a - заданный катет
f - заданный угол в радианах (если он в градусах, то перед вычислениями сделай f:=f*Pi/180; )

2. Леший, почему у тебя вывод суммы попал в цикл?
Саня, просто убери begin и end в цикле, и все будет норм.
Предпочитаю на "ты".
TinMan вне форума Ответить с цитированием
Старый 29.10.2011, 11:13   #6
sanyawasdas
Пользователь
 
Регистрация: 28.10.2011
Сообщений: 12
По умолчанию

Leshii,TinMan спасибо очень помогли.
sanyawasdas вне форума Ответить с цитированием
Старый 29.10.2011, 11:18   #7
Leshii
Форумчанин
 
Регистрация: 26.07.2011
Сообщений: 376
По умолчанию

Цитата:
2. Леший, почему у тебя вывод суммы попал в цикл?
Саня, просто убери begin и end в цикле, и все будет норм.
То я для наглядности, чтоб человек понимал что после чего равно чему)
Люблю на ты.Я человек простой
Leshii вне форума Ответить с цитированием
Старый 29.10.2011, 11:21   #8
sanyawasdas
Пользователь
 
Регистрация: 28.10.2011
Сообщений: 12
По умолчанию

Я тоде человек простой.Ок
sanyawasdas вне форума Ответить с цитированием
Старый 29.10.2011, 12:00   #9
sanyawasdas
Пользователь
 
Регистрация: 28.10.2011
Сообщений: 12
По умолчанию

а можна вставить картинку сюда?
sanyawasdas вне форума Ответить с цитированием
Старый 29.10.2011, 12:17   #10
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Какую? Если код из Турбо Паскаля, то откройте .pas файл (который имя_программы.pas) и скопируйте его оттуда.
И используйте тег [CODE] (значок # ) для сохранения форматирования и подсветки кода в сообщении.

Вообще можно (через загрузку файлов в расширенном режиме ответа), но удобнее использовать картинкохостинки, например hostingkartinok.com.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Линейные алгоритмы. Вычислить периметр и площадь треугольника. sqr Паскаль, Turbo Pascal, PascalABC.NET 2 29.10.2011 15:24
описать процедуру вычисляющую периметр и площадь равностороннего треугольника по данной стороне А. Aimet Паскаль, Turbo Pascal, PascalABC.NET 1 18.06.2011 20:04
две задачи - выразить денежную сумму в купюрах; по координатам найти периметр (Pascal) p0weR Помощь студентам 2 01.03.2011 18:46
определить площадь,периметр,биссектрисы и т.п. треугольника Иоанн IV Грозный Помощь студентам 2 16.01.2011 20:12
Вычислить площадь треугольника. С++ varlonec Помощь студентам 2 26.01.2010 20:07