Задать вопрос
Портал помощи студентам №1

Учебные работы на заказ без посредников
и переплат!

,

ул. Добролюбова, 16/2

support@professsor.com
Служба техподдержки
Решение задачЗаказ 7493

Перевести с Pascal на C#

159

Успешно выполнено

24 января 2018 в 15:07
25 января
Исполнитель
Majento
Описание работы

Перевести вот это на C# консольное приложение; USES CRT; var i,j,m,n,maxs,mins,maxmin,minmax:integer; t:array [1..10,1..10] of integer; BEGIN clrscr; writeln('m-? n-?');readln(m,n); writeln('заполните таблицу стратегий'); for i:=1 to m do begin writeln('строка',i,' :'); for j:=1 to n do readln(t[i,j]); writeln; end; for i:=1 to m do begin mins:=t[i,1]; t[i,n+2]:=1; write(' '); for j:=1 to n do begin write(t[i,j]:3); if t[i,j]maxs then begin maxs:=t[i,j]; t[m+2,j]:=i; end; t[m+1,j]:=maxs; end; writeln('____________________________________________'); write('max ');for j:=1 to n do write(t[m+1,j]:3); writeln; write('№ стр ');for j:=1 to n do write(t[m+2,j]:3); writeln; maxmin:=t[1,n+1]; mins:=t[1,n+2]; for i:=2 to m do if maxmint[m+1,j] then begin minmax:=t[m+1,j]; maxs:=t[m+2,j];end; writeln('стратегия первого - ',minmax); writeln('стратегия второго - ',maxmin); if minmax=maxmin then writeln('седловая точка [',maxs,', ',mins,']=',t[maxs,mins]) else writeln('нет седловой точки'); END.


Вход на сайт
Войти
Данная функция доступна только
для зарегистрированных пользователей
Пожалуйста, авторизуйтесь, или пройдите регистрацию
Войти
Подтвердите ваш e-mail

Для завершения регистрации подтвердите свой e-mail: перейдите по ссылке, высланной вам в письме.

После этого будет создан ваш аккаунт и вы сможете войти на сайт и в личный кабинет.

ОК