Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Отделение и уточнение корней нелинейных уравнений. Метод половинного деления(Проб) Помогите исправить ошибку, пожалуйста. Определение и уточнение корней нелинейных уравнений. Уравнение: x3 + 3x2 - 8x - 3 = 0 Интервал: Точность: 10-3 https://www.cyberforum.ru/ pascalabc/ thread1822290.html Вычисление с заданной точностью суммы ряда Pascal ABC
Написать программу на паскале для вычисления с заданной точностью данную сумму (точность 2 знака после запятой вроде ) Я понимаю, что это наверное это очень легкое задание, но прошу у вас помощи потому что сам туплю и просто не понимаю как его делать. Всем спасибо заранее за решения :-)
Pascal ABC пересечение диапазонов не могу понять где ошибка,бьет-пересечение диапазонов оператора case. unit my_unit; interface function LTrim (st: string): string; {удаляет начальные пробелы} function Upper (st: string): string; {преобразует к верхнему регистру} implementation function LTrim (st: string): string; begin while (pos (' ', st)=1) and (length (st)>0) do delete (st, 1, 1); https://www.cyberforum.ru/ pascalabc/ thread1821850.html Pascal ABC доделать эту программу по блок схеме. На блок схеме продолжение. https://www.cyberforum.ru/ pascalabc/ thread1821683.html
Помогите пожалуйста доделать эту программу по блок схеме. На блок схеме продолжение. const m=5; sigma=1; lam=5; var y:array of real; aa,bb,R,summ:real; i:byte; begin
Pascal ABC Написать программу для вычисления значений функции и вывести исходные данные и результат
Написать программу для вычисления значения функции и осуществления вывода исходных данных. \begin{array}{|c|c|}\hline\prod_{k=1}^{N}a_k\text{ npu }a_k=\begin{cases}0 & \text{ npu } k\sqrt{k}\leq 5\\ k^2-k & \text{ npu } 5<k\sqrt{k}\leq 8\\ k^2-\sin \pi k^2 & \text{ npu } k\sqrt{k}>8 \end{cases} & N=62\\\hline \end{array}
Pascal ABC Нарисовать кота с использованием Arc https://www.cyberforum.ru/ pascalabc/ thread1821661.html
Помогите пожалуйста нарисовать кота примерно как на этом рисунке в большинстве использовать arc.
Pascal ABC Линейные однонаправленные списки https://www.cyberforum.ru/ pascalabc/ thread1821659.html
Здравствуйте! требуется помощь в написании программы Задание следующее: При формировании списков значения элементов задавать произвольно, каждый этап алгоритма выполнять в виде отдельной процедуры. Предусмотреть вывод на печать всех промежуточных результатов работы. Переместить отрицательные элементы списка List в его начало, положительные – в конец. В случае равных по абсолютной...
Pascal ABC Определить количество мест в каждом ряду
В зрительном зале m рядов , в каждом из которых n мест, информация о проданных билетах хранится в двумерном массиве, номера стро-номера рядов, номера столбцов-номера мест, есди билет продан, то этот элемент равен 1, иначе 0. Определить кол-во мест в каждом ряду, вывести номер ряда с наименьшим кол-вом свободных мест.это матрица, паскаль абс
Pascal ABC , сижу на лр и вообще не понимаю как сдлеать! https://www.cyberforum.ru/ pascalabc/ thread1821597.html
Заранее огромное спасибо! три номера под номером 12. вообще не понимаю как сделать =(
Pascal ABC Вычислить значения выражений https://www.cyberforum.ru/ pascalabc/ thread1821587.html
Разработать алгоритм решения задачи и написать программы на языках Си и Паскаль ( используя расчетные формулы и значения исходных данных a,b,x,c) f=\ln \left(a+x^2 \right)+\sin ^2 (x/b)\\\\z=\,e^{-cx}\,\frac{x+\sqrt{x+a}}{x-\sqrt{\left| x-b\right|}} a=10.2; b=9.2; x=2.2; c=0.5
Составление и вывод таблицы на экран Pascal ABC
Помогите с составление таблицы.Прога работает , но таблицу делает не понятную Х1 х2 и h каждый раз пишутся с новой строчки.Как сделать чтобы они только вверху были написаны?? program laba4; uses crt; var x1, x2,h, a, b, D:real; r:integer; begin a:=1.3;
Pascal ABC Найти количество вхождений второй строки в первую (без Pos) https://www.cyberforum.ru/ pascalabc/ thread1821425.html
Ввести с клавиатуры две строки. Известно, что первая строка длиннее второй и не превышает 255 символов. Вывести на экран количество вхождений второй строки в первую. Эти строки могут накладываться друг на друга. Запрещается пользоваться функцией POS.
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
09.10.2016, 13:02 0

В массиве найти произведение кратных трем элементов. - Pascal ABC - Ответ 9624587

09.10.2016, 13:02. Показов 1247. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 3451 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
    MIN = 1;
    MAX = 75;
var
    ar: Array[MIN..MAX] Of ShortInt;
    i: MIN..MAX;
    Result: Extended; //Double | Real
begin
    Randomize;
    Result := 1; Write('Array:');
    for i := MIN to MAX do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4);
        if (ar[i] mod 3 = 0)
        then
            Result := Result * ar[i];
    end;
    WriteLn; WriteLn('Answer: ', Result:0:0);
end.


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

В массиве найти произведение элементов кратных трем, после первого отритцательного
в массиве найти произведение элементов кратных трем, после первого отритцательного.

Найти произведение элементов массива, кратных трем
Имеется массив А из N произвольных чисел A (N) среди которых есть положительные, отрицательные и...

Найти сумму элементов массива, кратных трем, и произведение элементов с нечетными индексами
Дан массив Ненулевых целых чисел. Найти СУММУ элементов массива, кратных ТРЕМ, и произведение с...

В заданном массиве из N элементов найти наименьший среди элементов кратных трем
В заданном массиве из N элементов найти наименьший среди элементов кратных трем, расположенных до...

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

Найти произведение всех элементов кратных 7 в двумерном массиве А(5,8)
Найти произведение всех элементов кратных 7 в двумерном массиве А(5,8)

Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]
Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале...

Определить в массиве количество элементов кратных трём
Ввести одномерный массив из 10 элементов. Определить в нём количество элементов кратных трём....

В массиве найти произведение всех чисел кратных трем
помогите решить лабу.... (извините за плохой перевод... перевела как смогла) Варіант 13. ...

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