Получение третьего массива из двух - C#

Узнай цену своей работы

Формулировка задачи:

Даны два двумерных массива из 12 строк и 28 столбцов. В первом из них записано количество осадков (в мм), выпавших за каждый из первых 28 дней каждого месяца 2009 года, во втором — аналогичные сведения за 2010 год. Получить третий массив с данными об изменении количества осадков для каждого дня (в мм). И сразу аналогичная задача но на паскале которую нужно перевести
Листинг программы
  1. uses crt;
  2. const nmax=20;
  3. const n=12;
  4. m=28;
  5. var a,b,c:array[1..n,1..m] of integer;
  6. i,j:byte;
  7. begin
  8. clrscr;
  9. writeln('ГЊГ*Г±Г±ГЁГў A:');
  10. for i:=1 to n do
  11. begin
  12. for j:=1 to m do
  13. begin
  14. a[i,j]:=random(20)-5;
  15. write(a[i,j]:4);
  16. end;
  17. writeln;
  18. end;
  19. writeln;
  20. writeln('ГЊГ*Г±Г±ГЁГў B:');
  21. for i:=1 to n do
  22. begin
  23. for j:=1 to m do
  24. begin
  25. b[i,j]:=random(20)-5;
  26. write(b[i,j]:4);
  27. end;
  28. writeln;
  29. end;
  30. writeln;
  31. write('ГЌГ*æìèòå Enter äëÿ ïðîäîëæåГ*ГЁГї');
  32. readln;
  33. writeln('Òðåòèé Г¬Г*Г±Г±ГЁГў:');
  34. for i:=1 to n do
  35. begin
  36. for j:=1 to m do
  37. begin
  38. c[i,j]:=b[i,j]-a[i,j];
  39. write(c[i,j]:4);
  40. end;
  41. writeln;
  42. end;
  43. readln
  44. end.
Листинг программы
  1. program sds;
  2. var a:array[1..20,1..2] of integer;
  3. i,j,t:integer;
  4. f1, f2: text;
  5. begin
  6. assign(f1,'1.in');
  7. reset(f1);
  8. assign(f2,'1.out');
  9. rewrite(f2);
  10. for i:=1 to 15 do
  11. for j:=1 to 2 do
  12. readln(f1,a[i,j]);
  13. for i:=15 downto 1 do
  14. if i mod 3=0 then
  15. begin
  16. for t:=20 downto i+1 do
  17. for j:=1 to 2 do
  18. a[t,j]:=a[t-1,j];
  19. for j:=1 to 2 do
  20. a[i+1,j]:=0;
  21. end;
  22. for i:=1 to 20 do
  23. begin
  24. for j:=1 to 2 do
  25. write(f2,'A[',i:2,',',j:2,'] ',a[i,j]:4,' ');
  26. writeln;
  27. end;
  28. close(f1);
  29. close(f2);
  30. end.

Решение задачи: «Получение третьего массива из двух»

textual
Листинг программы
  1. using System;
  2. using System.Collections.Generic;
  3. using System.Linq;
  4. using System.Text;
  5. using System.Threading.Tasks;
  6.  
  7. namespace rainfall
  8. {
  9.     class Program
  10.     {
  11.         static void Main(string[] args)
  12.         {
  13.             Random rnd = new Random();
  14.             int n = 12, m = 28, nmax = 20;
  15.             int[,] a  = new int[n, m];
  16.  
  17.             int i = 0;
  18.             Console.Write("Маcсив А:\n");
  19.             while (i < n)
  20.             {
  21.                 for (int j = 0; j < m; j++)
  22.                 {
  23.                     a[i, j] = rnd.Next(0, 20) - 5;
  24.                     Console.Write(String.Format("{0,4:#}", a[i, j]));
  25.                 }
  26.                 Console.Write("\n");
  27.                 i++;
  28.             }
  29.             Console.Write("Маcсив В:\n");
  30.             int[,] b = new int[n, m];
  31.             i = 0;
  32.             while (i < n)
  33.             {
  34.                 for (int j = 0; j < m; j++)
  35.                 {
  36.                     b[i, j] = rnd.Next(0, 20) - 5;
  37.                     Console.Write(String.Format("{0,4:#}", b[i, j]));
  38.                 }
  39.                 Console.Write("\n");
  40.                 i++;
  41.             }
  42.             Console.Write("Нажмите Enter для продолжения");
  43.             Console.ReadKey();
  44.             Console.Write("\nТретий маcсив:\n");
  45.             int[,] с = new int[n, m];
  46.             i = 0;
  47.             while (i < n)
  48.             {
  49.                 for (int j = 0; j < m; j++)
  50.                 {
  51.                     с[i, j] = b[i, j] + a[i, j];
  52.                     Console.Write(String.Format("{0,4:#}", с[i, j]));
  53.                 }
  54.                 Console.Write("\n");
  55.                 i++;
  56.             }
  57.         }
  58.     }
  59. }

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.625 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы