Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Нарезка звукового файла https://www.cyberforum.ru/ pascalabc/ thread1811499.html Всем добра... Для выполнения одной задачи на Pascal мне нужно вырезать кусок из песни в диапазоне выбранных секунд "11-30" - "обрезать песню", способен ли на это Sound, если не способен, то вообще можно ли Pascal ABC работать с ауди:	Pascal ABC Вычислить выражение С разветвленной структурой y=\begin{cases}1.5x-\lg 1.5x & \text{, if } 1.5x<1 \\ 1 & \text{, if } 1.5x=1 \\ 1.5x-\lg 1.5x & \text{, if } 1.5x>1 \end{cases} Интервал: , шаг \Delta x=0.1
Pascal ABC Процедура вывода квадрата в горизонтальной плоскости https://www.cyberforum.ru/ pascalabc/ thread1811395.html Оформить процедуру вывода квадрата в горизонтальной плоскости.	Pascal ABC Выполнить циклический сдвиг элементов массива вправо https://www.cyberforum.ru/ pascalabc/ thread1811377.html Заполнить массив случайными числами и выполнить циклический сдвиг элементов массива вправо на 1 элемент.
Pascal ABC Заполнить массив случайными числами и отобрать в другой массив все чётные отрицательные числа Заполнить массив случайными числами в интервале и отобрать в другой массив все чётные отрицательные числа.	Pascal ABC Дан целочисленный массив А[4][3]. Найти количество элементов, кратных 4 и меньших 20 Дан целочисленный массив А. Найти количество элементов, кратных 4 и меньших 20 .Результат вывести на экран. https://www.cyberforum.ru/ pascalabc/ thread1810982.html
Pascal ABC Составить графическую схему алгоритма и написать программу для вычисления значений переменной https://www.cyberforum.ru/ pascalabc/ thread1810823.html Составить графическую схему алгоритма и написать программу для вычисления значений переменной Y по указанной формуле. Вычислить Y для всех значений переменной X. Y=\begin{cases}\ln X & \text{, if } (x=5)\ or\ (x=75) \\ \frac{1}{X} & \text{, if } (x<-5)\ and\ x\neq -10 \\ X^2+2 & \text{, otherwise} \end{cases}\\\\X=1.68;\ X=50;\ X=-9.97 Даны три числа. Выбрать из них те, которые...	Циклический сдвиг элементов массива вправо на 1 элемент Pascal ABC заполнить массив случайными числами и выполнить циклический сдвиг элементов массива вправо на 1 элемент
Pascal ABC Написать блок-схему https://www.cyberforum.ru/ pascalabc/ thread1810213.html Помогите сделать блок схему.Заранее спасибо огромное. program lab4; uses crt; var x,xn,xk,dx,z:real; i:integer; begin clrscr; writeln ('Введите xn,xk,dx'); readln (xn,xk,dx); {вывод заголовка таблицы} writeln ('':6,'funktion z');	Pascal ABC Вывести слово 'yes', если число является степенью 2, иначе вывести 'no' вводит натуральное число n выводит слово 'yes' если число является степенью 2 иначе 'no' https://www.cyberforum.ru/ pascalabc/ thread1810166.html
Ввести натуральное число и определить сумму натуральных чисел Pascal ABC вводит натуральное число и определяет сумму натуральных чисел	Pascal ABC Перевести с с++ на паскаль #include "stdafx.h" #include <iostream> #include <windows.h> using namespace std; static const int N = 10000; int main() { SetConsoleCP(1251); SetConsoleOutputCP(1251); https://www.cyberforum.ru/ pascalabc/ thread1810148.html

Puporev

Почетный модератор

64305 / 47602 / 32742

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

Сообщений: 115,182

23.09.2016, 10:10

Получить действительную квадратную матрицу порядка 8, элементами которой расположенные по заданной схеме - Pascal ABC - Ответ 9569537

23.09.2016, 10:10. Показов 3345. Ответов 1

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

Сообщение было отмечено Памирыч как решение

Решение

Pascal

const n=8;
var a:array[1..n*n] of real;
    b:array[1..n,1..n] of real;
    i,j,k:integer;
begin
randomize;
writeln('Последовательность А');
for i:=1 to n*n do
 begin
  a[i]:=10*random;
  write(a[i]:5:2);
 end;
writeln;
k:=0;
i:=0;
repeat
inc(i);
if odd(i) then //если строка нечетная
for j:=n downto 1 do//идем с конца
 begin
  inc(k);
  b[i,j]:=a[k]
 end
else //если четная строка
for j:=1 to n do
 begin
  inc(k);
  b[i,j]:=a[k];
 end;
until k=n*n;
writeln('Матрица змейкой сверху вниз, справа налево');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:5:2);
  writeln;
 end;
