Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Pascal Оператор WriteLn Процедура вывода WriteLn. Курсор. ПРОГРАММА ЧТО ВИДИМ НА ЭКРАНЕ BEGIN Write ( 'Ама' ); Write ( 'зонка' ) END. Амазонка BEGIN Write ( 'Ама' ); WriteLn( 'зонка' ) END. Амазонка BEGIN WriteLn( 'Ама' ); Write ( 'зонка' ) END. Ама зонка BEGIN WriteLn( 'Ама'... https://www.cyberforum.ru/ pascal/ thread1569392.html Pascal Используя функцию RANDOM, запишите правильно операторы
Используя оператор RANDOM запишите правильно команды: a) Элемент массива А с номером 7 находится в интервале ______________ b) Элемент массива D с номером c находится в интервале _____________ c) Элемент массива E с номером i находится в интервале _____________ d) Элемент с номером s массива К находится в интервале ____________ e) Элемент с номером к массива С находится в интервале ...
Pascal Записать циклы для решения Записать циклы для решения следующей задачи: 1. Ввод 112 элементов массива Вс клавиатуры. Параметром цикла является переменная h. Нумерация начинается с 1. _______________________________________________________________ 2. Ввод 96 элементов массива Ав столбец. Параметром цикла является переменная h. Нумерация начинается с 1. _______________________________________________________________ 3.... https://www.cyberforum.ru/ pascal/ thread1569302.html Pascal Составьте блок-схему по готовой программе составить блок схему)))помогите IF a=b THEN z:=a+b ELSE Begin IF a>0 THEN https://www.cyberforum.ru/ pascal/ thread1569286.html
Случайные массивы Pascal
Даны два случайных массива одного размера, создать третий массив, значения которого - это сумма значения двух предыдущих (a+b=c) Заранее огромное спасибо :) 		Pascal Массив целых чисел Дан массив целых чисел. Найти: Номер первого нечетного элемента. Если нечетных элементов в массиве нет, то должно быть напечатано соответствующее сообщение. Заранее огромное спасибо :) https://www.cyberforum.ru/ pascal/ thread1569050.html
Pascal Составить функцию, которая в одномерном массиве D определяет первый от конца положительный элемент Составить функцию, которая в одномерном массиве D определяет первый от конца положительный элемент. В случае нахождения положительного числа функция возвращает найденное число, в противном случае возвращает -1. С помощью функции определить в каждой строке матрицы H(l,m), l≤12, m≤14, первые от конца положительные элементы, которые записать без пропусков в массив P. Полученный массив P... https://www.cyberforum.ru/ pascal/ thread1568808.html Составить процедуру, которая удаляет из матрицы строки, целиком состоящие из нулевых элементов Pascal
Составить процедуру, которая удаляет из матрицы строки, целиком состоящие из нулевых элементов, а затем определяет минимальный и максимальный по абсолютной величине элементы преобразованной матрицы. Использовать составленную процедуру для матрицы B(l,m), l≤13, m≤14.
Pascal Программа должна вывести YES, если школьник дал верный ответ и NO в противном случае В условии одной из задач на этом сайте написано: “Если данное четырехзначное число является симметричным, выведите 1, иначе выведите любое другое целое число”. Для проверки задачи используются заранее подготовленные примеры и правильные ответ на них Школьнику кажется, что он решил эту задачу, но тестирующая система почему-то не принимает его решение. Школьник думает, что это происходит оттого,... https://www.cyberforum.ru/ pascal/ thread1568754.html Pascal Вставить переносы в строке. Символьная обработка https://www.cyberforum.ru/ pascal/ thread1568505.html
Сделать на паскале. Вставить во все слова текста символ переноса в позициях, где по правилам русского языка допустим перенос. Помогиииииииите:)
Pascal Длинные числа
Здравствуйте. Прошу помощи в специалистов, нужно решить задачу на длинные числа. Условие задачи: Даны три длинных числа a, b, c (a>b>c). Проверить, есть ли они сторонами треугольника. Возможно у кого то есть опыт работы с длинными числами? Заранее спасибо за помощь. 		Pascal Вычисление выражения Даны числа a и b, необходимо вычислить sqrt(b+sqrt(2b+sqrt(3b+ ... +sqrt((a-1)b+sqrt(ab))))))) \sqrt{b + \sqrt{2b + \sqrt{3b + ... + \sqrt{(a-1)b + \sqrt{ab}}}}} https://www.cyberforum.ru/ pascal/ thread1568406.html
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
02.11.2015, 19:51 0

Статический в динамический массив - Pascal - Ответ 8282272

02.11.2015, 19:51. Показов 1640. Ответов 3
Метки (Все метки)
Лучший ответ Сообщение было отмечено Xo6ut как решение

Решение

для FPC:
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

const
    convert: Array[Boolean] Of Byte = (1, 0);
var
    a: Array Of Array Of ShortInt;
    x: Array Of Boolean;
    i, j, n: Byte;
    pr: Extended;
begin
    repeat
        Write('Введите N: '); ReadLn(n);
    until (n > 0);
    pr := 1;
    SetLength(a, n, n); SetLength(x, n);
    for i := 0 to n - 1 do
    begin
        for j := 0 to n - 1 do
        begin
            a[i, j] := Random(31) - 15;
            Write(a[i, j]:4);
            pr := pr * a[i, j];
        end;
        WriteLn;
        x[i] := (a[i, i] < 0);
    end;
    Write('Полученный массив:');
    for i := 0 to n - 1 do
        Write(convert[x[i]]:2);
    WriteLn;
    Write('Произведение матрицы = ', pr:0:0);
end.
Добавлено через 1 минуту
по идее и под abc должон завестись. разве что с SetLength(array, n, m) проблема возникнет.

Вернуться к обсуждению:
Статический в динамический массив Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 02.11.2015, 19:51
Готовые ответы и решения:

Как преобразовать статический массив в динамический?
uses crt; const nmax=100; var a:array of integer; n,i,i1,k:byte; begin clrscr; randomize;...

Последовательность и статический массив
помогите пожалуйста . навалилось очень много заданий , и со всеми справиться не могу помогите с...

Заменить статический массив на динамический
program massiv; type mass=array of real; var m: mass; var i,x: integer; var min: real; begin...

Статический одномерный массив
Помогите пожалуйста написать программу на паскале.Заранее спасибо Есть 3 статических одномерных...

3
02.11.2015, 19:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 02.11.2015, 19:51
Помогаю со студенческими работами здесь

Изменить статический массив на динамический
Нужно сделать так, чтобы программа была написана через динамический массив Program A14_4; uses...

Динамический массив в статический
Есть метод, который принимает в качестве параметра статический массив типа double. В этот метод...

Статический и динамический массив
Помогите пожалуйста. Мучаюсь уже месяцю Даны статический и динамический массивы одинаковой...

Динамический и статический массив
Подскажите, в чем разница. Имеется статический массив, который просто задается: long mas = { 0 };...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru