Сообщения без ответов | Активные темы


Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 938 • Страница 25 из 47 • <  1 ... 22  23  24  25  26  27  28 ... 47  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
  Anoss

Member
Статус: Не в сети
Регистрация: 01.04.2005
Откуда: Москва-Лубянка
Я лисп знаю только теоретически, но, наверное,

Код:
(
   defun f ( n )
      (
         if
            ( < n 3 )
            1
            (
               +
                  ( f ( (- n 1) ) )
                  ( f ( (- n 2) ) )
            )
      )
)

?

_________________
AnossovPavel в проекте F@H (TSC!Russia)
退屈な祖父 ¤ παππούς ¤ («клан дедов»)

Реклама

Партнер
  Natasha_fa`

Junior
Статус: Не в сети
Регистрация: 10.08.2005
Откуда: Тюмень
Anoss а зачем у тебя скобки лишние ( f (( - n 1 ))) ? Он у меня на лишние скобки ругаеться. Я уже нашла сама касяк :
после первого обращения к функции не поставила закрывающюю скобку и он следующюю функцию воспринимал как аргумент.
мне теперь надо определить рекурсивную функцию, определяющую сумму семи первых чисел Фибоначчи.
я нарисовала:

>( defun fsum ( n ) ( if ( < n 3 ) 1 ( + ( fsum ( - n 1 )) ( f (n) )))))
>( f 7 )
13

посчитала на калькуляторе, 13 это значенее 7го числа...

_________________
Пытаюсь ли я найти Бога? Бог умнее меня. Пусть попробует найти меня сам. (А.Азимов)

  Karr

Помогите пожалуйста. Как заполнить матрицу простыми числами? (в С++)
  Natasha_fa`

Junior
Статус: Не в сети
Регистрация: 10.08.2005
Откуда: Тюмень
Karr
Код:
int main(int argc, char* argv[])
{
const int n=3;
int array[n][n];
 for(int i=0; i<n; i++)
   {cout<<endl;
   for(int j=0; j<n; j++)
      {array[i][j]=random(39);
       array[i][j]=array[i][j]*array[i][j]+array[i][j]+41;
       cout<<array[i][j]<<" ";
   }
 }
getch();
  return 0;
}

заполняет простыми числами матрицу 3*3

_________________
Пытаюсь ли я найти Бога? Бог умнее меня. Пусть попробует найти меня сам. (А.Азимов)

  Karr