end.

Вернуться к обсуждению:
Получить действительную квадратную матрицу порядка 8, элементами которой расположенные по заданной схеме Pascal ABC

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

23.09.2016, 10:10

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

Получить действительную квадратную матрицу, элементами которой являются числа на диагоналях, параллельных побочной
691 Даны действительные числа a1,.,a64. Получить действительную квадратную матрицу порядка 8,...

Получить действительную квадратную матрицу B порядка n, элементами которой являются числа расположенные в ней по схеме
см. вложения

Получить действительную квадратную матрицу порядка 8, элементам которой являются числа от А1 до А64,расположенные в ней по схеме
Даны числа А1 до А64.Числа генерировать в диапазоне от 1 до 64 по закону равномерного...

Получить действительную матрицу порядка 8, элементами которой являются числа а1.а64 расположенные по схеме
Даны действительные числа а1..а64. Получить действительную матрицу порядка 8, элементами которой...

	23.09.2016, 10:10

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

23.09.2016, 10:10

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

Получить квадратную матрицу порядка n, элементами которой являются числа b1,...,bn^n., расположенные по схеме
1) Дано последовательность чисел b1,...bn . Получить квадратную матрицу порядка n, элементами...

Получить квадратную матрицу порядка 9, элементами которой являются числа расположенные по схеме
Дан одномерный массив действительных чисел a1, ..., a81. Получить квадратную матрицу порядка 9,...

Получить действительную матрицу, элементами которой являются числа, расположенные в ней по схеме
Задание: Даны действительные числа а1, ..., а64. Получить действительную матрицу порядка 8,...

Получить действительную квадратную матрицу порядка 8, элементами которой являются числа a1,., a64
Нужно заполнить матрицу "змейкой", начиная с правого верхнего угла. Код уже есть, но постоянно...

Новые блоги и статьи
Как преобразовать список списков в простой список в Python bytestream 22.01.2025 При работе с Python разработчики часто сталкиваются с необходимостью обработки сложных структур данных, среди которых особое место занимают вложенные списки. Эти структуры представляют собой списки,. . .	Что такое GUID / UUID и как их создать bytestream 22.01.2025 В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .	Как добавить пустую директорию в репозиторий Git bytestream 22.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с ситуацией, когда необходимо сохранить пустую директорию в репозитории. Данная задача может показаться простой на первый. . .	Как валидировать адрес email в JavaScript bytestream 22.01.2025 JavaScript, как основной язык веб-разработки, предоставляет разработчикам множество инструментов для реализации эффективной валидации email-адресов. От простых встроенных решений до сложных. . .	Как заменить все вхождения подстроки в JavaScript bytestream 22.01.2025 Строки в JavaScript представляют собой неизменяемые последовательности символов, что делает их обработку особенно интересной с точки зрения оптимизации и выбора правильного подхода к решению задач. . . .	Управление версиями пакетов в Node.js. В чем разница между тильдой (~) и кареткой (^) в package.json bytestream 22.01.2025 В современной разработке программного обеспечения управление версиями пакетов играет ключевую роль в обеспечении стабильности и надежности проектов. Node. js, как одна из самых популярных платформ для. . .
Аутентификация на сайте с помощью формы bytestream 21.01.2025 В современном цифровом мире безопасная аутентификация становится краеугольным камнем защиты веб-приложений и пользовательских данных. Каждый день миллионы людей используют различные онлайн-сервисы,. . .	Как получить индекс в цикле for в Python bytestream 21.01.2025 При работе с коллекциями данных в Python часто возникает необходимость не только получить доступ к элементам последовательности, но и знать их позицию в процессе итерации. Индексация в циклах. . .	Как определить адрес, из которого локальный репозиторий Git был клонирован bytestream 21.01.2025 В современной разработке программного обеспечения система контроля версий Git стала неотъемлемой частью рабочего процесса. При работе с Git разработчики часто сталкиваются с необходимостью. . .	Какая разница между операторами == и === в сравнениях в JavaScript bytestream 21.01.2025 В мире веб-разработки JavaScript занимает особое место как динамический язык программирования, предоставляющий разработчикам широкий набор инструментов для создания интерактивных веб-приложений. . . .	Из чего и как собрать свой домашний кинотеатр bt_guru 21.01.2025 Создание домашнего кинотеатра: от идеи до реализации В современном мире домашний кинотеатр стал неотъемлемой частью комфортного жилого пространства, предоставляя возможность наслаждаться. . .	Ошибки стиральных машин bt_guru 21.01.2025 Современные стиральные машины представляют собой сложные электронные устройства, оснащенные множеством датчиков и систем контроля. Они способны самостоятельно определять вес загруженного белья,. . .

Наверх