Программисты сюда!

avatar HappySanic

216

7

HappySanic

Пользователь

Регистрация: 01.08.2016

Сообщения: 552

Рейтинг: 519

HappySanic

Регистрация: 01.08.2016

Сообщения: 552

Рейтинг: 519

img

Вообщем нужно сделать 1/10 олимп. задание, а логики на него не хватает. Задание на языке pascal.

Условие:

Удвоить значение елементов массива A[1..N]

 

То до чего дошёл сам:

For i:=1 to N do A(i):= A(i)*2; // И ещё скорее всего надо будет использовать count.

 

Хелпаните кто может.

Essavian

Пользователь

Регистрация: 24.01.2015

Сообщения: 8528

Рейтинг: 5444

Essavian

Регистрация: 24.01.2015

Сообщения: 8528

Рейтинг: 5444

img

For i:=1 to N do A(i):= A(i)*2;

тут не ставятся чот квадратные скобки

HappySanic

Пользователь

Регистрация: 01.08.2016

Сообщения: 552

Рейтинг: 519

HappySanic

Регистрация: 01.08.2016

Сообщения: 552

Рейтинг: 519

img
Essavian сказал(а):

For i:=1 to N do A(i):= A(i)*2;

тут не ставятся чот квадратные скобки

Нажмите, чтобы раскрыть...

Спасибо что поправил, что-то форум не хочет воспринимать данные в квадратных скобках

PiGRusH><

Пользователь

Регистрация: 08.10.2015

Сообщения: 1136

Рейтинг: 1273

PiGRusH><

Регистрация: 08.10.2015

Сообщения: 1136

Рейтинг: 1273

Вот ета олимпиадное? Чет в глориус, вот это олипиадная задача , а у тебя даунская школьная псевдозадачка, после темы массивов 

Onyix

Пользователь

Регистрация: 30.05.2013

Сообщения: 13604

Рейтинг: 4344

Onyix

Регистрация: 30.05.2013

Сообщения: 13604

Рейтинг: 4344

тыж решил ее, не?

HappySanic

Пользователь

Регистрация: 01.08.2016

Сообщения: 552

Рейтинг: 519

HappySanic

Регистрация: 01.08.2016

Сообщения: 552

Рейтинг: 519

img
Onyix сказал(а):

тыж решил ее, не?

Нажмите, чтобы раскрыть...

В том то и дело что нет, всё до чего дошёл:

procedure TForm1.Button1Click(senderTObject);

var A: array [1..N] of real; x, i real

begin

For i:=1 to N do A(i) :=A(i)*2; // после этого ступор

дуфник

Пользователь

Регистрация: 08.04.2013

Сообщения: 4032

Рейтинг: 3029

дуфник

Регистрация: 08.04.2013

Сообщения: 4032

Рейтинг: 3029

оффтопчик, на жсе будет так

 

 [1, 2, 3, 4, 5].map(n => n * 2); // [2, 4, 6, 8, 10]

PiGRusH><

Пользователь

Регистрация: 08.10.2015

Сообщения: 1136

Рейтинг: 1273

PiGRusH><

Регистрация: 08.10.2015

Сообщения: 1136

Рейтинг: 1273

HappySanic сказал(а):

В том то и дело что нет, всё до чего дошёл:

procedure TForm1.Button1Click(senderTObject);

var A: array [1..N] of real; x, i real

begin

For i:=1 to N do A(i) :=A(i)*2; // после этого ступор

Нажмите, чтобы раскрыть...

Исправь A(i)*2 на A(i)*A(i) и будет счастье