Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Суммирование ряда https://www.cyberforum.ru/ turbo-pascal/ thread269953.html как записать программу на Турбо паскаль вот такую сумму X-(2x^2)/6+((25)x^3)/(69)-....+- ((25)...(3i-4))/((69)...3i))-+.... контрольная формула 3*((1+x)^1/3)-3	Turbo Pascal Поменять в массиве местами максимальный и минимальный элементы В заданном массиве A поменять местами максимальный и минимальный элементы. Вывести преобразованный массив на экран.
Turbo Pascal Вычислить значение выражения A = P * D/ (2y * w ) + С , D= 200 ; y = 0,893*10 в 6 степени ; w = 0,65 ; С = 0,5 P - ввести с клавиатуры; A - вывести на экран. https://www.cyberforum.ru/ turbo-pascal/ thread269950.html	Turbo Pascal Преобразовать последовательность. даны натуральное число N, символы s[1],..,s[n] https://www.cyberforum.ru/ turbo-pascal/ thread269943.html Даны натуральное число N, символы s,..,s. Преобразовать последовательность заменяя слово это на слово то.
Вычислить значение выражения Turbo Pascal V = Vнулевое ( 2y - 2 y^ 3 + y^4 ) , Vнулевое = 2 y - ввести с клавиатуры; V - вывести на экран.	Turbo Pascal Вычислить пример где X[i], Y[i] заданы массивами. https://www.cyberforum.ru/ turbo-pascal/ thread269937.html вычислить z=(sin(X)+cos(Y))/abs(X). Все суммы вычислять в одной подпрограмме.
Turbo Pascal В N колхозах выращивают некоторые сельскохозяйственные культуры Из имеющегося перечня. Определить культуры: возделываемые во всех колхозах В N колхозах выращивают некоторые сельскохозяйственные культуры Из имеющегося перечня. Определить культуры: возделываемые во всех колхозах https://www.cyberforum.ru/ turbo-pascal/ thread269916.html	Дана последовательность действительных чисел a1, a2, ..an. Выяснить, будет ли она возрастающей Turbo Pascal Вариант 4. Дана последовательность действительных чисел a1, a2, ..an. Выяснить, будет ли она возрастающей. Напишите текст программы который бы выпонлял условие проги , заранее спасибо
Turbo Pascal Определить К-тый по порядку элемент этой матрицы, если элементы ее расположены по спирали https://www.cyberforum.ru/ turbo-pascal/ thread269907.html Добавлено через 1 час 37 минут дана матрица А. Определить К-тый по порядку элемент этой матрицы, если элементы ее расположены по спирали. На завтра, помогите пожалуйста	Turbo Pascal Ряд Тейлора, на интервале от хнач до xкон с шагом dx с точностью е. Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от хнач до xкон с шагом dx с точностью е. Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда. Тело знаю как написать, помогите с формулами. https://www.cyberforum.ru/ turbo-pascal/ thread269900.html
Turbo Pascal с целыми числами. 97) Дано натуральное число n. Переставить местами первую и последнюю цифру этого числа. 98) Даны 2 натуральных числа m и n(m<=9999, n<=9999). Проверить, есть ли в записи числа m цифрыб одинаковые с цифрами в записи числа n. 99) Дано натуральное число n. Проверить, есть ли в записи числа три одинаковые цифры (n<=9999). 100) Дано натуральное число n<= 99. Дописать к нему цифру k в конец и в...	Turbo Pascal Найти сумму первой и последней цифры этого числа https://www.cyberforum.ru/ turbo-pascal/ thread269865.html Дано натуральное число n. Найти сумму первой и последней цифры этого числа

KaiTheCat

К.О.

534 / 499 / 344

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

Сообщений: 1,141

04.04.2011, 16:49

Вычислить отношение числа положительных элементов к числу отрицательных элементов - Turbo Pascal - Ответ 1519323

04.04.2011, 16:49. Показов 1125. Ответов 1

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

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

Решение

Pascal

var
  a: array[1..100,1..100] of integer;
  i,j,n,m,p,o: integer;
  z: real;
 
begin
  randomize
  readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=round(random(40)-20);
          write(a[i,j],' ');
        end;
      writeln;
    end;
  writeln;
 
  p:=0;
  o:=0;
  for i:=1 to n do
  for j:=1 to m do
    begin
      if a[i,j]>0 then inc(p);
      if a[i,j]<0 then inc(o);
    end;
  z:=p/o;
  writeln(z:0:1);
  readln;
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

04.04.2011, 16:49

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

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

Найти отношение суммы положительных элементов матрици к сумме отрицательных элементов
Дана матрица А размером (n*m) Найти отношение суммы положительных элементов матрици к сумме...

В заданной матрице вычислить отношение суммы элементов побочной диагонали к количеству положительных элементов
Получить матрицу А(5,5), для которой (1-ая картинка во вложении), (i=1,…,5; j=1,…,5). Вычислить...

Массив: Вычислить количество нулевых элементов, сумму положительных элементов и среднее значение отрицательных элементов
дан массив A(10). Вычислить количество нулевых элементов, сумму положительных элементов и среднее...

	04.04.2011, 16:49

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

04.04.2011, 16:49

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

Вычислить сумму всех положительных элементов массива и произведение отрицательных элементов
Задание: Ввести с клавиатуры целое число K(от 6 до 15). Ввести с клавиатуры массив K элементов...

Вычислить сумму положительных элементов, произведение отрицательных элементов
x П (а*а+1)/(2к+5)=р a=1 х-запросить у пользователя Написать программу в Turbo Pascal по...

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

Вычислить сумму положительных элементов и произведение отрицательных элементов
1.Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе ...

Наверх