Вычислить значение функции и записать в массив

@artysed · Регистрация: 02.02.2016

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

Здравствуйте. Помогите, пожалуйста!

Задача:
Вычислить значение функции y=x², х изменяется в диапозоне -4..4 с шагом 1. Значение функции занести в одномерный массив.

Начал делать, но что-то пошло не так:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
Type
  p=array of real;
Var
  a:p; i,m,kod,x:integer;
begin
  setlength(a,10);
  i:=0;
  for i:=low(a) to high(a) do
  begin
  a[i]:=strtofloat(stringgrid1.cells[i,0]);
  end;
  x:=-4;
  while i<=8 do;
begin
a[i]:=sqr(x);
  inc(i);
  inc(x);
  end;
for i:=0 to 8 do
begin
  stringgrid1.cells[i,0]:=floattostr(a[i]);
  end;
end;

@Puporev · 22.10.2016, 12:29

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var  a:array of integer;
     x:integer;
begin
setlength(a,2*4+1);
for x:=-4 to 4 do
 begin
  a[x+4]:=x*x;
  stringgrid1.cells[x+4,0]:=inttostr(a[x+4]);
 end;
end;

@artysed · 22.10.2016, 12:46 **[ТС]**

Спасибо С:

Новые блоги и статьи
Создание макробота, как способа экономии времени и варианта ИИ. Hrethgir 28.01.2025 Чисто теоретически, создание ИИ на ПК можно разделить на части. Создать бота отвечающего за железо (эмулирование вкл, выкл, мышь, клавиатура), другой бот осуществляет распознавание изображений,. . .	[Golang] 121. Best Time to Buy and Sell Stock alhaos 28.01.2025 В этой задаче мы получаем слайс целых чисел, которые означают цену акции в разные моменты времени, и должны вернуть максимально возможную прибыль от купли продажи акции. / / . . .	Проектирование и моделирование hw_wired 28.01.2025 Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .	Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .
Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .	Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .

@artysed 0 / 0 / 0 Регистрация: 02.02.2016 Сообщений: 3
	22.10.2016, 12:46 [ТС]	3
	Спасибо С: 0