Turbo Pascal

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

Войти

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

Другие темы раздела

Turbo Pascal Двумерные массивы. Определить для каждого дня недели суммарное время работы https://www.cyberforum.ru/ turbo-pascal/ thread593037.html
В некоторой компании регистрируется: число часов, отработанных каждым работником в каждый день недели. Известен список работников и почасовая ставка каждого работника. определить для каждого дня недели суммарное время работы всех сотрудников и результаты вывести вместе с исходными данными. Вывести исходные данные в виде таблицы: фамилия / часов в день 1 ...

Turbo Pascal Создание модулей. В модуле описать функции нахождения минимального и максимального значения
даны целые числа а,в,с. Создать модуль который найдет мах и мин, и используя этот модуль найти функцию f=max(a+c,a+b)+min(a+b,b+c)/1+max(a+bc,4.15)

Turbo Pascal Дана строка символов. Заменить все вхождения символа '{' на 'begin' , а каждое вхождение символа '}' - на 'end' https://www.cyberforum.ru/ turbo-pascal/ thread593027.html
дана строка символов. Заменить все вхождения символа '{' на 'begin' , а каждое вхождение символа '}' - на 'end' блок-схему плиз!

Turbo Pascal Вывести одинаковые символы данных строк, использовать множественный тип ввести 2 строки символов. вывести одинаковые символы этих строк. При решении задачи обязательно использовать множественный тип. блок-схему пжлста, если не сложно https://www.cyberforum.ru/ turbo-pascal/ thread593020.html

Найти телефон работника по его фамилии и инициалам Turbo Pascal
Дан файл, который содержит номера телефонов работников учреждения. Указывается фамилия работника, его инициалы и номер телефона. Найти телефон работника по его фамилии и инициалам. Помогите пожалуйста((:cry:

Turbo Pascal Получить действительную матрицу, первая и вторая строки задаются формулой, а каждая следующая строка есть сумма двух предыдущих Получить действительную матрицу ;i,j=1,…,7, первая строка которой задаётся формулой Aij=2j+3 (j=1,…,7), вторая строка задаётся формулой Aij=j-3/(2+1/j) (j=1,…,7), а каждая следующая строка есть сумма двух предыдущих. Кто знает помогите плиз Добавлено через 1 минуту и ещё это если можно Даны целые числа а1,…,а50. Получить сумму тех чисел данной последова-тельности, которые нечётны и... https://www.cyberforum.ru/ turbo-pascal/ thread592992.html

Turbo Pascal Вычислить количество положительных, отрицательных и нулевых элементов матрицы https://www.cyberforum.ru/ turbo-pascal/ thread592953.html
Обработать матрицу, элементами которой являются случайные значение функции f(x)=x; x∈. Вывести на печать исходную матрицу и полученные результаты. Дана целочисленная матрица D(11;11). Вычислить количество положительных, отрицательных и нулевых элементов. Добавлено через 8 минут помогите побыстрей:scratch:

Turbo Pascal задача. обработка одномерных масивов
фирма распологает следующей информацией: наименоване товара, стоимость его единицы, количество единиц(кг, шт, упаковок) в партии, название фирмы поставщика, поставившего данную партию товара. данные вводятся с клавиатуры: не мени 5 товаров от не менее,чем 2 фирм-поставщиков ( один и тот же товар может поставляться разными поставщиками ). На основе исходных данных во всех программах сформировать...

Turbo Pascal В алфавитном порядке напечатать все строчные русские гласные буквы текста https://www.cyberforum.ru/ turbo-pascal/ thread592947.html
Ребят, помогите пожалуйста. Нужен ПОЛНЫЙ КОД. Все мозги проел, не знаю как делать... Вот задачи: 1. Напечатать текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские гласные буквы (а, е, и, о, у, ы, э, ю, я), входящие в этот текст. 2. Записать в файл f N целых чисел, полученных с помощью генератора случайных чисел. Заполнить файл g числами, которые являются...

Turbo Pascal Обработка строк. Определить длину введенной строки L, и, если длина L <10, то выделяется подстрока в ( ) скобках https://www.cyberforum.ru/ turbo-pascal/ thread592935.html
ребят помогите пожалуйста Ввести с клавиатуры строку символов. Признак окончания ввода строки – нажатие клавиши "Ввод". Программа должна определить длину введенной строки L, и, если длина L <10, то выделяется подстрока в ( ) скобках заранее огромное спасибо!

Двумерные массивы. Сформировать одномерный массив, каждый элемент которого равен наибольшему по модулю элементу соответствующего столбца Turbo Pascal
Дан двумерный массив с размерность 5*6, заполненный целыми числами с клавиатуры.Сформировать одномерный массив,каждый элемент которого равен наибольшему по модулю элементу соответствующего столбца.

Turbo Pascal Задача о треугольнике https://www.cyberforum.ru/ turbo-pascal/ thread592907.html
1 Введите три числа. Если они могут быть длинами сторон равнобедренного ост-роугольного треугольника, вычислите его площадь. Выведите длины сторон и площадь в порядке возрастания значений Добавлено через 1 час 2 минуты Пусть даны координаты трех точек на плоскости. Составьте программу для определения вида треугольника (равносторонний, разносторонний, равнобедр

Alteisen

20 / 20 / 15

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

Сообщений: 28

02.06.2012, 16:54

Получить сумму тех чисел данной последовательности, которые нечётны и отрицательны - Turbo Pascal - Ответ 3115266

02.06.2012, 16:54. Показов 4571. Ответов 2

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

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

Решение

Почему то решил, что 1 это не четное ни нечетное, поправил.

Pascal

program m1;
const e= 5;
var m: array [1..e] of integer;
    a,b: integer;
begin
for a:= 1 to e do begin
m[a]:= Random(e+e)- e;
write(m[a],' ');
end;
writeln();
for a:= 1 to e do
if m[a] < 0 then
   if m[a] mod 2 <> 0 then b:= b+ m[a];
writeln(b);
end.

Вернуться к обсуждению:
Получить сумму тех чисел данной последовательности, которые нечётны и отрицательны Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

02.06.2012, 16:54

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

Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны
Даны натуральное число n, целые числа a1,...,an.Получить сумму тех чисел данной последовательности,...

Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны
Хай всем. Помогите пожалуйста программу составить на следующих условиях: Даны целые числа a1..a50....

Даны целые числа a1.a50, получить сумму тех чисел, которые кратны нацело на 5, нечетны, отрицательны
Даны целые числа a1..a50, получить сумму тех чисел, которые кратны нацело на 5, нечетны,...

Получить сумму тех чисел данной последовательности которые кратны 3
помогите решить))вообще в этом не смыслю)))а то ссесия летит к чертям...

	02.06.2012, 16:54

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

02.06.2012, 16:54

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

Получить сумму тех чисел данной последовательности, которые кратны 7
Дана последовательность целых чисел A1,..A50. Получить сумму тех чисел данной последовательности,...

Получить сумму тех чисел данной последовательности которые нечетные
Написать программы трех типов циклов на языке Pascal для следующей задачи: Даны первые десять...

Получить произведение трех членов последовательности, которые нечетны и отрицательны
Помогите. Задача срочно нужна для экзамена. ) Вывести на экран целые числа в следующем виде:...

Получить сумму тех чисел данной последовательности, которые кратны 5 - построить блок-схему
Здравствуйте! Помогите с построением блок схем! Спасибо! 1. Даны целые числа а1,…,а50. Получить...

Наверх