Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Исправить код program P4; type school = record nm:integer; name: string; surname: string; god: integer; bukva:set of char= {Множество русских букв:} ; end; https://www.cyberforum.ru/ turbo-pascal/ thread1672294.html	В одномерном массиве определить количество соседств двух чисел одного знака и вывести на экран пары этих чисел Turbo Pascal Задан одномерный массив из 15 целых положительных и отрицательных чисел. Составить программу которая определяет количество соседств двух чисел одного знака и выводит на экран пары этих чисел
Turbo Pascal Найти среди элементов массива два элемента, модуль разности которых имеет наименьшее значение https://www.cyberforum.ru/ turbo-pascal/ thread1671629.html Дан массив X(215). Найти среди его элементов два элемента, модуль разности которых имеет наименьшее значение	Turbo Pascal Как нарисовать свиток https://www.cyberforum.ru/ turbo-pascal/ thread1671383.html Помогите
Turbo Pascal Удалить элемент последовательности, наиболее близкий по значению к максимальному в данной последовательности Задана последовательность А1,......А20), не содержащая одинаковых элементов. 1. Удалить элемент последовательности, наиболее близкий по значению к максимальному в данной последовательности. Под...	Turbo Pascal Вывести вторую и предпоследнюю строки файла https://www.cyberforum.ru/ turbo-pascal/ thread1671005.html Ввести вторую и предпоследнюю строки файла. Если в файле только одна строка, то выводить сообщения нет решения
Turbo Pascal Найти трёхзначные числа, делящиеся нацело на сумму своих цифр While Вывести на экран в строку через пробел такие трёхзначные числа, у которых само число делится на сумму цифр его. https://www.cyberforum.ru/ turbo-pascal/ thread1670914.html	Turbo Pascal Из текстового файла записать в файл целых чисел все числа кратные заданному K Добрый вечер! Помогите написать код на Паскале,.
Turbo Pascal Задана строка S, найти все слова заданной длины и вывести их на экран Помогите решить -написать код на Паскале.Пожалуйста. https://www.cyberforum.ru/ turbo-pascal/ thread1670706.html	*Turbo Pascal Написать программу выводящую на экран снежинку из символа ""** - Написать программу выводящую на экран снежинку из символа "*" (Через: Procedure/Function) https://www.cyberforum.ru/ turbo-pascal/ thread1670652.html
Определить число всевозможных "маршрутов" мячика с вершины на землю Turbo Pascal На вершине лесенки, содержащей N ступенек, находится мячик, который начинает прыгать по ним вниз, к основанию. Мячик может прыгнуть на следующую ступеньку, на ступеньку через одну или через 2. (То...	Turbo Pascal Создать иллюзию движения по дороге https://www.cyberforum.ru/ turbo-pascal/ thread1670073.html Слева от елочек (или справа неважно), должна появиться дорога(непринципиально какая), при этом должна быть иллюзия нашего движения( к примеру мы едем по дороге), а елочки изменяют свою высоту, (в...

iJustLife

0 / 0 / 0

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

Сообщений: 60

Составить процедуру для создания матрицы А - Turbo Pascal - Ответ 8811094

28.02.2016, 11:16. Показов 1333. Ответов 1

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

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

Как составить процедуру
Дан массив Х (8). Составить процедуру для создания матрицы А (8,8):
Название: latex.gif
Просмотров: 24

Размер: 1.1 Кб

Pascal

program array1;
uses
  crt;
const
  n=8;
var
  x:array[1..n] of LongInt;
  a:array[1..n,1..n] of LongInt;
  i,j:longint;
begin
  randomize;
  for i:=1 to n do
    begin
      x[i]:=i;
      write(x[i]:4)
    end;
  writeln;
  writeln;
  for j:=1 to n do
    begin
      for i:=1 to n do
        begin
          a[i,j]:=round(exp(j*ln(x[i])));
          write(a[i,j]:9)
        end;
      writeln;
    end;
  readln;
end.

Вернуться к обсуждению:
Составить процедуру для создания матрицы А Turbo Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

28.02.2016, 11:16

Готовые ответы и решения:

Составить процедуру для получения из квадратной матрицы A(n,n), n<=6 матрицы B(n,n-1) путем вычеркивания элементов главной диагонали исходной
Помогите пожалуйста составить процедуру для Паскаля: Составить процедуру для получения из...

Процедура (Составить процедуру для нахождения макс. элемента матрицы)
Помогите написать программку. Задание: Составить процедуру для нахождения макс. элемента...

Составить процедуру для нахождения индексов максимального элемента квадратной матрицы
помогите с задачей! Составить процедуру для нахождения индексов максимального элемента квадратной...

Составить процедуру и функцию для вычисления значений элементов матрицы по заданной формуле
Составить подпрограмму-процедуру и подпрограмму-функцию для вычисления значений элементов а ij...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

28.02.2016, 11:16

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

Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(m*n)
Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(m*n)...

Составить процедуру для вычисления суммы положительных элементов каждой строки матрицы
Составить процедуру для вычисления суммы положительных элементов каждой строки матрицы A(m*n)...

Написать процедуру создания типизированного файла из первых строк целочисленной матрицы
Процедура создания файла типизированного из первых строк целочисленный матриц 4-го порядка,...

Подскажите процедуру для создания таблицы умножения
Подскажите пожалуйста процедуру для создания таблицы умножения в VBA,и чтобы msgbox выдавал кол-во...

Наверх