Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal ABC Даны массивы оценок по информатике у трех учеников. Сформировать множество из имеющихся у учеников оценок Народ, помогите, пожалуйста, решить задачу: 2. Даны массивы оценок по информатике у трех учеников. Сформировать множество из имеющихся у учеников оценок. Выделить из него подмножество оценок, которые встречаются не более у двух из указанных учеников. Вывести элементы этих множеств в порядке возрастания. https://www.cyberforum.ru/ pascalabc/ thread594720.html Вводится значение времени ( часы, минуты ) Программа считает, сколько времени осталось от текущего момента до введенного значения Pascal ABC
Вводится значение времени ( часы, минуты ) Программа считает, сколько времени осталось от текущего момента до введенного значения. Программа активна до нажатия любой клавиши.
Pascal ABC Строка состоит из трех слов. Верно ли, что для записи всех трех слов был использован один и тот же набор букв Народ, помогите, пожалуйста, решить задачу: 1. Строка состоит из трех слов. Верно ли, что для записи всех трех слов был использован один и тот же набор букв. https://www.cyberforum.ru/ pascalabc/ thread594674.html Pascal ABC Написать калькулятор со стандартными действиями(+ - * /) не могли бы еще помочь с написанием калькулятора со стандартными действиями(+ - * /)? https://www.cyberforum.ru/ pascalabc/ thread594628.html
Pascal ABC Найти среднее значение элементов матрицы,а также получить матрицу В размером 4*5
Задана матрица А размером 4*5.Найти среднее значение элементов матрицы,а также получить матрицу В размером 4*5 у которой элементы будут получены делением элементов матрицы А на среднее значение. Все первоначальные элементы массива вводятся с клавиатуры. 		Pascal ABC Одномерный целочисленный массив. Определить и показать все нечётные значения массива, а потом все чётные Дан одномерный челочисленный масив А размерностью 16.Определить и показать все нечётные значения массива, а потом все чётные.Все первоначальные элементы массива вводятся с клавиатуры. https://www.cyberforum.ru/ pascalabc/ thread594530.html
Pascal ABC Операции с Файлами. Есть некий Файл А , нужно получить его копию в Файле В Раздел "Операции с Файлами" Задание : Есть некий Файл "А" , нужно получить его копию в Файле "В" Кто может. Помогите. Зарание добрым людям благодарствую. https://www.cyberforum.ru/ pascalabc/ thread594504.html Pascal ABC Задача на упорядочивание
Прошу Помочь с задачей! Разработать программу упорядочения каждых третьих элементов третьей четверти массива по возрастанию квадратов. Пробывал решать через процедуры while но что то не сходится Program Work_6; {Работа №6, вариант №608, гр.БАЭ} Type vector=array of integer; var Vr, n, a, b, i: integer; D: vector;
Pascal ABC Как меняется со временем температура паяльника от момента включения https://www.cyberforum.ru/ pascalabc/ thread594361.html
Помогите пожалуйста, нужно написать программу для решения задачи: Как меняется со временем температура паяльника от момента включения, если мощность нагревателя равна 40 Вт; масса паяльника 100 г, удельная теплоемкость 400 Дж/(кг*К)? Потери тепла происходят за счет теплопроводности среды и конвекции по закону: dQ1/dt — А (Т — Tср), где А=0,05 Вт/К, температура среды Тср=20 °С, а также за... 		Pascal ABC Рекурсия пятиугольники https://www.cyberforum.ru/ pascalabc/ thread594341.html
Рекурсия на паскале называется пятиугольники смысл в том что дан пятиугольник на каждой из его вершин рисуется ещё пятиугольники и тд чёт не получается ато я нацарапал на бумаге примерно так
Pascal ABC Вставить в строку слово после первого слова
Помогите с решением, умные люди)!!! зад1: Вставить в строку слово после первого слова. Слово вводится с клавиатуры. Выведите полученную строку на экран. зад2:Составьте алгоритм, вычеркивающий из данной строки текста любую букву. Выведите полученную строку на экран. 		Pascal ABC Двумерные массивы. Найти среднее арифметическое положительных элементов в каждой строке https://www.cyberforum.ru/ pascalabc/ thread594279.html
Помогите с решением задачек на двумерный массив. Заранее благодарю!! Задача 1: В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы производится с клавиатуры) найти среднее арифметическое положительных элементов в каждой строке. Выведите исходный массив в виде матрицы. Задача 2: Найти и вывести на экран индексы заданных элементов массива (если их нет, выдать соответствующее сообщение)....
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
03.06.2012, 12:00 0

В массиве чисел найти сумму элементов,которые меньше заданного числа D. - Pascal ABC - Ответ 3117772

03.06.2012, 12:00. Показов 3121. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено masha-vla-nez как решение

Решение

один из вариантов
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

uses crt;
const n=10;
var a,b,c: array [1..n] of integer;
    x,y: array [1..n] of real;
    i: byte;
begin
writeln('-----------------------------------');
writeln('|  a  |  b  |  c  |   x   |   y   |');
writeln('-----------------------------------');
for i:=1 to n do
    begin
    a[i]:=random(199)-99;
    b[i]:=random(199)-99;
    c[i]:=random(199)-99;
    if a[i]<b[i] then x[i]:=a[i]/2 else x[i]:=b[i]/2;
    if b[i]<c[i] then y[i]:=b[i]/2 else y[i]:=c[i]/2;
    writeln('|',a[i]:4,'|':2,b[i]:4,'|':2,c[i]:4,'|':2,x[i]:6:1,'|':2,y[i]:6:1,'|':2);
    end;
writeln('-----------------------------------');
end.
если надо с использованием подпрограмм (для min(), например) или ввод с клавиатуры, намекни =)

Вернуться к обсуждению:
В массиве чисел найти сумму элементов,которые меньше заданного числа D. Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 03.06.2012, 12:00
Готовые ответы и решения:

Найти сумму тех элементов массива, которые меньше заданного числа D
В массиве чисел А1, А2, …АN найти сумму тех элементов, которые меньше заданного числа D....

Определить сумму последовательности чисел, которые меньше заданного числа
Дана последовательность вещественных чисел а1, а2, …., а15 упорядоченная по возрастанию, и число n,...

Вычислить сумму квадратов элементов массива B, которые меньше заданного числа А
Тип элементов: действительные числа Кол-во элементов: 18 Элементы от -10 до 21 А = 5

Найти количество чисел в массиве, меньше заданного числа y.
Найти количество чисел в массиве, меньше заданного числа y. Если таких чисел нет, то вывести...

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

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

Найти сумму чисел Фибоначчи меньше заданного числа Q
Помогите исправить. #include&lt;iostream&gt; using namespace std; int main() { setlocale(LC_ALL,...

Найти в массиве вещественных чисел количество элементов, которые меньше среднего среди элементов
Для заданного массива вещественных чисел найти количество элементов, каждый из которых меньше...

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

Найти сумму элементов массива значения которых меньше заданного числа
Дан одномерный массив 6 элементов. Найти сумму элементов массива значения которых меньше 0.25...

В матрице А (mxn) найти найти сумму элементов по колонкам, значения которых по модулю меньше заданного числа К
a) задать значения элементов массива при объявления переменных; b) значения элементов массива...

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