: : Разделы сайта : :
: : Календарь : :
: : Архивы : :
onsite.ru - Профессиональный построитель сайтов
: : &&&&&&&&& : :

Обратная связьСвязь с администрацией

 

лабораторные работы на паскаль (pascal) решение
лабораторные работы на паскаль (pascal) решение
 
Задача 1.
 Дан массив из N натуральных чисел. Указать те числа, остаток от деления которых на М равен L (0 ≤ L ≤ M-1).

program a1;

var

i,n,m,l:integer;

a:array[1..25] of integer;

begin

 writeln('Введите N '); read(n,m,l);

for i:=1 to n do begin

a[i]:=random(10); write (a[i],' ');  end;

writeln;

 for i:=1 to n
do

  if  a[i] mod m = l then  writeln ( a[i],'  ');

  end.

 


Задача 2.

Задан двумерный массив В из 4-х строк и 5-и столбцов. Составить программу, которая организует одномерный массив, каждый элемент которого есть сумма элементов в столбце. Вычислить произведение элементов полученного массива.

 
program a1;

var

i,j,p,l,s:integer;

b:array[1..4,1..5]
of integer;

c:array[1..5]
of integer;

begin

for
i:=1 to 4 do

for
j:=1 to 5 do begin

b[i,j]:=random(10)
end;

 writeln('исходный массив');

 for i:=1 to 4 do begin

for
j:=1 to 5 do    begin

write(b[i,j]:5);end;writeln;end;

 for
j:=1 to 5 do begin

for
i:=1 to 4 do    begin

s:=s+b[i,j];

end;

c[j]:=s;
s:=0;

end;

 writeln('результат'); p:=1;

  for i:=1 to 5 do  begin

    p:=p*c[i];

write(c[i]:10);end;writeln; writeln('произведение = 
');  
writeln(p);

end.

 

Задача 3.


.Составить программу на языке Паскаль для вычисления значения функции  y = f (x) в точках x при заданных значениях a
Нахождение значения функции f(x) при заданных значениях а оформить в виде подпрограммы. Результат вывести в виде двумерной таблицы.

type vector= array [1..20] of real;    
massiv= array [1..20,1..20] of real;

var x,a:vector;   
i,j,n,m:integer;   
y:massiv;

procedure
p(n,m:integer;x,a:vector;var y:massiv);

begin

for i:=1 to n do

 for j:= 1 to m do 
y[i,j]:=(cos(a[j]*x[i]+3))/a[j]*sqrt(1+2*x[i]);

end;

BEGIN

Write ('Ââåäèòå êîëè÷åñòâî
çíà÷åíèé  x è a= ');

Readln(n,m);

for i:=1 to n do

begin

Write ('Ââåäèòå x[',i,']=');

Readln(x[i]);

end;

for j:= 1 to m do

begin

Write ('Ââåäèòå a[',j,']=');

Readln(a[j]);

end;

p(n,m,x,a,y);

Writeln ('         Òàáëèöà');

Writeln('---------------------------------------------------');

Write('X    a?');

for i:=1 to m do

Write(a[i]:3:1,'    ','?');

Writeln;

Writeln('---------------------------------------------------');

for i:=1 to n do   begin 
Write('?',x[i]:3:1,'    ?');  
for j:=1 to m do   
Write(y[i,j]:7:3,'?'); 
Writeln;

end;

Writeln('---------------------------------------------------');

readln;

END.