![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 06.12.2013
Сообщений: 5
|
![]()
program primer;
var j,i,n:integer; a: array [1..10,1..10] of real; Sum:real; begin writeln('Введите число n (n<=10)'); readln(n); writeln('Введите по ',n,' элементов '); for i:=1 to n do begin write(i,' строки : '); for j:=1 to n do a[i,i]=i*sin(2*i)-cos(i-i) end; Sum:=0; for i:=1 to n do begin Sum:=Sum+a[i,i]; end; writeln; writeln('Ответ'); writeln('Cумма элементов главной диагонали ',Sum); end. |
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
![]() Код:
|
![]() |
![]() |
![]() |
#3 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,504
|
![]()
Это то же задание?
Зачем это ? Код:
Код:
Код:
Кстати, cos(i-i)=cos(0)=1 А что, нельзя было в одном цикле и считать a[i,i] и суммировать их? Последний раз редактировалось type_Oleg; 06.12.2013 в 17:10. |
![]() |
![]() |
![]() |
#4 |
Новичок
Джуниор
Регистрация: 06.12.2013
Сообщений: 5
|
![]()
я врубиться не могу как сделать((
|
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,504
|
![]() Код:
Судя по всему, вы - шаолиньский монах, давший обет ни разу не брать в руки никакого справочника по Паскалю. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
проверьте код и найдите ошибки | Frank63 | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 26.10.2012 21:55 |
Проверьте задания на ошибки!!! | Camelot_2012 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 12.05.2012 00:25 |
проверьте ошибки и недочёты | Smirnov | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 25.04.2012 20:59 |
Проверьте плиз где то ошибки | ТРОЯН=) | Помощь студентам | 2 | 06.02.2009 15:10 |
Проверьте ошибки пожалуйста в задачах. | velgelmina | Помощь студентам | 3 | 09.06.2007 22:10 |