Помогите исправить.

@Homjak · Регистрация: 03.10.2009

Студворк — интернет-сервис помощи студентам

Условие:
Даны действительные числа a1, …, a28, b1, …, b28. Члены последовательности c1, …, c29 связаны с членами данных последовательностей соотношениями
c[29]=0; c[29-i]=a[29-i]/(b[29-i] - c[29-i+1]) (i=1,2,…28). Получить c1,…, c29.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program lab2;
var a:array[1..28] of integer;
    b:array[1..28] of integer;
    c:array[1..29] of real;
    i:integer;
    g:integer;
begin
For g:=1 to 28 do 
begin 
Writeln('Vvedite a'); 
readln(a[g]); 
writeln('Vvedite massiv b'); 
readln(b[g]); 
end;
for i:=1 to 28 do c[29-i]:=(a[29-i]/b[29-i])-c[29-i+1]
writeln(c[i]);
readkey;
end.

Vourhey · 03.10.2009, 19:48

А где ты в цикле с выводишь? у тебя одна и та же конструкция: 29-i использвется четыре раза, ты слышал об оптимизации?

@MadMag · 03.10.2009, 20:08

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program olololo;
 
var
   a, b, c: array[1..29] of real;
   i, j: integer;
begin
writeln('Введите элементы массивов a и b: ');
For i:=1 to 28 do begin
  write('a[',i,'] = '); readln(a[i]);
  write('b[',i,'] = '); readln(b[i]);
end;
c[29]:=0;
For i:=29 downto 1 do begin
   c[i]:=a[i]/(b[i]-c[i+1];
end;
For i:=1 do 29 do write(c[i], ' ');
readln;
end.

@Homjak · 04.10.2009, 12:02 **[ТС]**

YeLLoW DucK,
Спасибо, чуть исправил и подправил под свои нужды =) спс

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника Номенклатура по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника Сотрудники по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	03.10.2009, 19:48
	А где ты в цикле с выводишь? у тебя одна и та же конструкция: 29-i использвется четыре раза, ты слышал об оптимизации? 0

@Homjak 6 / 5 / 2 Регистрация: 03.10.2009 Сообщений: 50
	04.10.2009, 12:02 [ТС]
	YeLLoW DucK, Спасибо, чуть исправил и подправил под свои нужды =) спс 0