Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Найти в файле f1 все заменяемые слова и заменять их замещающими https://www.cyberforum.ru/ pascalabc/ thread1708557.html
Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2 содержит не более 4 слов, которые разделены запятыми. Эти слова образуют пары: каждое первое слово является заменяемым, каждое второе - замещаемым. Найти в файле f1 все заменяемые слова и заменять их замещающими. Результат поместится в файле g. 		Pascal ABC Вычислить значение выражения
Найти значение z, если
Pascal ABC Разложить по коробкам новогодние подарки Даны целые неотрицательные а, X,Y,Z. Известно , что в каждый новогодний подарок необходимо положить а конфет , одно или два яблока, одну или две груши , причем количество фруктов в подарке должно равняться трем. Каждое максимальное количество подарков можно скомплектовать из Х конфет, Y яблок и Z груш. Помогииииите:) через ветвления https://www.cyberforum.ru/ pascalabc/ thread1708460.html Pascal ABC Соединить конечное множество точек на плоскости замкнутой ломаной линией https://www.cyberforum.ru/ pascalabc/ thread1708439.html
Соединить конечное множество точек на плоскости замкнутой ломаной линией без самопересечений с вершинами в этих точках. (Полный перебор не делать; ответом будет порядок обхода точек плоскости.) Указание: перейти к полярным координатам и упорядочить точки по значениям угла, а для точек с одинаковым значением угла — по расстоянию до полюса.
Переписать элементы линейного списка в обратном порядке Pascal ABC
Используйте линейные списки для хранения последовательности чисел. Опишите процедуру или функцию, которая для данного списка L создает список L1, содержащий те же эле менты, но в обратном порядке 		Pascal ABC Напишите рекурсивную программу, печатающую сначала все отрицательные элементы файла, затем положитительные type reals = file of real; var f : reals;Напишите рекурсивную программу, которая печатает сначала все отрицательные элементы этого файла, а затем положи тельные (в любом порядке). https://www.cyberforum.ru/ pascalabc/ thread1708436.html
Pascal ABC Описать логическую функцию check(s) для текстового файла s, проверяющую, содержит ли файл s латинские буквы https://www.cyberforum.ru/ pascalabc/ thread1708435.html
Описать логическую функцию check(s) для текстового файла s, проверяющую, содержит ли файл s латинские буквы. Указание: введите файл s (последний элемент в файле '.') и вычислите значение функции check(s). 		Pascal ABC В алфавитном порядке напечатайте (по разу) все малые латинские буквы, входящие в эту строку ровно два раза
Дана строка. В алфавитном порядке напечатайте (по разу) все малые латинские буквы, входящие в эту строку ровно два раза. Указание: решение задачи простое, если вы будете использовать множества. Заведите три множества X1, X2 и X3 (сначала эти множества пустые). И в цикле просмотрите все символы из введенной строки. С каждым символом — маленькой латинской буквой — выполняйте следующие действия:...
Pascal ABC Найти сумму элементов из области матрицы А var A : array of real; Найти сумму элементов из области матрицы А, отмеченной символом '*' (диагонали входят в выделенную область): * * * * * * * 0 * * * * * 0 0 0 * * * 0 0 0 0 0 * 0 0 0 0 0 * * * 0 0 0 * * * * * 0 * * * * * * * https://www.cyberforum.ru/ pascalabc/ thread1708432.html Pascal ABC В заданном предложении найти пару слов, из которых одно является обращением другого https://www.cyberforum.ru/ pascalabc/ thread1708431.html
В заданном предложении найти пару слов, из которых одно является обращением другого. Указание: воспользуйтесь массивом строк для хранения слов.
Найти первый член последовательности Pascal ABC
Задача 1 Рассмотрим последовательность e 1, e 2, e 3,..., образованную по следующему закону ek=(1+\frac{1}{k})^k, k = 1,2,.... Дано действительное eps. Найти первый член e n этой последовательности, для которого |en – en–1| < eps. (Существо вание en гарантируется одной из теорем математического анализа: чем меньше eps, тем ближе en к числу е =2,718281828... .) Задача 2 В заданном... 		Pascal ABC Нахождения наименьшего и наибольшего элементов одномерных массивов https://www.cyberforum.ru/ pascalabc/ thread1708387.html
Составьте программу нахождения наименьшего и наибольшего элементов одномерных массивов А (N), B (N), лежащих в интервале (C,D). Помогите пожалуйста.
Эксперт Pascal/Delphi
6810 / 4567 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
23.05.2016, 18:02 0

Вычисление произведения тех элементов матрицы, которые кратны 3 и не кратны 2 - Pascal ABC - Ответ 9178877

23.05.2016, 18:02. Показов 2090. Ответов 4
Метки (Все метки)

Ответ

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
31

const
  n = 5;
  m = 4;
 
var
  i, j, k: integer;
  p: real;
  a: array [1..n, 1..m] of integer;
 
begin
  p := 1;
  k := 0;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(n * m);
      write(a[i, j]:4);
      if (a[i, j] mod 3 = 0) and (a[i, j] mod 2 <> 0) then
      begin
        p := p * a[i, j];
        inc(k);
      end;
    end;  
    writeln; 
  end;    
  if k = 0 then
    writeln('Нет таких чисел')
  else
    writeln(p);
end.


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

Найти сумму тех элементов массива, которые кратны К
1.В массиве A занесены натуральные числа. Найти сумму тех элементов, которые кратны данному К.

Вычисление тех элементов двумерного массива, что кратны 3 и не кратны 2
составьте программу вычисления тех элементов двумерного массива A(N,M),что кратны 3 и не кратны 2....

Найти произведение тех элементов матрицы, которые кратны L
задача :дана матрица A (N*L) найти произведение тех её элементов которые кратны L. мой код : ...

Из элементов массива A, которые кратны 5, но не кратны 3, сформировать массив B
Здравствуйте, помогите пожалуйста решить задачу, готовую на паскале, но непонятную в самом...

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

Из элементов массива A, которые кратны 5, но не кратны 3, сформировать массив B
Помогите пожалуйста с задачей в паскале для курсовой работы : Дан массив A(M). Из элементов массива...

Определите сумму элементов последовательности, которые кратны 2, но не кратны 3
С оператором цикла While 3. Определите сумму элементов последовательности, которые кратны 2, но не...

Найти индексы тех элементов массива, которые кратны 5
Дан массив одномерных чисел. Найти индексы тех элементов которые кратны 5; массив вводится с...

Найти сумму тех элементов массива, которые кратны K
В массив А занесены натуральные числа.Найти сумму тех элементов,которые кратны данному K.

Найти количество тех членов последовательности, которые кратны 5 и не кратны 7.
1. Найти количество тех членов последовательности, которые кратны 5 и не кратны 7. 2. Вычислить...

Циклы: получить произведения тех членов последовательности, которые кратны P
Заданы целые числа K,P. ипоследовательность целых чисел c1,c2,..ck.Получить произведения тех членов...

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