Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Дарья_Дерр
0 / 0 / 1
Регистрация: 27.10.2013
Сообщений: 59
1

Дано натуральное n, действительные

28.01.2015, 22:55. Просмотров 272. Ответов 2
Метки нет (Все метки)

В чем ошибка?

Дано натуральное n, действительные а1 ,а2 ,...,аn . Получить: а1а2 + а2 а3, ... , аn-1аn.

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
 var i, n, sum: real;
begin
 i:=strtofloat(form1.Edit1.Text);
  for i:=2 to n do sum:=sum+a[i]*a[i-1];
     form1.Label2.caption=floattostr (sum);
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.01.2015, 22:55
Ответы с готовыми решениями:

Дано натуральное число н и последовательность действительных чисел а1, а2an
Дано натуральное число н и последовательность действительных чисел а1, а2, ...

Дано натуральное число n. Поменять порядок цифр числа на обратный
пожааалуйста=)

Дано натуральное число. Верно ли, что в данном числе нет заданной цифры?
Дали задание: Дано натуральное число. Верно ли, что в данном числе нет данной...

даны натуральное n, действительные числа а1,...,аn. В последовательности а1,...,аn определить число соседств: а)двух положительных чисел
проверь так правельно??? unit Unit1; interface uses Windows,...

дано натуральное число n...
пожалусто,помогите решить задачку...очень надо ваша помощ!!!

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26130 / 17523 / 6949
Регистрация: 22.10.2011
Сообщений: 30,859
Записей в блоге: 6
28.01.2015, 23:09 2
Pascal
1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
 var i, n:integer; sum: real;
begin
 sum := 0; // Обязательно...
 n:=strtoint(form1.Edit1.Text); // ну и тут поправить
  for i:=2 to n do sum:=sum+a[i]*a[i-1];
     form1.Label2.caption=floattostr (sum);
end;
0
FIL
Модератор
3419 / 2555 / 726
Регистрация: 19.09.2012
Сообщений: 7,923
28.01.2015, 23:17 3
Переменные цикла должны быть исчисляемого типа.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.01.2015, 23:17

Дано натуральное число. Выяснить, является ли оно простым
Помогите плз. Дано натуральное число. Выяснить, является ли оно простым...

Дано натуральное число. Определить номер цифры 3 в нем, считая от конца числа.
Дано натуральное число. Определить номер цифры 3 в нем, считая от конца числа....

Даны действительные числа?????
Помогите решить..........!!!!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru