Создайте квадратный массив и поверните на 180 градусов - Turbo Pascal

  1. Создайте квадратный массив из N строк и N столбцов,состоящий из натуральных чисел.Поверните его на 180 и выведите результат на экран монитьора


textual

Код к задаче: «Создайте квадратный массив и поверните на 180 градусов - Turbo Pascal»

program mas;
uses crt;
 
var C:array[1..100] of integer;
 
    i,j,k,n:integer;
begin
    clrscr;
    write('vvedite kolichestvo elementov massiva C = ');
    readln(n);
    writeln('vvedite elementi massiva');
    for i:=1 to n do
       for j:=1 to n do
       begin
         readln(C[i,j]);
       end;
 
    writeln('Nachalnay matrica');
    for i:=1 to n do
    begin
       for j:=1 to n do
       begin
         write(C[i,j]);
       end;
     writeln;
     end;
 
    for i:=1 to n do
    begin
       for j:=1 to n do
          begin
            k:=c[i,j];
            c[i,j]:=c[n-i+1,n-j+1];
            c[n-i+1,n-j+1]:=c[i,j];
          end;
    end;
   writeln('konechnay matrica');
    for i:=1 to n do
    begin
       for j:=1 to n do
       begin
         write(C[i,j]);
       end;
     writeln;
     end;
readln;
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.143 из 5



Похожие ответы
  1. Помогите,пожалуйста, написать программу в Pascal

  1. Создайте программу обхода дерева по принципу левый – правый – корень pls)0

  1. Помогите, пожалуйста, написать программу. Дан текстовый файл, содержащий вещественные числа. Создайте два новых файла из положительных и отрицательных чисел соответственно. Подсчитать количество компонент в полученных файлах.

  1. Создайте процедуру, которая сортирует три аргумента по возрастанию: так чтобы в 1-ый аргумент попало самое маленькое число, во 2-ой – среднее, в 3-ий самое большое.

  1. Создайте свой собственный модуль, реализующий математические функции, которых нет среди стандартных функций языка Паскаль (тангенс, котангенс, обратные тригонометрические функции, возведение в степень и т.п.).

  1. Создайте квадратный массив из N строк и N столбцов,состоящий из натуральных чисел.Поверните его на 180 и выделите результат на экран монитора.

  1. Помогите написать программу,которая заменяет в двумерном массиве целых чисел все элементы массива на квадратный корень из этого элемента) Заранее спасибо

  1. Помогите написать программу В двумерном массиве целочисленных чисел нужно заменить все элементы массива на квадратный корень этих элементов. Заранее спасибо)

  1. в файл записан квадратный массив,нужно прочитать главную диагональ не используя массив.Немогу понять как это сделать???Помогите пожалуйста....