В готовой программе необходимо разобраться

02.05.2010, 19:43. Показов 420. Ответов 0

Метки нет (Все метки)

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

есть уже работающая программа:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
const n=8;
 
var
  Form1: TForm1;
  a:array[1..n, 1..n] of real;
  b:array[1..n] of real;
  i,j:integer;
  x,S:real;
  Buf:real;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to n do
for j:=1 to n do
begin
if i>=2 then a[i,j]:=power((sqr(j)+3.2*i),3/2) else
a[i,j]:=0.17*i+sqrt(0.17*i+j);
StringGrid1.Cells[i,j]:= FloatToStr(RoundTo(a[i,j],-1));
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
for j:=1 to n do
 begin
  x:=a[3,j];
  a[3,j]:=a[7,j];
  a[7,j]:=x;
for i:=1 to n do
StringGrid2.Cells[i,j]:= FloatToStr(RoundTo(a[i,j],-1));
end;
for i:=1 to 8 do
begin
S:=0;
for j:=1 to 8 do
S:=S+a[j,i];
StringGrid3.Cells[1,i]:= FloatToStr(RoundTo(S/8,-1));
end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
for i:=1 to n do
begin
b[i]:=a[i,2];
StringGrid4.Cells[i,1]:= FloatToStr(RoundTo(b[i],-1));
end;
 
for i:=1 to n-1 do
begin
if b[i]>b[i+1] Then
begin
Buf:=b[i];
b[i]:=b[i+1];
b[i+1]:=Buf;
end;
StringGrid5.Cells[i,1]:= FloatToStr(RoundTo(b[i],-1));
end;
end;
 
end.

и сама программа:

при нажатии "Задание 1" - выводится Матрица А
"Задание 2" - считается среднее арифметическое и меняются 3 и 7 столбцы местами
"Задание 3" - выводится вектор Х и сразу же в этом векторе меняются значения по возрастанию

необходимо: задать все эти действия через процедуры. а уже потом по нажатию кнопок чтоб работали процедуры и выводилось все на форму.
Помогите пожалуйста

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

02.05.2010, 19:43

Ответы с готовыми решениями:

Не могу разобраться в назначении строк в готовой программе
Программа в пустом конструкторе создаёт что-то типо словаря, с поисковой строкой, кнопками с буквами для выборки. Не могли бы Вы...

Нужно разобраться и написать комментарии к небольшой уже готовой программе
Всех приветствую. У меня есть готовый код игры, мне нужно написать комментарии к основным функциям. Код состоит всего из 300 строк, я уже...

Необходимо разобраться в программе
Электронные часы - 2 Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов в диапазоне от 0...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

02.05.2010, 19:43

Помогаю со студенческими работами здесь

Необходимо разобраться в программе
Здравствуйте, есть большая программа, написана на С со вставками на ассемблере. Ассемблер не знаю почти никак, поэтому проблемно...

Необходимо разобраться в программе
упражнение из С.Прата глава 8 номер 4 #include <iostream> #include <cstring> using namespace std; struct stringly{ ...

Необходимо разобраться в программе
Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 2 секунды Ограничение по памяти:...

Необходимо разобраться в программе
В общем такая ситуация три последних текста не проходит программа написано превышен лимит памяти как избежать этого я уже некоторые...

Необходимо разобраться в программе
задача такая:Уравнение Решите в целых числах уравнение: √ax+b=c, (под корнем ) a, b, c – данные целые числа: найдите все...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

Наверх