Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Действия с множествами. https://www.cyberforum.ru/ pascal/ thread115389.html Ребята. Помогите пожалуйста написать програму на Паскале, каторая будет выполнять дуйствия над множествами(об"єдинения,сечение,разница множеств), или (Сумма,произведение). Пожалуйста очень нада.	Pascal задание на паскале народ задали 20 прог на паскальз! вот некоторые я не могу решить! 4: Даны числовой ряд и некоторое число ε. Найти наименьший номер члена последовательности, для которого выполняется условие M. Вывести на экран этот номер и все элементы ai , где I = 1, 2, … , n. вот формула для а...которую надо сделать в программе http://turbobit.net/euumbsm69yow.html 5: Определить количество...
Pascal Работа с текстовыми файлами. https://www.cyberforum.ru/ pascal/ thread115381.html Текстовый файл содержит несколько целых чисел, найти произведение тех чисел, которые в двоичном представлении имеют неравное число нулей и единиц. Вывести в другой текстовый файл данные для построения гистограммы, показывающей равное ли количество нулей и единиц в двоичном числе в зависимости от его порядкового номера (0 – равное, 1 – неравное). Построить такую гистограмму в Excel. Var...	Pascal Даны координаты вершин треугольника и точка, что находится внутри его. найти расстояние от точки до ближайшей стороны. https://www.cyberforum.ru/ pascal/ thread115377.html Даны координаты вершин треугольника и точка, что находится внутри его. найти расстояние от точки до ближайшей стороны.
Pascal Три прямые на плоскости a(k) x + b(k) y = c(k) (k=1,2,3). Если эти прямые пересекаются и образуют треугольник,то найти его площадь. Три прямые на плоскости a(k) x + b(k) y = c(k) (k=1,2,3). Если эти прямые пересекаются и образуют треугольник,то найти его площадь.	Pascal Написать все цифры десятичной записи 2^500 і 1!+2!+3!+... +100!. https://www.cyberforum.ru/ pascal/ thread115375.html Написать все цифры десятичной записи 2^500 і 1!+2!+3!+... +100!. при помощи процедур или функций. Помогите, пожалуйста.
Pascal Переставить цифры в числе Помогите!!! Условие:дано 3-значное число найдите число при перестановки 2 и 3 цифры заданного числа. https://www.cyberforum.ru/ pascal/ thread115374.html	Pascal процедуры и функции Вот задание
Pascal взвешенная норма вектора. https://www.cyberforum.ru/ pascal/ thread115361.html Мне нужно решить задачу: Найти взвешенную норму вектора. Очень надо!!!	Pascal Блок-схема https://www.cyberforum.ru/ pascal/ thread115359.html uses crt; var f,g,p:file of real; r:real; c:char; begin clrscr; assign(f,'fileF'); rewrite(f); assign(g,'fileG'); rewrite(g);
Pascal Численый методы для курсовик Добавлено через 30 минут посмотри и помоги ! :) сделайте эту программу в ооп и разделе program Integral; uses Crt, Dos; var dx,x1,x2,e,i:real; function Fx(x:real):real;	Pascal Можно ли сократить? И если несложно проверте правильно ли работает а то у меня сомнения вот задание Множество 1 заполнено цифрами в интервале от 1 до 10, множество 2 – в интервале от 11-21, а множество 3 заполнено произведением этих двух множеств. Определить какому множеству принадлежит введенный символ с клавиатуры. Сравнить первое множество с третьим применив операции: =, <>, < и >. Результат получить в виде... https://www.cyberforum.ru/ pascal/ thread115320.html

Inadequate

Retired

7727 / 2559 / 671

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

Сообщений: 5,100

11.04.2010, 18:02

Двумерные массивы - Pascal - Ответ 654433

11.04.2010, 18:02. Показов 1125. Ответов 1

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

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

Решение

Pascal

uses
  Crt;
const
  N = 3;
  M = 3;
var
  a: array [1..N, 1..M] of integer;
  i,j,sum,count: integer;
begin
  ClrScr;
  Randomize;
  sum := 0;
  count := 0;
  WriteLn('Èñõîäíàÿ ìàòðèöà: ');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i, j] := Random(8) - 4;
      if (j > i) and (a[i, j] > 0) then
      begin
        Inc(count);
        Inc(sum, a[i, j]);
      end;
      Write(a[i, j]:2, ' ');
    end;
    WriteLn;
  end;
  WriteLn('Ñóììà: ', sum, ' Êîëè÷åñòâî: ', count);
  ReadLn;
end.

Вернуться к обсуждению:
Двумерные массивы Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

11.04.2010, 18:02

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

Двумерные массивы
Определить, есть ли в данном массиве строка (столбец), сотстоящая только из элементов,...

двумерные массивы
Дана матрица M x N. Элементы, у которых сумма номеров строки и столбца четные оставить без...

двумерные массивы
уважаемые пользователи никак не могу разобраться с задачей: дана целочисленная прямоугольная...

Двумерные Массивы
1)Дан двухмерный массив.Поменять местами элементы,расположенных в нижним правом и верхнем левых...

	11.04.2010, 18:02

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

11.04.2010, 18:02

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

Двумерные массивы
Написать программу, которая формирует матрицу NxN в следующем виде: 1 0 0 ... 0 0 1...

Двумерные массивы...
Есть массив B (с помощью рандома) двумерный из 2х строк и 3х столбцов. Через клавиатуру введены 2...

Двумерные массивы
n 0 0 … 0 0 0 0 n-1 0 … 0 0 0 0 0 n-2 … 0 0 0 … … … … … … … 0 0 0 … 0 2 0 0 0 0 … 0 0 1

Двумерные массивы
Сформировать квадратную матрицу порядка n по заданному образцу: 1 1 1 ... 1 1 1 ...

Наверх