Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Решение системных уравнений по схеме Крамера https://www.cyberforum.ru/ pascal/ thread1375191.html Благодарю за рание ответ на вопрос. Решение можно в (Pascal или Dolphin) Решить систему из двух уравнений по схеме Крамера. Выполнить ручной просчет и убедиться , что найденное решение действительно верное x + y = 1 3x - y = -4	Pascal Посоветуйте оптимальную среду разработки под Windows Я недавно начал изучать Паскаль. Пока что пользуюсь Турбо Паскаль 7.0. Меня он удовлетворяет, но он же генерирует ДОС-приложения, и для демонстрации приходится пользоваться ДосБокс. Кто-нибудь, посоветуйте пожалуйста оптимальную среду разработки под Виндовс! Заранее спасибо!
Pascal Найти среди четных элементов матрицы максимальный элемент Задан двумерный массив чисел. Элементы матрицы вводятся с клавиатуры. Найти среди четных элементов матрицы максимальный элемент. Помогите, пожалуйста. https://www.cyberforum.ru/ pascal/ thread1375140.html	Pascal Найти периметр четырехугольника ABCD, если известны координаты его вершин Найти периметр четырехугольника АВСD, если известны координаты его вершин(xa,ya,xb,yb,xc,yc). Координаты вводятся с клавиатуры https://www.cyberforum.ru/ pascal/ thread1375124.html
Вывести не всю таблицу умножения, а только заданный столбец Pascal Нужно вставить в программу ввод строки (например, 3 на 2) и чтобы программа выводила не всю таблицу, а столбец умножения (в нашем случае столбец умножения на 3). const n = 10; begin for var i:=1 to n do / begin for var j:=1 to n do write(i*j:4); //Вывод таблицы writeln; end;	Pascal Описать функцию, которая возвращает количество букв «у» в заданном слове на четных местах https://www.cyberforum.ru/ pascal/ thread1374715.html Здравствуйте. Помогите описать функцию, которая возвращает количество букв «у» в заданном слове на четных местах.
Pascal В списке L с каждой группы подряд равных элементов оставить только один элемент https://www.cyberforum.ru/ pascal/ thread1374705.html Опишите программу , которая в списке L с каждой группы подряд равных элементов оставляет только один элемент.	Pascal Блок-схема: Как сделать нумерацию блоков Здравствуйте! Подскажите, пожалуйста какая блок-схема более правильная подходит к моей программе? И подскажите, как сделать нумерацию блоков-никак не пойму.. Program laba; Uses crt; Const n=8; Type mas=array of real; Var A,B,C:mas;
Pascal Сформировать новое множество по правилу Даны три множества X1, X2, X3, содержащие целые числа из диапазона . Сформировать новое множество Y = (X1UX2) \ (X2UX3), из которого выделить подмножество чисел, кратных 3. В общем написал программу, вроде бы все правильно, проверил несколько раз, может я ошибаюсь? Если я ошибаюсь прошу вас помочь исправить мне эту тупую и нелепую ошибку. Решил написать программу, что бы числа нужно... https://www.cyberforum.ru/ pascal/ thread1374436.html	Pascal Рассчитать итоги по суточному темпу производства продукции по детали, участку, цеху и предприятию Массив содержит план изготовления продукции на каждый из 12 месяцев года в виде: цех, участок, деталь, план, код месяца. Взять из справочника по коду месяца информацию о количестве рабочих дней в этом месяце, рассчитать итоги по суточному темпу производства продукции по детали, участку, цеху и предприятию в целом на год. https://www.cyberforum.ru/ pascal/ thread1374342.html
Pascal Заменить адрес владельца телефона “651480” на улица “Пирогова”, дом “4”, квартира “17” Нужно дописать прогу . Заменить адрес владельца телефона “651480” на улица “Пирогова”, дом “4”, квартира “17”. program laba15; uses crt; const M=15; type t=record Fio:string ; ima: string; Otch: string; Ylica:string ; dom:integer;	Pascal Найти разницу двух комплексных чисел Помогите пожалуйста! Задано две записи Z1 и Z2, причем поле Re каждого из них - настоящая часть комплексного числа, а поле lm каждого из них - мнимая часть комплексного числа. Найти разницу Z1-Z2 двух комплексных чисел, причем обращение к переменным Z1 и Z2 необходимо выполнить с помощью типизированных указателей. Спасибо большое)* https://www.cyberforum.ru/ pascal/ thread1374306.html

g48vlad

0 / 0 / 0

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

Сообщений: 4

Найти произведение тех элементов массива значения которых заключены в интервале [А, В] и кратны 3 или 5 - Pascal - Ответ 7229531

15.02.2015, 12:58. Показов 2741. Ответов 1

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

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

Нужно сделать две программы:
Дан массив X(N).
1) Найти произведение тех элементов массива значения которых заключены в интервале [А,В] и кратны 3 или 5.
2) Найти найти наибольшее значение. Заменить все элементы из отрезка [-2...2] найденным значением.
(Я новичок в Паскале, нужен образец этих двух прог без наворотов, чтобы разобраться с массивом)

Добавлено через 23 минуты
На первую задачу сделал сам

Pascal

Program Laboratornaya_1_1;
var x: array [1..9999] of integer;
i, n, a, b, s: integer;
begin
s:=1;
write ('Введите количество элементов в массиве ');
read (n);
writeln ('Исходный массив: ');
for i:=1 to n do
  begin
  x[i]:=random (30);
  write (x[i],' ');
  end;
  writeln;
  writeln ('Введите число A');
  read (a);
  writeln ('Введите число B');
  read (b);
   for i:=1 to n do
     begin
     if ((x[i] mod 3)=0) or ((x[i] mod 5)=0) and ((x[i]) >= a) and ((x[i]) <= b) then s:=s*x[i];
     end;
     writeln ('Произведение элементов, кратных числам 3 и 5 в промежутка [А..В] равно ',s);
end.

Вернуться к обсуждению:
Найти произведение тех элементов массива значения которых заключены в интервале [А, В] и кратны 3 или 5 Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.02.2015, 12:58

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

Найти произведение тех элементов массива, значения которых заключены в интервале [A; B] и кратны 3 или 5
Нужна блок-схема и программа Дан массив X(N).найти произведение тех элементов массива, значения...

Одномерный массив. Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5
Дан массив X(N). Найти произведение 3-х элементов, значение которых. заключены на интервале и...

Вывести на экран произведение тех элементов массива, номера которых кратны трем
дан одномерный массив А, состоящий из целых чисел. вывести на экран произведение тех элементов...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

15.02.2015, 12:58

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

Вычислить произведение элементов массива, значения которых кратны 3
Скажите пожулуйста каким образом сделать данное задание именно на Qbasic и какой алгоритм(если...

Найти количество тех элементов, значения которых по модулю превосходят 100 и кратны 5 и 10
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка...

Найти произведение элементов массива, номера которых кратны трем
Задать случайным образом одномерный массив из 13 целочисленных элементов, принадлежащих отрезку ....

Найти произведение элементов массива (X1,X2,X3,.X15) , индексы которых кратны 3
Найти произведение элементов массива (X1,X2,X3,.....X15) , индексы которых кратны 3

Наверх