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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Внимание! Есть замечания модератора по теме: Такое название темы было бы лучше - "решение задач Delphi"
Старый 09.02.2007, 22:54   #1
Рената
Пользователь
 
Регистрация: 09.02.2007
Сообщений: 18
Вопрос нужна ваша помощь, решение задач Delphi

Если нетрудно помогите решить 2 задачи (Delphi):

1.В текстовом файле записать матрицу A и потом числа x. Delphiпрограмма находит места в матрице (номера строк и столбиков) где находится это число и эту информацию вписывает в конце файла. (употреблять OpenDialog, SaveDialog ir Memo.)

2.
Найдите последовательность, которого общий член 1 /(i+1)2. Если n<0, то введите сообщение об ошибке. Сумма последовательности вычисляется программически но не аналитически.
Рената вне форума
Старый 10.02.2007, 00:04   #2
Softovick
Пользователь
 
Аватар для Softovick
 
Регистрация: 22.01.2007
Сообщений: 52
По умолчанию

Во как.. Два вопроса:
1. Ограничения на использования других компонентов есть?
2. Поподробней насчет второй задачи... чего то я условие про общий член не понимаю...
Delphi & LMD & RXLib / VBA / Windows / Linux...
Softovick вне форума
Старый 10.02.2007, 11:51   #3
Time
Пользователь
 
Регистрация: 09.02.2007
Сообщений: 32
По умолчанию

Я тоже не понял чё надо во второй задаче... Как то не по-русски написано. Напиши нормально, тогда может поможем!
Time have not meaning, mind - this is main...
Time вне форума
Старый 10.02.2007, 14:09   #4
Lynx
Пользователь
 
Аватар для Lynx
 
Регистрация: 09.02.2007
Сообщений: 49
По умолчанию

Можно по первой задаче пример входного и выходного файлов, данных...
И по второй по конкретней задание?
Свой среди чужих
Чужой среди своих
Lynx вне форума
Старый 10.02.2007, 16:21   #5
Рената
Пользователь
 
Регистрация: 09.02.2007
Сообщений: 18
По умолчанию

Подробнее так:
Найдите последовательность. Выражение общего члена этой последовательности имеет вид1 /(i+1)2, сумма членов введенных числу n. Если n<0, то введите сообщение об ошибке. Сумма последовательности вычисляется программически но не аналитически.
Рената вне форума
Старый 10.02.2007, 17:14   #6
Softovick
Пользователь
 
Аватар для Softovick
 
Регистрация: 22.01.2007
Сообщений: 52
По умолчанию

Цитата:
Сообщение от Рената Посмотреть сообщение
Подробнее так:
Найдите последовательность. Выражение общего члена этой последовательности имеет вид1 /(i+1)2, сумма членов введенных числу n. Если n<0, то введите сообщение об ошибке. Сумма последовательности вычисляется программически но не аналитически.
Называется найдите 10 отличий...
Если Вам нужна помощь - ПОЖАЛУЙСТА, напишите ответы на Наши вопросы... Только нормально... а то я вот например не понимаю, что означает общий член последовательности.
И кстати по первой задаче Вы тоже не ответили
Delphi & LMD & RXLib / VBA / Windows / Linux...
Softovick вне форума
Старый 10.02.2007, 17:25   #7
Lynx
Пользователь
 
Аватар для Lynx
 
Регистрация: 09.02.2007
Сообщений: 49
По умолчанию

Рената, по второй программе листинг, на сколько я понял
Код:
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
 n : longint;

function summa (n : longint): double;
begin
  if n >= 0 then
      result := summa(n-1) + 1/(2*(n+1))
  else
    result := 0;
end;

begin
  Write   ('n=');
  Readln  (n);
  if n < 0 then
    begin
      writeln ('n > 0!!!');
      readln;
    end
  else
    begin
      Writeln('Summa ='+ FloatToStr(summa(n)));
      Readln;
    end;
end.
Свой среди чужих
Чужой среди своих
Lynx вне форума
Старый 10.02.2007, 20:33   #8
Рената
Пользователь
 
Регистрация: 09.02.2007
Сообщений: 18
По умолчанию

Softovick vbmenu_register("postmenu_10708", true);
Отвечаю на Ваши вопросы по первой задачке - ограничений на использование других компонентов нет.
А во второй - как я понимаю надо найти для всех натуральных n общий член последовательности который выражается по формуле 1 /(i+1)2 Т.е. надо один за другим выписывать члены последовательности.
Рената вне форума
Старый 10.02.2007, 22:50   #9
Lynx
Пользователь
 
Аватар для Lynx
 
Регистрация: 09.02.2007
Сообщений: 49
По умолчанию

По второму примеру, консольное приложение Delphi:
Исходные данные "n"- количество элементов ряда.
Выходные данные: величина каждого элемента, сумма элементов рассчитанная программно
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 count : longint;

function summa (n : longint): double;
begin
  if n >= 0 then
    begin
      writeln (IntToStr({count - }n)+': '+ FloatToStr(1/(2*(n+1))));
      result := summa(n-1) + 1/(2*(n+1));
    end
  else
    result := 0;
end;

begin
  Write   ('n=');
  Readln  (count);
  if count < 0 then
    begin
      writeln ('n >= 0!!!');
      readln;
    end
  else
    begin
      Writeln('Summa ='+ FloatToStr(summa(count)));
      Readln;
    end;
end.
Свой среди чужих
Чужой среди своих
Lynx вне форума
Старый 11.02.2007, 18:23   #10
Рената
Пользователь
 
Регистрация: 09.02.2007
Сообщений: 18
По умолчанию

Спасибо за помощь ребята, с наилучшими пожеланиями Рената.
Рената вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужна ваша помощь! forsy Паскаль, Turbo Pascal, PascalABC.NET 2 19.05.2008 14:38
Нужна ваша помощь в Delphi Ivanich Помощь студентам 3 23.12.2007 20:06
нужна ваша помощь SashaB Общие вопросы Delphi 20 19.11.2006 15:57