Natasha_fa` Огромнейшее спасибо
  Phazeus

Кто там спрашивал про QBasic ? :) Пишите в аську 233560855, у меня со старых времен прого проектов на нем, помогу.
  maestroDL

Member
Статус: Не в сети
Регистрация: 19.09.2004
Откуда: СПб
Здравствуйте! Вот начал изучение С. Столкнулся с задачей, которую в принципе не могу доделать скорее из-за математических нехваток, нежеле знаний языка. Собственно:
Составить программу, определяющую попадание точки с координатами (X, Y) в область внутри круга, выше прямой, левее оси ординат, или в особом случае, на границу этой области, которая образуется в результате пересечения круга с радиусом R и центром в начале координат, прямой y=ax+b и одной или двумя осями координат.
Значение b вводится после ввода значений R и a, введенное значение проверяется на принадлежность к диапазону, обеспечивающему образование заданной замкнутой области. В случае несоответствия диапазону ввод значения b повторяется. После ввода уравнений, определяющих область, вводятся координаты проверяемой точки. По запросу осуществляется ввод координат следующей точки. При отказе повторять проверку точек, программа запрашивает необходимость ввода новых уравнений.

Не могу поставить ограничения на b и собственно проверку на попадание :( . Спасибо за любую помощь.

_________________
I don't know what you heard about me.

  kexman

Member
Статус: Не в сети
Регистрация: 12.12.2003
Откуда: Уфа
Школьная математика на самом деле:
С определением параметра b все просто : условие проверки заключается в том, что прямая должна пересекать окружность.
Уравнение окружности в виде y(x) разделяется на 2 части:
Код:
y = sqrt(R^2-x^2) - для верхней полуокружности
y = -sqrt(R^2-x^2) - для нижней полуокружности.

Уравнение прямой y = ax+b.
Решаешь 2 системы:
Код:
y = sqrt(R^2-x^2)
y = ax+b

и
Код:
y = -sqrt(R^2-x^2)
y = ax+b

Если хотя бы одна из них имеет решение, то прямая пересекает(или касается) окружности.
Можно еще в полярных координатах решить, но я не помню какой вид имеет ур-е прямой в полярных координатах. А выводить влом :)
Попадание внутрь области думаю сам разберешься.
  Night.Elf.88

Member
Статус: Не в сети
Регистрация: 28.08.2006
Есть задача:"дан текст. Каждое слово преоброзовать следующим образом: оставить в слове только первые вхождения каждой буквы.
"Никто не обнимает необъятного" было
стало "Никто не обнимает необъятг""
вот что пока сделал,

Код:
char string[250],slova[250][250],*word;
int i,n;

clrscr();
printf("vvedite stroku\n");
gets(string);
strtok(string, " ,.!?;:");
i=0;
strcpy(slova[i],string);
while(word!=NULL){word = strtok(NULL, " ,.!?;:");strcpy(slova[++i],word);}
n=i-1;
  maestroDL

Member
Статус: Не в сети
Регистрация: 19.09.2004
Откуда: СПб
kexman Спасибо за помощь. А то я там через треугольники хотел, вот а оказалось всё так легко.

_________________
I don't know what you heard about me.

  Hardwar

Member
Статус: Не в сети
Регистрация: 29.02.2004
Откуда: ...Не скажу...
Доброго времени суток. Люди добрые, есть проблема, требуется ваша помощь. В инс-те дали задачку на паскале, я даже примерно не знаю как ее решить. :insane: Кому не трудно и кто может - помогите пожалуйста. Вот собственно задача: Вычислить значения функции, если диапазон изменения аргумента и его шаг заданы. Определить среднее арифметическое значений функций, меньших 1. Аргументы и значения функции вывести в табличном виде. Ф-ла, диапазон и шаг приложены в картинке. (курсивом показана искомая таблица и искомый ответ, который, вместе с таблицей нужно вывести на монитор). P.S. приложена в фотка страницы с заданием. http://foto.rambler.ru/public/mdr-335/_ ... to-web.jpg Спасибо.
  subarik

Всем,всем добрый вечер!Передо мной встала такая делема: в универе задали написать курсовую по информатике это две задачи на Паскале,сказале что все мол делать в ДОсе
,сам я плохо знаю язык программирования :weep: требуется помошь добрых людей,так как эта курсовая является еще и допуском к экзамену по информатике на летней сессии :( ,вот 1 ая задача Создать массив из 10 вещественных чисел,значение массива ввести с клавиатуры,найти максимальное число и вывести на экран результат.
и 2ая задача Написать программу для решения квадратного уравнения,необходимо вести значения А,В,С и вывести Х1 и х2.
Обращаюсь к конференции оверклокерс,потому что знаю что сдесь отзывчивые люди,которые всегда помогут!Пожайлуста помогите кто чем сможет!Заранее огромное спасибо!:roll:
  Lord_of_Darkness

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
subarik
у меня бы такие курсовые были :tooth:

Код:
const
  ArrayLen = 10;
var
  A : array [1..ArrayLen] of real;
  i : integer;
  max : real;
begin
  for i:=1 to ArrayLen do
  begin
    write('Введите A[',i,']');
    readln(A[i]);
    if i = 1 then max := A[i]
    else if max < A[i] then max := A[i];
  end;
  write('Максимальное число во введенном массиве: ',max);
  readln;
end.


Код:
var
  a, b, c, d : real;
begin
  write('a = ');
  readln(a);
  write('a = ');
  readln(a);
  write('a = ');
  readln(a);
 
  d := b*b - 4*a*c;
  if d < 0 then
    write('Нет решений.')
  else
  begin
     if a = 0 then
        write('x = ', (-c/b));
     else
     begin
       writeln('x1 = ',(-b-sqrt(d))/(2a));
       writeln('x1 = ',(-b+sqrt(d))/(2a));
     end;
  end;
  readln;
end.

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

  subarik

Спасибо огромное Lord of Darkness!!!Серьезно такие вот курсовые нынче!))
  R520

Member
Статус: Не в сети
Регистрация: 28.08.2005
Добрый вечер всем! В универе по программированию задали сделать три задания, за допуск к зачетам. Решил обратиться к вам за помощью.

1)Дан массив чисел m X m. Вводится произвольный массив чисел k X k. Известно, что k существенно меньше чем m. Определить, сколько раз второй массив встречается в первом.

2)Дана непустая последовательность различных натуральных чисел за которыми следует 0. Определить порядковый номер наименьшего из них.

3)Дана строка символов S. Подсчитать сколько раз среди данных символов встречается буква X.

Буду очень признателен если кто нибудь может помочь в решении данных задач :hi:

_________________
Неумение жить в настоящем, большая помеха для будущего.

  Lord_of_Darkness

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
R520
штатные телепаты в отпуске. Pascal, C, Basic, Fortran, Python, знаете сколько еще перечислять можно? Это как попросить "переведите текст на иностранный язык".

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

  R520

Member
Статус: Не в сети
Регистрация: 28.08.2005
Черт, самое главное забыл... TurboPascal.

_________________
Неумение жить в настоящем, большая помеха для будущего.

  Primax

Member
Статус: Не в сети
Регистрация: 15.05.2006
R520 писал(а):
3)Дана строка символов S. Подсчитать сколько раз среди данных символов встречается буква X.

ну это вообще элементарно
char str[50];
str = "asdXasdasX";
int count = 0;
for ( int i =0; i < 50; i ++ )
{
if ( str[i] == 'X' )
count ++;
}

это на С++, переделай на Паскаль )
  Lord_of_Darkness

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
R520

1)Дан массив чисел m X m. Вводится произвольный массив чисел k X k. Известно, что k существенно меньше чем m. Определить, сколько раз второй массив встречается в первом.

Код:
const
  m = 10;
  k = 2;

  rnd = 2;

var
  A : array [1..m, 1..m] of integer;
  B : array [1..k, 1..k] of integer;
  i, j, l, n, counter : integer;
  fl : boolean;
begin
  randomize;
  for i := 1 to m do
  begin
    for j := 1 to m do
    begin
      A[i,j] := random(rnd);
      write(A[i,j],' ');
    end;
    writeln;
  end;

  writeln;
  writeln;

  for i := 1 to k do
  begin
    for j := 1 to k do
    begin
      B[i,j] := random(rnd);
      write(B[i,j],' ');
    end;
    writeln;
  end;

  counter := 0;
  for i := 1 to m do
    for j := 1 to m do
    begin
      fl := true;
      for l := 1 to k do
        for n := 1 to k do
          if A[i+l-1,j+n-1] <> B[l,n] then
             fl := false;
      if fl then inc(counter);
    end;
  writeln;
  write('find ',counter,' coincidences.');
  readln;
end.


2)Дана непустая последовательность различных натуральных чисел за которыми следует 0. Определить порядковый номер наименьшего из них.

Код:
const
  arrlength = 10;
  rnd = 10;

var
  A : array [1..arrlength] of integer;
  i, min : integer;
begin
  randomize;
  min:=1;
  for i := 1 to arrlength do
  begin
    A[i] := random(rnd);
    write(A[i],' ');
    if A[i] < A[min] then min := i;
  end;
  writeln;
  write('index of minimal cell ', min);
  readln;
end.


3)Дана строка символов S. Подсчитать сколько раз среди данных символов встречается буква X.

Код:
const
  symb = 'x';
var
  str : string;
  i, counter : integer;
begin
  write('Input string: ');
  readln(str);
  counter := 0;
  for i:=1 to Length(str) do
    if str[i] = symb then
      inc(counter);
  write(symb,' repeats ', counter,' times');
  readln;
end.

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

  R520

Member
Статус: Не в сети
Регистрация: 28.08.2005
Lord_of_Darkness
Primax

Громадное спасибо за помощь! :beer:

_________________
Неумение жить в настоящем, большая помеха для будущего.

Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 938 • Страница 25 из 47 • <  1 ... 22  23  24  25  26  27  28 ... 47  >
-

Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

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

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan