Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Записи о студентах (Блок-схема) Const n=15; Var A,B:array of byte; i,k,imax,imin:byte; sr:real; Begin sr:=0;k:=0; For i:=1 to n do Begin write('Введите возраст ',i,'-го студента: ');readln(A); sr:=sr+A; https://www.cyberforum.ru/ turbo-pascal/ thread702710.html	Turbo Pascal Блок схема для двухмерного массива с подпрограммой Помогите с блок схемой Program tk7; var O,J:integer; procedure asd(x:integer; var n:integer); var step:real; begin step:=exp(n*ln(x)); writeln(step); end; begin
Turbo Pascal Блок схема для двух мерного массива https://www.cyberforum.ru/ turbo-pascal/ thread702707.html Помогите с блок схемой Program lab6; const n=5; var i,j:byte; a:array of byte; begin for i:=1 to n do begin for j:=1 to n do begin	Turbo Pascal Составить блок-схему по коду https://www.cyberforum.ru/ turbo-pascal/ thread702677.html как это begin a:=w; w:=''; inc(j); end; отобразить в блок схеме?
Turbo Pascal Вычислить сумму ряда \sum_{k+1}^{n}\frac{({-1}^{k})(k+1)}{k!}	Turbo Pascal программа по формуле https://www.cyberforum.ru/ turbo-pascal/ thread702625.html нужна ваша помощь, не получается
Turbo Pascal Сколько существует шестизначных натуральных чисел https://www.cyberforum.ru/ turbo-pascal/ thread702617.html Задача из олимпиады по математике, вроде решил, но хочу проверить, помогите: Сколько существует шестизначных натуральных чисел, у которых сумма первых двух цифр сумме двух последних цифр?	Функция для вычисления выражения (min(c+d,m,k)+min(k,c,m))/(3+min(k,d-m,c+m)) Turbo Pascal Даны значения c d m k . Напишите функцию min для вычисления выражения (min(c+d,m,k)+min(k,c,m))/(3+min(k,d-m,c+m)).
Turbo Pascal Найти максимальный четный элемент каждого вектора и упорядочить их по убыванию даны три вектора. найти максимальный парный элемент каждого вектора и упорядочить их по убыванию. Поиск максимального элемента вектора выполнить в виде процедуры я делал для одного вектора,потом 2 добавлю) program a10; uses crt; const n=20; type a1=arrayof integer; procedure maxi (var ar: a1 ; k : integer; max:integer); begin max:=-1000; https://www.cyberforum.ru/ turbo-pascal/ thread702600.html	Turbo Pascal Как найти код числа ? y= 5корней из х пожалуйстаааааааааа https://www.cyberforum.ru/ turbo-pascal/ thread702598.html
Turbo Pascal Определение (функции) процедуры: Найти количество чисел, являющихся степенью пятерки Даны натуральное число n и целые числа a1, a2, ..., an. Найти количество чисел, являющихся степенью пятерки. (Определить процедуру (функцию) позволяющую распознавать степени пятерки).	Turbo Pascal Дан массив А(20), в данном массиве все положительные элементы заменить их квадратами и подсчитать сумму элементов полученного массива. Дан массив А(20), в данном массиве все положительные элементы заменить их квадратами и подсчитать сумму элементов полученного массива. Составить программу решения задачи, нарисовать блок-схему. P.S. решали с подругой дня 3, выдает ошибку. Помогите плиз! https://www.cyberforum.ru/ turbo-pascal/ thread702524.html

Darkvoid

8 / 8 / 10

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

Сообщений: 523

После столбца матрицы с номером k вставить столбец из нулей - Turbo Pascal - Ответ 3724257

19.11.2012, 22:42. Показов 1541. Ответов 2

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

Author24 — интернет-сервис помощи студентам

Помогите отредактировать ошибки в данной программе
Суть задачи: Дано число k и матрица размера 4 x 9. После столбца матрицы с номером k вставить столбец из нулей.
сама прога

Pascal

Program laba8;
var k:integer;
procedure asd(var i,j:byte);
begin
a:array [4..9] of byte;
for i:=1 to 4 do
begin
for j:=1 to 9 do
begin
writeln('Введите ',i,',',j,'-й элемент матрицы: ');
readln(a[i,j]);
end;
end;
procedure agd(var i,j:byte);
for i:=1 to 4 do
begin
for j:=1 to 9 do write(a[i,j]:3);
writeln
end;
procedure adf(var i,j:byte);
for i:=1 to 4 do
begin
for j:=1 to 9 do
if k=j then a[j]=0;
end;
begin
for i:=1 to 4 do
begin
for j:=1 to 9 do write(a[i,j]:3);
writeln
end;
readln;
asd(i,j);
agd(i,j);
adf(i,j);
end.

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

19.11.2012, 22:42

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

После столбца матрицы с номером k вставить столбец из нулей
Дано число k и матрица размера 4 x 9. После столбца матрицы с номером k вставить столбец из нулей....

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

После столбца матрицы с номером K вставить столбец из единиц
Дорогие программисты.Решите пожалуста хоть что то из этого. 1)Дана целочисленная матрица размера M...

После столбца матрицы с номером K вставить столбец из единиц.
Не могу найти где надо исправить код.Помогите пжл . Условие задачи: Дана матрица размера M ×...

	19.11.2012, 22:42

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

19.11.2012, 22:42

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

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

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

После столбца матрицы с номером K вставить столбец из единиц
"Last row, which contains even elements:" << lastEvenRow + 1 #include <iostream> #include...

После столбца матрицы с номером K вставить столбец из единиц
Здравствуйте. Помогите написать программу в StringGrig. Дана матрица MxN и целое число K (1<K<N)....

Наверх