IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
  Ответить  Открыть новую тему 
> Решение по формулам
XIII06
сообщение 23.06.2008 13:51
Сообщение #1





Группа: Пользователи
Сообщений: 4
Пол: Мужской
Реальное имя: Павел Павлович

Репутация: -  0  +

Выручайте студента smile.gif

Задание: Прикрепленное изображение

Надо 2 файлика: .pas и .exe
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
_LeeRoy_
сообщение 23.06.2008 15:03
Сообщение #2





Группа: Пользователи
Сообщений: 5
Пол: Мужской
Реальное имя: Артём

Репутация: -  0  + 

program form;
uses crt;
var a :real;
    n,k: integer;
begin clrscr;
 a:=1;
 write('n = '); readln(n);
 for k:=1 to n do
  a:=(1/(k*k)+1)*a;
  writeln('otvet = ', a:3:3);
readkey;
end.

Прикрепленный файл  form.zip ( 12.77 килобайт ) Кол-во скачиваний: 291
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
XIII06
сообщение 23.06.2008 15:32
Сообщение #3





Группа: Пользователи
Сообщений: 4
Пол: Мужской
Реальное имя: Павел Павлович

Репутация: -  0  +

Цитата(_LeeRoy_ @ 23.06.2008 15:03) *

program form;
uses crt;
var a :real;
    n,k: integer;
begin clrscr;
 a:=1;
 write('n = '); readln(n);
 for k:=1 to n do
  a:=(1/(k*k)+1)*a;
  writeln('otvet = ', a:3:3);
readkey;
end.

Прикрепленный файл  form.zip ( 12.77 килобайт ) Кол-во скачиваний: 291


Спасибо!! good.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
« Предыдущая тема · Задачи · Следующая тема »
 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия 20.07.2025 6:02
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"