Регистрация
silina2018
14.07.2021 09:56
Информатика
Есть ответ 👍

У Пети и Васи есть два идентичных спортивных самолета, скорость каждого из которых 1000 км/час. Они решили совершить round trip из Петербурга в Москву и обратно (расстояние между городами 666 км). Однако Петя полетел в Москву из Питера в безветренную погоду, и затем вернулся обратно, а Вася -- когда дул ветер со скоростью 30 м/сек, направленный ровно от Москвы к Питеру. Т.о. ветер сопротивлялся Васе, когда он летел туда, и подгонял его на обратном пути. Напишите программу, вычисляющую, кто из них быстрее совершит round trip

234
362
Посмотреть ответы 1

Ответы на вопрос:

Dyhanexis
Dyhanexis
4,6(57 оценок)
//pascal abc.net 3.1 сборка 1256 //без ввода размерности const   n=3;   var   ma1,ma2,mar: array[1..n,1..n] of integer;   i,j,z: integer; begin randomize;   writeln('matrix 1: ');   for i: =1 to n do   begin     for j: =1 to n do     begin       ma1[i,j]: =random(10);       write(ma1[i,j]: 4);     end;     writeln;   end;   writeln('matrix 2: ');   for i: =1 to n do   begin     for j: =1 to n do     begin       ma2[i,j]: =random(10);       write(ma2[i,j]: 4);     end;     writeln;   end; writeln('final matrix: ');   for i: =1 to n do   begin     for j: =1 to n do     begin       for z: =1 to n do         mar[i,j]: =mar[i,j]+ma2[z,j]*ma1[i,z];       write(mar[i,j]: 4);     end;   writeln;   end; end. //c вводом размерности   var   ma1,ma2,mar: array[,] of integer;   i,j,z,n: integer; begin randomize; readln(n); setlength(ma1,n,n); setlength(ma2,n,n); setlength(mar,n,n);   writeln('matrix 1: ');   for i: =0 to n-1 do   begin     for j: =0 to n-1 do     begin       ma1[i,j]: =random(10);       write(ma1[i,j]: 4);     end;     writeln;   end;   writeln('matrix 2: ');   for i: =0 to n-1 do   begin     for j: =0 to n-1 do     begin       ma2[i,j]: =random(10);       write(ma2[i,j]: 4);     end;     writeln;   end; writeln('final matrix: ');   for i: =0 to n-1 do   begin     for j: =0 to n-1 do     begin       for z: =0 to n-1 do         mar[i,j]: =mar[i,j]+ma2[z,j]*ma1[i,z];       write(mar[i,j]: 4);     end;   writeln;   end; end.

Популярно: Информатика