ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 19.04.2024
Просмотров: 29
Скачиваний: 0
const
SIZE=255;
var
a : array[1..SIZE] of integer;
min, i, j, n, t : integer;
begin
write('vvedite n: ');
readln(n);
write('vvedite massiv: ');
for i := 1 to n do
read(a[i]);
for i := 1 to n do
begin
for j := n downto i do
begin
if a[i] > a[j] then
begin
min := a[j];
a[j] := a[i];
a[i] := min;
end;
end;
end;
for i := 1 to n do
write(a[i], ' ');
writeln;
end.
Дана последовательность
чисел
.
Используя сортировку вставками, написать
программу (на языке Visual Basic или Pascal)
упорядочивания элементов по убыванию.
const
SIZE=255;
var
a : array[1..SIZE] of integer;
min, i, j, n, t : integer;
begin
write('vvedite n: ');
readln(n);
write('vvedite massiv: ');
for i := 1 to n do
read(a[i]);
for i:=1 to n do
begin
t := a[i];
j:=i-1;
while (j>=0) and (a[j] > t) do
begin
a[j+1]:=a[j];
j:=j-1;
end;
a[j+1]:=t;
end;
for i := 1 to n do
write(a[i], ' ');
writeln;
end.
Написать программу
на языке Pascal для решения задачи: Вычислить
значение суммы членов бесконечного
ряда
c
заданной точностью ε. На печать вывести
значение суммы и число членов ряда,
вошедших в сумму.
const
eps=0.001;
var
x, s, Sum : Double;
n, k, fak : Integer;
begin
Sum:=1;
s:=1;
n:=0;
repeat
n := n + 1;
fak := 1;
for k := n downto 1 do fak := fak * k;
s := cos(n*x)/fak;
Sum:= Sum+s;
until abs(s)<Eps;
writeln('Sum chlenov radya: ',Sum);
writeln('Count: ',n);
end.
Написать программу на языке Pascal для решения задачи: Протабулировать функцию при изменении аргумента в указанном диапазоне и c заданным шагом. Организовать вывод значения аргумента и вычисленного значения функции в виде таблицы.
VAR
x, y,
xmin, xmax, dx : Real;
BEGIN
Writeln('Tab function.');
xmin := 2;
xmax := 5;
dx := 0.25;
x := xmin;
WHILE x<=xmax DO begin
if x > 3.5 then
begin
y := sin(x)*(ln(x)/ln(10));
end
else
begin
y := cos(x)*cos(x);
end;
Writeln(x:6:3, ' ', y:6:3);
x := x+dx;
end;
Readln
END.
Написать программу на языке Pascal для решения задачи: Отредактировать заданное предложение, заменяя многоточия точкой.
VAR
s : String;
i, j : integer;
BEGIN
Write('Vvedite string:');
readln(s);
for i := 1 to Length(s) do
begin
if copy(s,i,3) = '...' then
begin
delete(s,i,2);
end;
end;
writeln(s);
END.