Нужна . будет дано 4 программы. нужно составить блок-схемы. , нужно. увы, почему-то сама я не понимаю program summation; var i, summa,a: integer; error: integer; begin summa : =0; write('введите натуральное числo: '); repeat read(a); if (a< 0) or (error< > 0) then writeln('число неверно задано! повторите ввод! '); until (a> =0) and (error=0); for i: =1 to a do summa: =summa +i; writeln('сумма натуральных чисел из промежутка [1,a]: ', summa); readln; end. var a: real; i: integer; begin a: =10; for i: =1 to 7 do begin a: =a+(a*0.1); end; write(a,' '); end. var n,i: integer; s: real; begin writeln('вычисление частичной суммы ряда: 1+1/2+1/3+…'); write('введите количество суммируемых членов ряда -> '); readln(n); s: =0; for i: =1 to n do s: =s+(1/i); writeln('сумма первых ',n,' членов ряда равна: ',s); readln; end. uses crt; var i: integer; begin i: =3; repeat write(i,' '); i: =i+3; until i> =1000; end.
Массив (в некоторых языках программирования также таблица, ряд, матрица, вектор) — структура данных, хранящая набор значений (элементов массива), идентифицируемых по индексу или набору индексов, принимающих целые (или приводимые к целым) значения из некоторого заданного непрерывного диапазона. Одномерный массив можно рассматривать как реализацию абстрактного типа данных — вектор.
Размерность массива — это количество индексов, необходимое для однозначной адресации элемента в рамках массива[1][2]. По количеству используемых индексов массивы делятся на одномерные, двумерные, трёхмерные и т. д.
Форма или структура массива — сведения о количестве размерностей и размере (протяжённости) массива по каждой из размерностей[3]; может быть представлена одномерным массивом[4].
Особенностью массива как структуры данных (в отличие, например, от связного списка) является константная вычислительная сложность доступа к элементу массива по индексу [5]. Массив относится к структурам данных с произвольным доступом.
В простейшем случае массив имеет константную длину по всем размерностям и может хранить данные только одного, заданного при описании, типа. Ряд языков поддерживает также динамические массивы, длина которых может изменяться по ходу работы программы, и гетерогенные массивы, которые могут в разных элементах хранить данные различных типов.
Var
s1,s2,c:string;
i:integer;
begin
write('Type s1:');
readln(s1);
write('Type s2:');
readln(s2);
if length(s1)>length(s2) then
begin
for i:=1 to length(s1) do
if (s1[i]>='0') and (s1[i]<='9') then write(s1[i]);
writeln;
for i:=1 to length(s2) do
if ord(s2[i])>70 then write(s2[i]);
end
else
begin
for i:=1 to length(s1) do
if ord(s1[i])>70 then write(s1[i]);
writeln;
for i:=1 to length(s2) do
if (s2[i]>='0') and (s2[i]<='9') then write(s2[i]);
end;
end.
Пример ввода:
Type s1:Mi Zu
Type s2:MeL10N
Пример вывода:
MiZu
10