uses crt;
var D: array[1..8] of integer; i:integer;
begin
D[1]:=12; D[2]:=14; D[3]:=15; D[4]:=17; D[5]:=19; D[6]:=20; D[7]:=22; D[8]:=24;
writeln('диагональ монитора в дюймах');
for i:=1 to 8 do write(D[i]:4);
writeln;
writeln('диагональ монитора в сантиметрах');
for i:=1 to 8 do
D[i]:=round(D[i]*2.54);
for i:=1 to 8 do write(D[i]:4);
readkey;
end.
D[i] := round(D[i]*2.54);
Преобразование единиц измерения
uses crt;
var S:array[1..6] of integer;
i:integer;
begin
writeln('Введите значения скоростей в км/ч');
for i:=1 to 6 do
read(S[i]);
writeln('Значения скоростей в м/с: ');
for i:=1 to 6 do
begin
S[i]:=round(S[i]/3.6);
write(S[i],', ')
end;
readkey;
end.
Начало
i=1…6
Ввод S[i]
i=1…6
S[i]=s[i]/3.6
Вывод S[i]
Конец
Да
Нет
Да
Нет
uses crt;
var A:array[1..12]of integer; i:integer;
begin
for i:=1 to 12 do
begin
A[i]:=random(41) - 20;
write (A[i]:4);
end;
writeln;
for i:=1 to 12 do
begin
if A[i]<0 then A[i]:= -1;
write (A[i]:4);
end;
readkey;
end.
Преобразование элементов массива, удовлетворяющих определённым условиям
4
5
6
B:=A[2]
A[2]:=A[5]
A[5]:=B
A[2]
B
A[5]
4
4
7
7
4
7
7
4
4
uses crt;
var A:array[1..15] of integer; {Описание массива}
i,B:integer;
begin
writeln('Исходный массив:');
for i:=1 to 15 do {Цикл ввода элементов массива}
begin
A[i]:=random(41)-20;
write(A[i]:4);
end;
writeln;
B:=A[1]; {Перестановка 1 и 15 элементов массива}
A[1]:=A[15];
A[15]:=B;
writeln('Изменённый массив:');
for i:=1 to 15 do write(A[i]:4) {Вывод изменённых эл-тов массива}
readkey;
end.
uses crt;
var E:array[1..15] of integer; {Описание массива}
i:integer;
begin
writeln('Исходный массив:');
for i:=1 to 15 do
begin
E[i]:=random(41)-20; {Ввод элементов массива}
write(E[i]:4); {Вывод исходных элементов массива}
end;
writeln; writeln('Изменённый массив:');
for i:=1 to 15 do {Цикл преобразов. и вывода элементов массива}
begin
if E[i] mod 2=0 then E[i]:=E[i]/2
else E[i]:=E[i]*3;
write(E[i]:4);
end;
readkey;
end.
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть