Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal В каждом слове поменять буквы (задом наперед), все слова расположить в обратной последовательности https://www.cyberforum.ru/ pascal/ thread1207184.html Дан текстовый файл, в каждом слове поменять буквы (задом на перед), все слова расположить в обратной последовательности, а знаки препинания оставить на своих позициях. Помогите, пожалуйста, кому... Намедни решал подобную задачу. Более упрощенный вариант - "в каждом слове поменять буквы (задом на перед), все слова расположить в обратной последовательности". Если устроит, текст программы выложу.	Вычислить значение выражения Pascal Составить программу, находящую значение x=rem(rem(A,B),rem(C,D)), где A, B, C, D – натуральные числа, а функция rem возвращает в результате остаток от деления. Целочисленное деление при задании... var x,a,b,c,d:integer; function rem(a,b:integer):integer; var i:integer; begin if a<b then rem:=a else
*Pascal Факторизация чисел <=110^9 быстрее, чем за 1 секунду** https://www.cyberforum.ru/ pascal/ thread1206688.html В общем - сабж Есть два числа n и m Вот мой алгоритм факторизации (попутно засовывая их в массивы) j:=1; i:=2; k:=1; while ((n<>1) or (m<>1) ) do begin 1: if n mod i = 0...	Pascal Подсчитать сумму всех отрицательных элементов матрицы https://www.cyberforum.ru/ pascal/ thread1206654.html Отобразить в виде Pascal-програмы и написать блок-схему алгоритм расчёта суммы, всех отрицательных элементов матрицы HP{m=3,n=5}, если таковые в ней имеются Const n=3;m=5; Var A:array of real; i,j:byte; s:real; Begin For i:=1 to n do Begin For j:=1 to m do Begin A:=random*10-5;
Pascal Слова в строке разделены пробелами. Найти симметричное слово и поменять его со словом стоящим на 3ем месте дана строка, слова отделены пробелом. нужно найти симметричное слово и поменять его со словом стоящим на 3ем месте. помогите написать задачу и , если можно , с небольшими объяснениями, хочу... https://www.cyberforum.ru/ pascal/ thread1206669.html	Pascal Даны два файла (структурного типа) f1 и f2. Составить файл q из слов, которые встречаются и в f1, и в f2 Даны два файла (структурного типа) f1 и f2. Составить файл q из слов, которые встречаются и в f1, и в f2. https://www.cyberforum.ru/ pascal/ thread1206819.html
Pascal Определить фамилии женатых (замужних) людей, имеющих детей Известны фамилии 25-ти человек, их семейное положение:женат(замужем) или нет, и сведения о наличии детей(есть или нет). Определить фамилии женатых(замужних) людей имеющих детей. {Известны фамилии 25-ти человек, их семейное положение:женат(замужем) или нет, и сведения о наличии детей(есть или нет). Определить фамилии женатых(замужних) людей имеющих детей.} uses ... https://www.cyberforum.ru/ pascal/ thread1206928.html	Pascal Нарисовать стол https://www.cyberforum.ru/ pascal/ thread1207014.html 1-коричневый 2-серый з-чорный цвет фона-белый цвет линии-чорный uses graph; var x,y:integer; begin initgraph(x,y,''); x:=getmaxX div 2; y:=getmaxY div 2; setfillstyle(1,15); bar(0,0,getmaxX,getmaxY); setlinestyle(0,0,3); setcolor(0);
Pascal Какой тип данных надо задать для ввода произвольной функции F (x) с клавиатуры Доброго времени суток! Немогу понять какой тип данных надо задать для ввода произвольной функции F(x) с клавиатуры, используется судя по всему процедурный тип данных, а к переменным типа function ни... Компилятор Паскаля какой? В современных (FPC, скажем) можно прочитать функцию в виде строки, и выполнить ее через скриптовый движок: https://www.cyberforum.ru/pascal/thread1070243.html#post5635255	Pascal Найти в файле f все слова, которые представляют числа (в десятичной записи) Найти в файле f все слова, которые представляют числа (в десятичному записи) и получить числовой файл (структурного типа) q, содержащий найдены числа. uses crt; var f:file of string; q:file of integer; s:string; n,i,a:integer; begin assign(f,'slova'); rewrite(f); assign(q,'chisla'); rewrite(q); https://www.cyberforum.ru/ pascal/ thread1206818.html
Все отрицательные значения вещественного массива переместить в его начало Pascal Написать рекурсивную подпрограмму,которая все отрицательные значения вещественного массива перемещает в его начало. Массивы и циклы не использовать Помогите, пожалуйста которая все отрицательные значения вещественного массива Массивы и циклы не использовать Это два взаимоисключающих условия!	Pascal Сохранить элементы матрицы вещественных чисел в текстовом файле Сохранить элементы матрицы вещественных чисел в текстовом файле с такой структурой: • первая строка файла содержит два числа n и m, разделенных пробелом - соответственно количество строк и ... Const nmax=20; Var A:array of real; i,j,n,m:byte; f:text; Begin Repeat write('Количество строк 1<=N<=',nmax,': ');readln(n); Until n in ; Repeat ... https://www.cyberforum.ru/ pascal/ thread1206821.html

Maxim_

6 / 6 / 10

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

