Форум программистов, компьютерный форум, киберфорум
Наши страницы

Lazarus

Войти
Регистрация
Восстановить пароль
 
Дарья_Дерр
0 / 0 / 0
Регистрация: 27.10.2013
Сообщений: 59
#1

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

28.01.2015, 22:55. Просмотров 262. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дано натуральное n, действительные (Lazarus):

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

Дано натуральное число. Верно ли, что в данном числе нет заданной цифры? - Lazarus
Дали задание: Дано натуральное число. Верно ли, что в данном числе нет данной цифры А. А задается не подскажите как записать это...

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

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

Дано натуральное число. Выяснить, является ли оно простым - Delphi
Помогите плз. Дано натуральное число. Выяснить, является ли оно простым (простым называется натуральное число, большее 1, не имеющее...

Дано натуральное число. Определить номер цифры 3 в нем, считая от конца числа. - Delphi
Дано натуральное число. Определить номер цифры 3 в нем, считая от конца числа. Если такой цифры нет, ответом должно быть число 0, если...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25533 / 17086 / 5416
Регистрация: 22.10.2011
Сообщений: 30,252
Записей в блоге: 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
Модератор
3408 / 2546 / 490
Регистрация: 19.09.2012
Сообщений: 7,906
28.01.2015, 23:17 #3
Переменные цикла должны быть исчисляемого типа.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.01.2015, 23:17
Привет! Вот еще темы с ответами:

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

Даны действительные числа x, y Получить???? - Delphi
Помогите пожалусто решить задание....буду благодарна!!!

Дано натуральное n, действительные а1, а2,., ап. Вычислить - PascalABC.NET
Дано натуральное n, действительные а1, а2,., ап. Вычислить в паскале АВС

Дано натуральное n и действительные a1, a2,..., an. Вычислить сумму - Turbo Pascal
Помогите пожалуйста решить задания. 3) Дано натуральное n и действительные a1, a2,..., an. Вычислить (рис.3)


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

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

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