Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 15.11.2011, 09:54   #1 (permalink)
Alexander9458
Новичок
 
Регистрация: 08.06.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Post Помогите решить две задачи на Паскале

1. Вычислить х в первой степени + х во второй + х в третей + .... + х в степени к, где х,к заданы с клавиатуры.

2. Вычислить площадь правильного шестиугольника со стороной "а" используя подпрограмму вычисления площади треугольника.
Alexander9458 вне форума   Ответить с цитированием

Старый 15.11.2011, 09:54
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Пока в вашей теме не появились ответы, можете посмотреть эти

Помогите решить задачи
Помогите решить задачи в Паскале, пожалуйста
Помогите решить четыре задачи в Паскале
Помогите решить задачи на C++
Помогите решить две задачи в турбо паскале
Помогите решить три задачи на С++

Старый 15.11.2011, 11:00   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Охо-хо, грехи наши тяжкие... И не стыдно с такой ерундой по форумам бегать? И когда вы поймете, что учиться нужно вам - именно вам, а не папе с мамой? Ведь вам жить, черт побери! Вам дают эти детские задачки, чтобы вы освоились с самыми-самыми азами программирования, а вы... Или так и рассчитываете жизнь чужим умом прожить? Не выйдет, уж поверьте... Ну ладно, извините, коль что не так... Накипело!
Цитата:
Сообщение от Alexander9458 Посмотреть сообщение
1. Вычислить х в первой степени + х во второй + х в третей + .... + х в степени к, где х,к заданы с клавиатуры.
Код:
VAR
 x,S,a:real;
 i,k:integer;
BEGIN
 Write('x= ');
 Readln(x);
 Write('k= ');
 Readln(k);
 a:=1;
 S:=0;
 For i:=1 to k do
  begin
   a:=a*x;
   S:=S+a;
  end;
 Writeln('S= ',S:0:3);
 Readln
END.
Цитата:
Сообщение от Alexander9458 Посмотреть сообщение
2. Вычислить площадь правильного шестиугольника со стороной "а" используя подпрограмму вычисления площади треугольника.
Код:
VAR
 a:Real;

Function S_Tri(as:Real):Real;
begin
 S_Tri:=Sqr(as)*Sqrt(3)/4;
end;

BEGIN
 Write('a= ');
 Readln(a);
 Writeln('S= ',S_Tri(a)*6:0:3);
 Readln
END.
А вообще, с учетом резкого снижения уровня задачек по отношению к предыдущим, выложенным Вами, возникают в отношении Вас всякие нехорошие подозрения...
Vladimir_S вне форума   Ответить с цитированием
Старый 16.11.2011, 09:03   #3 (permalink)
Alexander9458
Новичок
 
Регистрация: 08.06.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо)) а задачи эти не для учебы мне нужны))
Alexander9458 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:12.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.