Запрограммировать шесть циклических алгоритмов (Паскаль)1) Напечатать таблицу перевода расстояний в дюймах в сантиметры (1 дюйм равен 2, 54 см) для значений от 1 до 10 дюймов с шагом 1. 2) За 1 день рабочий изготовил 5 деталей. Напечатать, сколько деталей рабочий изготовит за 5, 6, 7, 8, 9, 10 дней. 3) В день корова даёт 6 литров молока. Сколько молока даст корова за 3, 4, 5, ..., 10 дней?.4)В первый день спортсмен пробежал 10 км. Каждый следующий день спортсмен увеличивал норму пробежки на 500 м. Через сколько дней спортсмен будет пробегать 30 км? 5) Высота дерева равна 9 метрам. Улитка каждый день поднимается на 2 метра вверх, а за ночь спускается на 1 метр вниз. Через сколько дней улитка достигнет вершины дерева? 6) В 198... году урожай зерна составил 20 ц с га. В среднем каждые 2 года за счёт применения новых технологий урожай увеличивается в 1, 2 раза. Через сколько лет урожайность достигнет 35 ц с га?
Ответы
Program test;
var
a:array[1..4,1..6] of integer;
b:array[1..4] of integer;
i,i1,max,n,sum:integer;
label m1;
begin
write('Введите елементы массива: ');
for i:=1 to 4 do begin
for i1:=1 to 6 do begin
write('a[',i,',',i1,'] = ');
readln(a[i,i1]);
end;
end;
for i:=1 to 4 do begin
for i1:=1 to 6 do begin
if i+i1 = 2 then max:=a[1,1]
else if a[i,i1]>max then max:=a[i,i1] else max:=max;
end;
end;
m1:
write('Введите число (не больше ',max,') : ');
readln(n);
if n<=max then begin
for i:=1 to 4 do begin
for i1:=1 to 6 do begin
if a[i,i1]>n then sum:=sum+1;
end;
b[i]:=sum;
writeln('b[',i,'] = ',b[i]);
sum:=0;
end;
end
else begin
writeln('Число больше максимального значения массива, поробуйте снова');
goto m1;
end;
end.
var
a:array[1..4,1..6] of integer;
b:array[1..4] of integer;
i,i1,max,n,sum:integer;
label m1;
begin
write('Введите елементы массива: ');
for i:=1 to 4 do begin
for i1:=1 to 6 do begin
write('a[',i,',',i1,'] = ');
readln(a[i,i1]);
end;
end;
for i:=1 to 4 do begin
for i1:=1 to 6 do begin
if i+i1 = 2 then max:=a[1,1]
else if a[i,i1]>max then max:=a[i,i1] else max:=max;
end;
end;
m1:
write('Введите число (не больше ',max,') : ');
readln(n);
if n<=max then begin
for i:=1 to 4 do begin
for i1:=1 to 6 do begin
if a[i,i1]>n then sum:=sum+1;
end;
b[i]:=sum;
writeln('b[',i,'] = ',b[i]);
sum:=0;
end;
end
else begin
writeln('Число больше максимального значения массива, поробуйте снова');
goto m1;
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
10 предложений с деклораьивными знаниями
Автор: gorovoy-dv4088
Переведите число 43 из десятичной в двоичную систему счисления
Автор: Александровна-Грузман
Запиши число 15466 в развёрнутом виде, начиная со старшего разряда,
Автор: uisfbu7777733
uses utils;
var
n,i,sum,time:longint;
flag:boolean;
begin
readln(n);
if n<2 then flag:=false;{Единица - не простое число}
if n=2 then flag:=true;{2 - простое}
if (n>2) and (n mod 2 <> 0) then begin{ после двойки простые числа только нечетные}
for i:=1 to n do begin{проверяем что бы было только 2 делителя}
sum:=sum+1;
end;
if sum=2 then flag:=true;
end
else flag:=false;
if flag then writeln('Число простое') else writeln('Число НЕ простое');
time:=milliseconds;
writeln('Времени затрачено ',time:10,' ms.');
end.
Все проверки сделаны для сокращения времени работы программы.