Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal В одномерном массиве первый элемент поменять местами со вторым элементом, третий элемент с четвертым элементом и так далее. Ввести одномерный массив поэлементно с помощью клавиатуры или получить его, используя генератор случайных чисел. Одномерный массив может быть целочисленного или вещественного типа. Количество элементов в одномерном массиве должна быть не менее десяти. Вывести на экран монитора исходный одномерный массив в виде строки чисел. Выполнить необходимые преобразования над... https://www.cyberforum.ru/ turbo-pascal/ thread996700.html	Turbo Pascal Ввести аргумент x с помощью клавиатуры и определить, попадает ли он в область допустимых значений Найти область допустимых значений аргумента x. Написать процедуру или функцию, которая вычисляет область допустимых значений аргумента x. Написать процедуру или функцию, которая вычисляет значение выражения f(x) . Ввести аргумент x с помощью клавиатуры и определить, попадает ли он в область допустимых значений. В случае попадания аргумента x в ...
Turbo Pascal Открыть Не могу открыть файлы, а нужно узнать что там внутри http://webfile.ru/06f5e7ddf7c0fce72f534d4cf29307d3 http://webfile.ru/81cd4cb5e84e4c45364f87b72b0373e8 http://webfile.ru/9e972a56bd0f7e7111dd3c8fd0786821 http://webfile.ru/460f5d05760cb1fab9a40cfe39ec5d41 https://www.cyberforum.ru/ turbo-pascal/ thread996682.html	Turbo Pascal составить блок схему к коду https://www.cyberforum.ru/ turbo-pascal/ thread996621.html 1) program vgvghv; var a:array of integer; sum:real; i,j: integer; begin writeln('vvedi elementi massiva'); for i:=1 to 5 do for j:=1 to 7 do
Функция, возвращающая среднее из n элементов массива чисел Turbo Pascal Помогите, пожалуйста с заданием. Напишите функцию, которая возвращает среднее из n элементов массива чисел, добавить счётчик итераций.(ПРИМЕЧАНИЕ:без использования рекурсии). Есть только без функции, помогите оформить и добавить счётчик. uses CRT; cоnst n=5; var a: array of integer; i,sum: integer; sr: real; begin clrscr; sum:=0;	Turbo Pascal Дана кривая Дана кривая, заданная уравнением y={x}^{2}+ c и известна длина отрезка. Определить, можно ли данным отрезком соединить точки, координаты которых являются корнями кривой https://www.cyberforum.ru/ turbo-pascal/ thread996600.html
Turbo Pascal Текстовые файлы, строковый тип Заранее спасибо! Дан текстовый файл f . Преобразовать строки файла f по правилу. Преобразованные строки переписать в файл g . Правило: Удалить все символы ‘+’ и ‘–‘ в самой длинной строке. Остальные строки переписать без изменения. Примечание: Текст файла f должен отвечать содержанию задания. https://www.cyberforum.ru/ turbo-pascal/ thread996554.html	Turbo Pascal Добавить счётчики итераций Помогите добавить в каждую программу счётчик итераций, не понимаю куда его добавить. Одна программа с использованием рекурсии, другая нет. При помощи счётчика итераций необходимо увидеть как будет менять эффективность каждая программа на разных объёмах данных. 1-я программа var i,a,b,t,k:integer; function PROIZ(k:integer):real; begin t:=t+k; end;
Turbo Pascal Наименьшее из трех чисел заменить полусуммой двух других Если сумма трех попарно различных действительных чисел xбнбя менше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из x и y полусуммой двух оставшихся значений. https://www.cyberforum.ru/ turbo-pascal/ thread996534.html	Turbo Pascal Найти и вывести остаток от деления числа на 7 Составить программу, которая читает натуральное число а, которое может содержать до 60 цифр. Находит и выводит остаток от деления а на 7. Не знаю как записать чтобы число а содержало не больше 60 цифр https://www.cyberforum.ru/ turbo-pascal/ thread996514.html
Turbo Pascal Описать процедуру печати таблицы Описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные, вычисляют: sin x + tg x; sin x - tg x. x и y изменяются в определенном диапазоне; с - в пределах кодовой таблицы.	Turbo Pascal двумерный массив https://www.cyberforum.ru/ turbo-pascal/ thread996461.html В двумерном массиве что состоит из целочисленных элементов, поменять местами: в каждом столбце первый и последний отрицательные элементы;

Misha_Beginner

5 / 5 / 12

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

Сообщений: 156

04.11.2013, 00:05

В двухмерном массиве вычислить частное от деления суммы всех положительных элементов на сумму всех отрицательных элементов. - Turbo Pascal - Ответ 5281567

04.11.2013, 00:05. Показов 1262. Ответов 2

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

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

Решение

Pascal

Program xxx;
var
a:array[1..3,1..2] of real;
x,sum1, sum2:real;
j,i:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to 2 do begin
write('VVEDI a[',i,j, '] ');
read(a[i,j]);
end;
end;
For i:=1 to 3 do begin
For j:=1 to 2 do begin
if (a[i,j]>0)then
sum1:=sum1+a[i,j]
else
sum2:=sum2+a[i,j];
end;
end;
for i:=1 to 3 do begin
for j:=1 to 2 do begin
x:=sum1/sum2;
writeln('sum1/sum2= ',x);
end;
end;
end.

как то так вроде бы но пусть если что поправлят меня

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

04.11.2013, 00:05

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

В двухмерном массиве вычислить частное от деления произведения всех положительных элементов на произведение всех отрицательных элементов
В двухмерном массиве вычислить частное от деления произведения всех положительных элементов на...

Вычислить частное от деления суммы положительных элементов матрицы на сумму всех отрицательных
В двухмерном массиве вычислить частное от деления суммы всех положительных элементов на сумму всех...

В двумерном массиве вычислить частное от деления произведения всех gоложительных элементов на произведение всех отрицательных элементов
В двухмерном массиве вычислить частное от деления произведения всех положительных элементов на...

Массивы: определение частного от деления суммы всех положительных элементов на количество всех отрицательных элементов массива
Составьте алгоритм определения частного от деления суммы всех положительных элементов на количество...

	04.11.2013, 00:05

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

04.11.2013, 00:05

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

В двухмерном массиве вычислить сумму отрицательных элементов всех нечетных строк
Помогите плиз сделать прогу. 1. Ввести двухмерный массив поэлементно с помощью клавиатуры или...

Массивы: Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
Всем привет, учусь в 9-ом классе. Помогите решить 3 задачи, пожалуйста. 1) Известны данные о...

В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов.
В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов....

Определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
1.определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных...

Наверх