сервис вопросов и ответовпожалуйста помогите переставить 3 и 5 столбец и 3 и 5 строку в массиве ...вроде правильно написала но выходит ошибка
10-11 класс|
|
program mas55;
const n=5;
type st=array[1..n] of real;
var i,j,d:integer;
b:st;
a:array[1..n] of st;
begin
for i:=1 to n do
for j:=1 to n do if j=3 then a[i,j]:=sqr(i)*j else a[i,j]:=2;
for i:=1 to n do
begin
for j:=1 to n do write (a[i,j]:6);
writeln
end;
writeln;
b:=a[3];
a[3]:=a[4];
a[4]:=b;
for i:=1 to n do
begin
for j:=1 to n do write (a[i,j]:6);
writeln;
for i:=1 to n do
begin
d:=a[i,3];
a[i,3]:=a[i,5];
a[i,5]:=d
end;
for i:=1 to n do
begin
for j:=1 to n do write (a[i,j]:6);
writeln
end;
writeln
end
end.
Эльвирунька
16 авг. 2016 г., 23:20:45 (7 лет назад)
Lena1003
17 авг. 2016 г., 0:20:45 (7 лет назад)
Вот мое решение данной задачи.
Sergee72
17 авг. 2016 г., 2:48:26 (7 лет назад)
program mas55;
const n=5;
type st=array[1..n] of real;
var i,k,u,j:integer; d:real;
b:st;
a:array[1..n] of st;
begin
for i:=1 to n do
for j:=1 to n do if j=3 then a[i,j]:=sqr(i)*j else a[i,j]:=2;
for i:=1 to n do
begin
for j:=1 to n do write (a[i,j]:6);
writeln
end;
Aimankt
17 авг. 2016 г., 5:24:42 (7 лет назад)
writeln;
b:=a[3];
a[3]:=a[4];
a[4]:=b;
for i:=1 to n do
begin
for j:=1 to n do write (a[i,j]:6);
writeln;
for k:=1 to n do
begin
d:=a[k,3];
a[k,3]:=a[k,5];
a[k,5]:=d
end;
for u:=1 to n do
begin
for j:=1 to n do write (a[u,j]:6);
writeln
end;
writeln
end
end.
Roma32970com
17 авг. 2016 г., 7:21:58 (7 лет назад)
Вот что выходит, если исправить твои ошибки
Ответить
Другие вопросы из категории
Даны числа А,В, и С .
Меньшее из них заменить полусуммой двух других
Нужно составить программку на Паскале.
Задача: Составить программу, которая подсчитывает количество цифр(символов) перед и после запятой. То есть, например, дано число 325,43
Программа должна выдать:
3, а затем, 2
Читайте также
Задания за 9 класс. Ребят, помогите, пожалуйста. С Exel работать надо, на компьютере его нет (на windows 8 перешла), к тому же, честно говоря, не умею им
пользоваться. Добрые люди, пожалуйста, помогите :с Завтра сдавать :с
Пожалуйста помогите найти текст про садовые цветы(растения)
срочно пожалуйста!!!!!!1
срочно!
Помогите пожалуйста с блоком схемы!
Дана квадратная матрица порядка S. Обнулить из неё каждый третий столбец.В полученном массиве найти сумму чётных элементов.
ПАСКАЛЬ АБС! СРОЧНО! ПОМОГИТЕ ПОЖАЛУЙСТА!
1. напишите программу формирования массива размером 5*5 с помощью датчика случайных чисел. Замените в нем нечетные значения элементов максимальным. Выведите на экран исходный и измененный массивы.
2. Составьте программу формирования и вывода на печать одномерного массива, состоящего из максимальных элементов строк двумерного массива, заданного с помомщью датчика случайных чисел
Помогите решить, пожалуйста! Хотя бы некоторые задачи.
1. Найти сумму (произведение) элементов 1-й строки (столбца) массива Т (6,4).
2. Заполните матрицу, элементами которой является произведение номеров строк и столбцов соответствующих элементов.
3. Вычислить сумму и произведения элементов матрицы Z (4,6).
4. Вычислить сумму и произведение элементов матрицы А(5,5).
Язык программирования - Pascal.
Вы находитесь на странице вопроса "пожалуйста помогите переставить 3 и 5 столбец и 3 и 5 строку в массиве ...вроде правильно написала но выходит ошибка", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.