Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 29.11.2010, 17:59   #1 (permalink)
ducky
Новичок
 
Регистрация: 06.11.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Smile Массивы. Сумма заштрихованной области.

подскажите пожалуйста..

условие - var A:array [1..9.1..9] of real; s:real;
Найти s — сумму элементов из заштрихованной области массива А (пункт "б" на рисунке) 10ggopc.jpg (заштрихованная область на рисунке, как диагонали в матрицах...правда тут это не очень видно)

вышло вот что..но по-моему не то что нужно...

uses crt;
var
a:array[1..4,1..4] of real;
s:real; i,j:integer;c,k:real;
begin
clrscr;
FOR I:=1 TO 3 DO
for j:=1 to 3 do
begin
write ('a[',i,',',j,']=');
readln(a[i,j])
end;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
write(a[i,j]:6:2);
writeln;
end;
writeln;
c:=a[2,2];
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
if (i=j) or (i+j=4) then k:=k+ a[i,j];

end;
s:= k;

writeln('suma elementiv= ',s:6:2);
readln
end.
ducky вне форума   Ответить с цитированием

Старый 29.11.2010, 17:59
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Если вас интересует быстрое решение проблемы, обратите внимание на эти темы

Пропадают значки в области уведомлений
Паскаль. Сумма цифр числа
Сумма числового ряда
Сумма числового ряда. Найдите ошибку
Контрольная сумма

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 01:40.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.