Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal массивы Задан массив, содержащий разряды рабочих завода. Посчитать количество трудящихся, работающих по первому разряду. https://www.cyberforum.ru/ pascal/ thread79844.html	цикл While Pascal 1. Дано натуральное число n. Вычислить S=12+234+...+n(n+1)...2n var i,s,n:integer; begin readln(n); i:=1; s:=1; while i<>(2n) do begin s:=s+i(i+1); i:=i+1; end;
Pascal Факториала Нужно написать функцию факториала . Скажите пжл что нужно изменить чтоб правильно считала. program Project457; uses crt; var o,n:integer; function fact(n:integer):longint; begin if n=1 then fact:=1 https://www.cyberforum.ru/ pascal/ thread79836.html	Pascal Создать программу-процедуру для вычисления среднего арифметического https://www.cyberforum.ru/ pascal/ thread79835.html Создать программу-процедуру для вычисления среднего арифметического N чисел, где N задается в виде параметра функции.
Pascal Матрицы Дана матрица A(n,m) целых чисел. Получить вектор, элементами которого будет кол-во элементов в с троке равных X(его задаёт пользователь). пожалуста помогите	Pascal Найти номера строк и столбцов всех седловых точек матрицы https://www.cyberforum.ru/ pascal/ thread79829.html Условия задачи: Размерности массива следует задать именованными константами. Все необходимые данные должны передаваться в качестве параметров; все величины, используемые только внутри подпрограмм, должны быть описаны как локальные. Использование глобальных переменных не допускается. Вывод результатов работы должен выводиться в главной программе. Матрица А имеет седловую точку Аij,если...
Pascal Циклы https://www.cyberforum.ru/ pascal/ thread79825.html Задание 1: Вычислить сумму чисел кратных 7 которые меньше 400. Задание 2: Составить программу для вычисления суммы ряда: Е в степени т (1/к*5) К = 1.	Pascal Доделать.. Помогите исправить ошибку.. const max=20; var x:arrayof integer; m,n,i,j,k,t:integer; begin clrscr; randomize; repeat write('vvedite kol-vo strok ot 1 do ',max,' ='); readln(m);
Pascal Образовать множество, которое бы содержало один из элементов множества A и один из элементов множества числа B кто знает как решить Даны множества A; B. Образовать множество, которое бы содержало один из элементов множества A и один из элементов множества числа B https://www.cyberforum.ru/ pascal/ thread79816.html	Pascal Модули https://www.cyberforum.ru/ pascal/ thread79813.html Помогите решить задачу, очень срочно! Реализовать модуль, подключение которого позволяет построчно выводить на экран и в текстовый файл одновременно содержание некоторого непустого текстового файла вставляя в начало каждой печатаемой строки ее порядковый номер.
Pascal Число типа real (6 байт). Сделать структуру данных которая показала бы значение каждого байта этого числа Люди очень срочно, прошу помогите. Дано число типа Real (6 байт). Зделать структуру данных которая позволит узнать что записано в каждом из байтов этого числа. Это надо зделать как то через записи с вариантами. Там должны фигурировать record, case и прочий шлак. Помогите плиз.	Pascal Представить умножение через сложение рекурсией Люди помогите плиз. Нужно представить умножение через сложение при помощи рекурсивной функции. https://www.cyberforum.ru/ pascal/ thread79802.html

yanyk1n

4342 / 1474 / 680

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

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

27.12.2009, 20:06

Перед строкой матрицы с номером К вставить строку из нулей (найти ошибку) - Pascal - Ответ 445967

27.12.2009, 20:06. Показов 3229. Ответов 13

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

Ответ

Pascal

uses crt;
CONST max=20;
var x:array[1..max,1..max]of INTEGER;
    m,n,i,j,k,t:INTEGER;
begin
clrscr;
RANDOMIZE;
repeat
WRITE('Количество строк от 1 до ',max,' m=');
readln(m);
UNTIL m in [1..max];
repeat
WRITE('Количество столбцов от 1 до ',max,' n=');
readln(n);
UNTIL n in [1..max];
Writeln('Исходная матрица:');
FOR i:=1 TO m DO
 begin
  FOR j:=1 TO n DO
   begin
    x[i,j]:=RANDOM(50)+10;
    WRITE(x[i,j]:4);
   END;
  writeln;
 END;
writeln;
writeln('Вставка нулей:');
repeat
WRITE('Введите число от 1 до ',n,' k=');
readln(k);
UNTIL k in [1..n];
for i:=m+1 downto k do for j:=1 to n do x[i,j]:=x[i-1,j];
for j:=1 to n do x[k-1,j]:=0;
FOR i:=1 TO m DO
 begin
  FOR j:=1 TO n+1 DO
  WRITE(x[i,j]:4);
  writeln;
 END;
readln;
END.

Вернуться к обсуждению:
Перед строкой матрицы с номером К вставить строку из нулей (найти ошибку) Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

27.12.2009, 20:06

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

Перед строкой матрицы с номером K вставить строку из нулей
Дана матрица размера M × N и целое число K (1 ≤ K ≤ M). Перед строкой матрицы с номером K вставить...

Перед строкой матрицы с номером вставить строку из нулей
Дана матрица размера МхN и целое число К (1<=K<=M). Перед строкой матрицы с номером вставить...

Перед строкой матрицы с номером вставить строку из нулей
Дана матрица размера МхN и целое число К (1<=K<=M). Перед строкой матрицы с номером вставить строку...

Матрицы. Вставить строку из нулей перед строкой, содержащей элемент, равный а
1.Дана матрица размера M × N, все элементы которой различны. Вставить строку из нулей перед строкой...

	27.12.2009, 20:06

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

27.12.2009, 20:06

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

Вставить пустую строку перед строкой файла с номером k
Помогите решить задание. Дано целое число K и текстовый файл. Вставить пустую строку перед строкой...

Вставить пустую строку перед строкой с заданным номером
10. Дано число k и текстовый файл. Вставить пустую строку перед1|после2 строки с номером k (строки...

Вставить пустую строку перед строкой файла с номером K
Люди добрые, прога не работает. Дано целое число K и текстовый файл. Вставить пустую строку перед...

Вставить пустую строку перед строкой файла с номером K
Дано целое число K и текстовый файл. Вставить пустую строку перед строкой файла с номером K. Если...

Наверх