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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

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

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

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

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

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

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

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

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

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

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

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

Рената, по второй программе листинг, на сколько я понял
Код:
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, 21:33   #8
Рената
Пользователь
 
Регистрация: 09.02.2007
Сообщений: 18
Репутация: 10
По умолчанию

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

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

По второму примеру, консольное приложение 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, 19:23   #10
Рената
Пользователь
 
Регистрация: 09.02.2007
Сообщений: 18
Репутация: 10
По умолчанию

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

Опции темы

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

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

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

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


19:53.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.