Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить pls
Помогите решить pls
http://s2.ipicture.ru/Gallery/Viewfull/13415372.html
незнаю как записать " корень в третей степени из m квадрат "
1 | Автор: Dtroy | 2012-09-26, 21:11 | Изменено: Dtroy - Ср, 2012-09-26, 21:16   |  Репутация: [ + 0 ]
Пользуйся редактором формул))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-09-26, 21:57   |  Репутация: [ + 211 ]
можешь ссылку дать
3 | Автор: Dtroy | 2012-09-26, 22:12   |  Репутация: [ + 0 ]
3 | Автор: Dtroy | 2012-09-26, 22:12   |  Репутация: [ + 0 ]
Когда ты пишешь сообщение, снизу от тебя есть кнопка "Добавить ответ", а теперь посмотри чуть выше и левее и ты увидишь кнопку "Редактор формул", вот ней и пользуйся))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-09-26, 22:45   |  Репутация: [ + 211 ]
помогите пожалуйста решить задачи! Очень срочно нужно.
1) в массиве М[15] найти наибольший элемент ,затем поменять его с первым.
2)в матрице А [5,5] вычислить сумму элементов побочной диагонали ,произведение элементов главной диагонали.
3) в массиве А [5,5] в каждой строке найти минимальный элемент.
5 | Автор: VadimUps | 2012-10-02, 18:00   |  Репутация: [ + 0 ]
Quote (VadimUps)
1) в массиве М[15] найти наибольший элемент ,затем поменять его с первым.

var
a:array[1..15]of integer;
i,max,p,q:integer;
begin
max:=low(max);
for i:=1 to 15 do begin
read(a[i]);
if a[i]>max then begin max:=a[i];p:=i;end;
q:=a[p];
a[1]:=max;
a[p]:=q;
for i:=1 to 15 do
write(a[i],' ');
end.

Quote (VadimUps)
2)в матрице А [5,5] вычислить сумму элементов побочной диагонали ,произведение элементов главной диагонали.


var
a:array[1..5,1..5]of integer;
i,j,sum,pr:integer;
begin
pr:=1;
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then pr:=pr*a[i,j];
if j=5-i+1 then sum:=sum+a[i,j];end;
writeln(pr,' ',sum);
end.

Quote (VadimUps)
3) в массиве А [5,5] в каждой строке найти минимальный элемент.

var
a:array[1..5,1..5]of integer;
i,j,min;
begin
min:=high(min);
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 5 do begin
for j:=1 to 5 do
if a[i,j]<min then min:=a[i,j];
writeln(min);min:=high(min);end;
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2012-10-02, 20:33   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить pls
Страница 1 из 11
Поиск: