uses crt;
var a:array[1..11] of integer;
i,j,s,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do begin
a[i]:=random(5);
write(a[i]:4);
end;
s:=1; k:=0;
for i:=1 to 10 do begin
if a[i]=a[i+1] then s:=s+1;
if a[i]<>a[i+1] then begin if k<s then k:=s; s:=1; end;
end;
writeln;
writeln('Наибольшая последовательность одинаковых элементов: ',k);write(k);
end.
Массив состоит из 10 чисел (в описании максимум чисел должен быть на 1 больше, чем по факту, поэтому там 11). Числа в массиве задаются случайно в пределах от нуля до 5 (не включая 5).
Составить структурную схему алгоритма и программу на языке Qbasic для вычисления f:
a=-1
b=4
f1(x) x<a
f2(x) a<=x<b
f3(x) x>=b
f1(x)=(a-x)/(2+3x^2) ; f2(x)=(a+b)x-x^2-ab; f3(x)=(b-x)/(5+x^2)
2.
Составить структурную схему алгоритма и программу на языке Qbasic
m=17
задание на программирование: составить программу вычисления m значений переменной Xk по рекурентной формуле
Xk=(далее выражение под корнем)2*(Xk-1)^2-7(Xk-1)+9
для k=1,2,3,...,m
3.
Составить структурную схему алгоритма и программу на языке Qbasic
a=4
b=12
Задание на программирование:
диффиренциал от a до b x^2*bx
4.
Составить блок схему алгоритма и программу на языке Qbasic при решении диффиренциального уравнения методом Эйлера:
(dy/dt)*2y+t=0
при y0=25; t0=0; tk=30; n=30
5.
Составить программу для вычисления основных статистических показателей выработки 2^x попарносвязанный значени x и y. РАсчитать основные статистические показатели для выработки:
x y
23 8
21 9
20 10
7 18
2 1
13 6