Сообщений: 30

13.06.2014, 18:09

Найти произведение только тех чисел, которые больше заданного числа М - Pascal - Ответ 6313710

13.06.2014, 18:09. Показов 2787. Ответов 1

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

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

Решение

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
//Дана последовательность целых положительных чисел. 
//Найти произведение только тех чисел, которые больше заданного числа М.
// Если таких нет, то выдать сообщение об этом.
program proizv;
uses crt;
var x,p,m:integer;
c:char;
begin
writeln('введите число М');
readln(m);
p:=1;
c:='y';
while c='y' do
 begin
 writeln('введите элемент последовательности');
 readln(x);
 if (x>=0)and(x>m) then p:=p*x;
 writeln ('ввести следующий элемент последовательности? y-да n-нет');
 readln(c);
 end;
if p<>1 then writeln ('Произведение элементов равно ',p) 
  else
writeln('Элементов удовлетворяющих условию нет');
end.

Вернуться к обсуждению:
Найти произведение только тех чисел, которые больше заданного числа М Pascal

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

13.06.2014, 18:09

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

Найти произведение только тех чисел, которые больше заданного числа М
Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М.

Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1
1.Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1.

Определить среднее арифметическое тех элементов массива, которые больше заданного числа
Даны натуральные число x и целые числа a, а,…,а. Определить среднее арифметическое тех a, которые больше n.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

13.06.2014, 18:09

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

В массиве найти все пары "дружественных" чисел, которые не больше заданного числа N
Помогите решить пожалуйста задачи на массивы. 1. 2 натуральных числа называются "дружественными", если каждое из них равно...

Найти сумму элементов, которые больше заданного числа Р
помоготе пожалуйста!!! Задача №1.В массиве чисел А1,А2,….Аn. Найти сумму элементов, которые больше заданного числа Р. Задача№2.Даны...

Найти первое из чисел 1,2,4,8,16,32,..., больше заданного числа А
Найти первое из чисел 1,2,4,8,16,32,..., больше заданного числа А. _____________________________________________________________________ ...

Дан натуральный отрезок чисел [A,B].Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х.
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х. Проверку, является ли сумма цифр...

Найти произведение тех чисел последовательности, чей квадрат меньше порядкового номера вводимого числа
Будьте добры, помогите сделать задачу Ввести 13 чисел. Найти произведение тех из них. чей квадрат меньше порядкового номера вводимого...

Новые блоги и статьи Все статьи Все блоги /
Циклы for в Python py-thonny 17.03.2025 Существует множество ситуаций, когда нам нужно выполнить одно и то же действие несколько раз. Цикл for в Python — настоящий рабочий конь для большинства программистов. Если вам нужно пройтись по всем. . .	Предсказание ветвлений - путь к высокопроизводительному C++ NullReferenced 17.03.2025 В высокопроизводительном программировании на C++ каждый такт процессора на счету. Когда речь заходит о разработке систем с низкой задержкой — будь то высокочастотная торговля, обработка потоковых. . .	Паттерн CQRS в C# UnmanagedCoder 17.03.2025 Создание сложных корпоративных приложений часто требует нестандартных подходов к архитектуре. Один из таких подходов — паттерн CQRS (Command Query Responsibility Segregation), предлагающий простую,. . .	Паттерн Цепочка ответственности в C# UnmanagedCoder 17.03.2025 Цепочка ответственности — это поведенческий паттерн проектирования, который позволяет передавать запросы последовательно по цепочке потенциальных обработчиков, пока один из них не обработает запрос. . . .	Создаем микросервисы с NestJS, TCP и Typescript run.dev 17.03.2025 NestJS — фреймворк, который значительно упрощает создание серверных приложений на Node. js. Его прелесть в том, что он комбинирует концепции ООП, функционального программирования и предлагает. . .
Гексагональная архитектура со Spring Boot Javaican 17.03.2025 Если вы когда-нибудь сталкивались с ситуацией, когда внесение простых изменений в базу данных или пользовательский интерфейс заставляло вас переписывать весь код, то вы точно оцените элегантность. . .	Позиционирование Kafka Consumer и Seek-операции Javaican 17.03.2025 Что же такое Consumer Seek в Kafka? По сути, это API-метод, который позволяет программно указать, с какой позиции (offset) Consumer должен начать или продолжить чтение данных из партиции. Без этого. . .	Python NumPy: Лучшие практики и примеры py-thonny 17.03.2025 NumPy (Numerical Python) — одна из ключевых библиотек для научных вычислений в Python. Она превращает Python из просто удобного языка общего назначения в среду для проведения сложных математических. . .	Java Micronaut в Docker: контейнеризация с Maven и Jib Javaican 16.03.2025 Когда речь заходит о микросервисной архитектуре на Java, фреймворк Micronaut выделяется среди конкурентов. Он создан с учётом особенностей облачных сред и контейнеров, что делает его идеальным. . .	Управление зависимостями в Java: Сравнение Spring, Guice и Dagger 2 Javaican 16.03.2025 Инъекция зависимостей (Dependency Injection, DI) — один из фундаментальных паттернов проектирования, который радикально меняет подход к созданию гибких и тестируемых Java-приложений. Суть этого. . .

Наверх