25.11.2013, 15:28 | #1 (permalink) |
Новичок
Регистрация: 25.11.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с задачками
Вот собственно и сами задачи: 1.Задача на циклы,нужно сделать в 3 вариантах:1 цикл с предусловием , 2 цикл с постусловием , 3 цикл с параметром. ЗАДАЧА:Пользуясь реккурентной формулой для заданного с клавиатуры m , вычислить Ym , если известны Y0,Y1,Y2, а Yi вычисляется по формуле Yi=tg^2(Yi-3)+Yi-2; i=3,4,5,...,m. 2.Задача на массив .Дан одномерный массив А длинной М . Определить является ли он геометрической прогрессией. |
25.11.2013, 15:28 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ознакомьтесь с этими топиками, наверняка тут есть ответ который вам нужен Помогите с задачками. Паскаль Помогите пожалуйста с четырьмя задачками Помогите пожалуйста с задачками Помогите с задачками плиз Прошу помочь с задачками на массивы |
25.11.2013, 20:03 | #3 (permalink) |
Радиоинженер
Регистрация: 25.09.2012
Адрес: г.Дзержинск Нижегородской обл.
Сообщений: 25,301
Записей в дневнике: 7
Сказал(а) спасибо: 292
Поблагодарили 219 раз(а) в 70 сообщениях
Репутация: 110185
|
А в чем проблема? С языком программирования или алгоритмами? Что конкретно не понятно?
|
26.11.2013, 01:15 | #4 (permalink) | |
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
Цитата:
|
|
26.11.2013, 17:57 | #5 (permalink) |
Новичок
Регистрация: 25.11.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Проблема по большей части с языком программирования.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
26.11.2013, 20:18 | #9 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
26.11.2013, 20:40 | #10 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
А так - вторая:
Код:
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|