Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Lazarus, Free Pascal, CodeTyphon
Регистрация

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

Ответ
 
Опции темы
Старый 17.06.2018, 16:45   #1
Kirill2017gh
 
Регистрация: 17.06.2018
Сообщений: 7
Репутация: 10
По умолчанию Задача

Помогите составить программу для этого выражения, пожалуйста в Lazarus

Вычислить значения функции с использованием вложенных операторов цикла for...to...do. Проект – консольное приложение.
Изображения
Тип файла: png 6.PNG (1.6 Кб, 12 просмотров)
Kirill2017gh вне форума   Ответить с цитированием
Старый 17.06.2018, 16:57   #2
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,693
Репутация: 1522

skype: newerow1989
По умолчанию

Код:

var a,c:integer;
    t,s:real;
begin
   t:=1;
   For a:=1 to 5 do
   begin
      s:=0;
      For c:=1 to 10 do
         s:=s+Ln(a*c);
      t:=t*s;
   end;
   Writeln(t:5:5);
   Readln;
end.

__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 17.06.2018, 17:02   #3
Kirill2017gh
 
Регистрация: 17.06.2018
Сообщений: 7
Репутация: 10
По умолчанию

У меня там еще в условии значения a и c есть
a = 2,8 ; c =1,8
Kirill2017gh вне форума   Ответить с цитированием
Старый 17.06.2018, 17:38   #4
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 12,063
Репутация: 2054

icq: 216409213
По умолчанию

Тогда проверяйте условие, ибо в такой постановке оно не имеет смысла. Либо a,c параметры, либо это просто логарифм от числа и значки суммы и произведения вообще дозвездеца.
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x вне форума   Ответить с цитированием
Старый 17.06.2018, 17:42   #5
Kirill2017gh
 
Регистрация: 17.06.2018
Сообщений: 7
Репутация: 10
По умолчанию

Там вот как

Мой под цифрой 4 в правом солбце
Изображения
Тип файла: png 5.PNG (14.4 Кб, 11 просмотров)
Kirill2017gh вне форума   Ответить с цитированием
Старый 17.06.2018, 17:51   #6
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,693
Репутация: 1522

skype: newerow1989
По умолчанию

Решение 1 задачи:
Код:

const a=2.8;
      c=1.8;
var z:real;
    k:integer;
begin
   z:=0;
   For k:=1 to 18 do
      z:=z+Cos(a*k)+Sin(c);
   Writeln(z:5:5);
   Readln;
end.

Решение 2 задачи: см. выше
__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 17.06.2018, 17:51   #7
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 12,063
Репутация: 2054

icq: 216409213
По умолчанию

Так это для первой задачи. Там суммирование/произведение идет по другому параметру и это имеет смысл.
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача по подсчёту статистики использования букв. Другая задача - по длинной арифметике Pascal ABC kimberly Паскаль 3 24.12.2012 17:03
задача на структуру(struct)/задача на работу с файлом SevenArth Помощь студентам 0 26.04.2012 19:06
Задача на оптимальный расчет маршрута (задача в презентации) в табличном процессоре Excel Toofed Помощь студентам 0 30.11.2011 01:12
Задача минимизации дисбаланса на линии сборки (задача минимакса) LenZab Microsoft Office Excel 13 13.03.2011 23:51


23:47.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru