Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 13.12.2018
Сообщений: 16
1

Массив в Turbo Pascal

21.12.2018, 15:58. Показов 361. Ответов 1
Метки нет (Все метки)

Здравствуйте, прошу помочь мне. Задачку задали мне, и не могу понять как её решить. Собственно вот она:
Задано массив X[1:9]. Заполнить массив A[6:9] за следующим правилом: https://www.cyberforum.ru/cgi-bin/latex.cgi?{A}_{i,j}={x}^{j}_{i}
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2018, 15:58
Ответы с готовыми решениями:

Список слов распечатать в алфавитном порядке. В Turbo Pascal или Pascal ABC
Дана непустая последовательность слов, в каждом из которых содержится от 1 до 6 заглавных латинских...

Из множества выбрать три различные точки по условию -из Turbo Pascal во Free Pascal
Даны 2 множества точек на плоскости. Выбрать три различные точки первого множества так, чтобы круг...

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record ...

Переписать программу с Pascal ABC в Turbo pascal
Здравствуйте помогите пожалуйста_) Если не получится то можно задачу решить как-то по другому....

__________________
1
Модератор
63356 / 47058 / 32437
Регистрация: 18.05.2008
Сообщений: 114,067
21.12.2018, 17:24 2
i=6, а массив x[1..9], следовательно не xij, a xji

Добавлено через 5 минут
Pascal
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
uses crt;
const m=6;
      n=9;
var x:array[1..n] of real;
    a:array[1..m,1..n] of real;
    p:real;
    i,j,k:byte;
begin
clrscr;
randomize;
writeln('Массив Х');
for i:=1 to n do
 begin
  x[i]:=5*random;
  write(x[i]:5:1);
 end;
writeln;
writeln('Массив А');
for i:=1 to m do
 begin
 for j:=1 to n do
   begin
    a[i,j]:=1;
    for k:=1 to i do
    a[i,j]:=a[i,j]*x[j];
    write(a[i,j]:7:1);
   end;
  writeln;
 end;
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2018, 17:24

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Переписать программу с Pascal ABC в Turbo pascal
Нужно вот это. Переписать в турбо паскаль. Буду очень благодарен. uses graphABC; begin...

Непонятная ошибка. TMT Pascal выдает: expected AND or statement, а turbo pascal просит поставить ";"
Program board; Uses CRT; Var x, count, hod: integer; y: string; Begin Writeln ('vvedite...

Отличие Pascal от Turbo pascal
Помогите пожалуйста, начинающему программисту. Есть смысл начинать изучение паскаля с турбопаскаля?...

Из C++ в Turbo Pascal
Здравствуйте. Переведите пожалуйста код с C++ на Turbo Pascal. Заранее спасибо. #include...

Turbo Pascal

Turbo Pascal
Дано натуральне число N. Серед чисел 1, ..., N знайти такі числа, запис яких співпадає з останніми...


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

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

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