Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 25.11.2013, 15:28   #1 (permalink)
AnSo
Новичок
 
Регистрация: 25.11.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Помогите с задачками

Привет всем , недавно начал заниматься программированием , ну как начал просто поступил на специальность где есть программирование , сначало всё было довольно легко , мне очень нравилось , но потом я вообще перестал понимать что нужно сделать в определённой задаче и как её решить. . Программирую в делфи , надеюсь что добрые люди этого форума помогут решить задачки , и пожалуйста с комментариями к коду , буду очень благодарен!

Вот собственно и сами задачи: 1.Задача на циклы,нужно сделать в 3 вариантах:1 цикл с предусловием , 2 цикл с постусловием , 3 цикл с параметром. ЗАДАЧА:Пользуясь реккурентной формулой для заданного с клавиатуры m , вычислить Ym , если известны Y0,Y1,Y2, а Yi вычисляется по формуле Yi=tg^2(Yi-3)+Yi-2; i=3,4,5,...,m.

2.Задача на массив .Дан одномерный массив А длинной М . Определить является ли он геометрической прогрессией.
AnSo вне форума   Ответить с цитированием

Старый 25.11.2013, 15:28
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Ознакомьтесь с этими топиками, наверняка тут есть ответ который вам нужен

Помогите с задачками. Паскаль
Помогите пожалуйста с четырьмя задачками
Помогите пожалуйста с задачками
Помогите с задачками плиз
Прошу помочь с задачками на массивы

Старый 25.11.2013, 15:38   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,287
Сказал(а) спасибо: 290
Поблагодарили 509 раз(а) в 167 сообщениях
Репутация: 92053
По умолчанию

Цитата:
Сообщение от AnSo Посмотреть сообщение
надеюсь что добрые люди этого форума помогут решить задачки
Могу предложить решение на Паскале, а уж с дельфийскими формами-обвесками разбирайтесь сами. Устроит? Если да, то приведите для отладки точные значения констант Y0, Y1 и Y2 в первой задаче.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 25.11.2013, 20:03   #3 (permalink)
Николай_С
Member
 
Аватар для Николай_С
 
Регистрация: 25.09.2012
Адрес: г.Дзержинск Нижегородской обл.
Сообщений: 21,267
Записей в дневнике: 7
Сказал(а) спасибо: 216
Поблагодарили 190 раз(а) в 60 сообщениях
Репутация: 78061
По умолчанию

А в чем проблема? С языком программирования или алгоритмами? Что конкретно не понятно?
Николай_С вне форума   Ответить с цитированием
Старый 26.11.2013, 01:15   #4 (permalink)
Gruvi
VIP user
 
Аватар для Gruvi
 
Регистрация: 10.03.2011
Сообщений: 766
Записей в дневнике: 1
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
По умолчанию

Цитата:
Сообщение от AnSo Посмотреть сообщение
Привет всем , недавно начал заниматься программированием , ну как начал просто поступил на специальность где есть программирование , сначало всё было довольно легко , мне очень нравилось , но потом я вообще перестал понимать что нужно сделать в определённой задаче и как её решить. . Программирую в делфи , надеюсь что добрые люди этого форума помогут решить задачки , и пожалуйста с комментариями к коду , буду очень благодарен!

Вот собственно и сами задачи: 1.Задача на циклы,нужно сделать в 3 вариантах:1 цикл с предусловием , 2 цикл с постусловием , 3 цикл с параметром. ЗАДАЧА:Пользуясь реккурентной формулой для заданного с клавиатуры m , вычислить Ym , если известны Y0,Y1,Y2, а Yi вычисляется по формуле Yi=tg^2(Yi-3)+Yi-2; i=3,4,5,...,m.

2.Задача на массив .Дан одномерный массив А длинной М . Определить является ли он геометрической прогрессией.
Еще нужна помощь???
Gruvi вне форума   Ответить с цитированием
Старый 26.11.2013, 17:57   #5 (permalink)
AnSo
Новичок
 
