Студопедия

КАТЕГОРИИ:

АстрономияБиологияГеографияДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРиторикаСоциологияСпортСтроительствоТехнологияФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника


РАБОТА С ДВУМЕРНЫМ МАССИВОМ. Составить схему алгоритма и программу решения задачи обработки двумерного массива.




Задание 9

Составить схему алгоритма и программу решения задачи обработки двумерного массива.

Сформировать матрицу, недиагональные элементы которой равны удвоенным элементам матрицы А, а диагональные элементы равны нулю:

.

 

const n=3;

var a:array[1..n,1..n] of real;

i,j:integer;

begin

for i:=1 to n do

for j:=1 to n do

readln(a[i,j]);

for i:=1 to n do

for j:=1 to n do

begin

if (i=j) or (i=n-j+1) then a[i,j]:=0

else

a[i,j]:=2*a[i,j];

end;

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]:4:1,' ');

writeln;

end;

readln;

end.

 

 

ОРГАНИЗАЦИЯ ПРОГРАММ, СОДЕРЖАЩИХ ФУНКЦИИ ПОЛЬЗОВАТЕЛЯ

 

Задание 10

Составить программу вычисления функции W, используя функции пользователя.

function z(x,y:real):real;

begin

z:=exp(1/4*ln(sqr(cos(x))+sqr(cos(y))));

end;

var a,b,c,d,w:real;

begin

write(“Введите A:”);

readln(a);

write(“Введите B:”);

readln(b);

write(“Введите C:”);

readln(c);

write(“Введите D:”);

readln(d);

w:=z(a,b)-z(c,d)-ln(1+z(b,c));

writeln(w:12:11);

readln;

end.


Поделиться:

Дата добавления: 2015-02-10; просмотров: 110; Мы поможем в написании вашей работы!; Нарушение авторских прав





lektsii.com - Лекции.Ком - 2014-2024 год. (0.006 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав
Главная страница Случайная страница Контакты