Регистрация: 25.11.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Проблема по большей части с языком программирования.
AnSo вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 26.11.2013, 18:02   #6 (permalink)
AnSo
Новичок
 
Регистрация: 25.11.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Могу предложить решение на Паскале, а уж с дельфийскими формами-обвесками разбирайтесь сами. Устроит? Если да, то приведите для отладки точные значения констант Y0, Y1 и Y2 в первой задаче.
Устроит и на паскале , в принципе можете любые значения вбивать , без разницы ...
AnSo вне форума   Ответить с цитированием
Старый 26.11.2013, 18:02   #7 (permalink)
AnSo
Новичок
 
Регистрация: 25.11.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Gruvi Посмотреть сообщение
Еще нужна помощь???
Да , НУЖНА...
AnSo вне форума   Ответить с цитированием
Старый 26.11.2013, 18:04   #8 (permalink)
AnSo
Новичок
 
Регистрация: 25.11.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Николай_С Посмотреть сообщение
А в чем проблема? С языком программирования или алгоритмами? Что конкретно не понятно?
Конкретно непонятно как запрограммировать на языке , с алгоритмами и составлением блок схем всё нормально.
AnSo вне форума   Ответить с цитированием
Старый 26.11.2013, 20:18   #9 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,287
Сказал(а) спасибо: 290
Поблагодарили 509 раз(а) в 167 сообщениях
Репутация: 92053
По умолчанию

Цитата:
Сообщение от AnSo Посмотреть сообщение
Устроит и на паскале , в принципе можете любые значения вбивать , без разницы ...
Ну, ежели устроит, то первая задачка это, например, так:
Код:
Const
 Y0=0.3;
 Y1=0.2;
 Y2=0.1;

Function Tg2(x:real):real;
begin
 Tg2:=Sqr(Sin(x)/Cos(x));
end;

Var
 m,i,j:byte;
 Y:Array[1..4] of real;

Begin
 Y[2]:=Y0;
 Y[3]:=Y1;
 Y[4]:=Y2;
 Write('m= ');
 Readln(m);
 for i:=3 to m do
  begin
   for j:=2 to 4 do Y[j-1]:=Y[j];
   Y[4]:=Tg2(Y[1])+Y[2];
  end;
 Writeln('Result: ',Y[4]);
 Y[2]:=Y0;
 Y[3]:=Y1;
 Y[4]:=Y2;
 i:=3;
 While i<=m do
  begin
   for j:=2 to 4 do Y[j-1]:=Y[j];
   Y[4]:=Tg2(Y[1])+Y[2];
   Inc(i);
  end;
 Writeln('Result: ',Y[4]);
 Y[2]:=Y0;
 Y[3]:=Y1;
 Y[4]:=Y2;
 i:=2;
 Repeat
  Inc(i);
  for j:=2 to 4 do Y[j-1]:=Y[j];
  Y[4]:=Tg2(Y[1])+Y[2];
 Until i=m;
 Writeln('Result: ',Y[4]);
 Readln
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 26.11.2013, 20:40   #10 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,287
Сказал(а) спасибо: 290
Поблагодарили 509 раз(а) в 167 сообщениях
Репутация: 92053
По умолчанию

А так - вторая:
Код:
Var
 M,i,p,r:byte;
 A:Array[1..255] of Word;
 q:real;
Begin
 Write('M= ');
 Readln(M);
 r:=1;
 for i:=1 to M do
  begin
   Write('A[',i,']= ');
   Readln(A[i]);
   if A[i]=0 then r:=0;
  end;
 If r=1 then
  begin
   q:=A[2]/A[1];
   p:=0;
   i:=3;
   Repeat
    if A[i]/A[i-1]<>q then p:=1;
    Inc(i);
   Until (p=1) or (i=M);
   If p=1 then writeln('No!') else writeln('Yes!');
  end
 else
  writeln('No!');
 Readln
End.
Пояснение: проверяется наличие нулевых членов во вводимом массиве (в геометрической прогрессии их быть не может). Это флажок r.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

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

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




Часовой пояс GMT +4, время: 05:20.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.