Преобразование единиц измерения физических величин

@Wodelectro · Регистрация: 03.12.2011

Author24 — интернет-сервис помощи студентам

Задача 1
Составить программу, которая формирует массив из пятнадцати случайных чисел от -20 до 20 и чётные числа делит на 2, а нечётные - умножает на 3. а так же увеличивает в 2 раза числа, кратные 5 а остальные уменьшает в 2 раза.
Задача 1
Составте программу, которая осуществляет преобразование единиц измерения физических величин:
значение давления, измеренные в миллиметрах ртутного столб, преобразуються в значения измеренные в килопаскалях (1мм рт. ст. = 0,133 КПа)

Помогите сделать...

@Steacher · 10.12.2011, 18:27

Pascal

var i:integer;
a:array[1..100] of integer;
begin
for i:=1 to 15 do
begin
  a[i]:=random(40)-20;
  write(a[i]:4);
end;
writeln;
for i:=1 to 15 do
 begin
  if a[i] mod 2=0 then a[i]:=trunc(a[i]/2)
  else a[i]:=a[i]*3;
 end;
 for i:=1 to 15 do
 write(a[i]:4);
 
end.

но тут только работа с четными нечетными.
Дальнейшего условия я не понял, нужно изменять начальный массив или уже полученый после работы с четными и нечетными числами

Добавлено через 10 минут
2.

Pascal

var a:real;
begin
write('Введите показания прибора мм.рт.с');
Readln(a);
writeln('В Кпа это значение = ',a*0.133,'Кпа');
end.

@Wodelectro · 11.12.2011, 19:42 **[ТС]**

Steacher
нужно начальный массив.

@Steacher · 11.12.2011, 22:20

хорошо

Добавлено через 11 минут

Pascal

var i:integer;
a:array[1..100] of integer;
begin
for i:=1 to 15 do
begin
  a[i]:=random(40)-20;
  write(a[i]:4);
end;
writeln;
for i:=1 to 15 do
 begin
  if a [i] mod 5=0 then a[i]:=a[i]*2;
  if (a[i] mod 5<>0) and (a[i] mod 2<>0) then a[i]:=a[i]*3;
  if (a[i] mod 2=0) and (a[i] mod 5<>0)  then a[i]:=trunc(a[i]/2);
 
 end;
for i:=1 to 15 do
 write(a[i]:4);
end.

З.ы

Составить программу, которая формирует массив из пятнадцати случайных чисел от -20 до 20 и чётные числа делит на 2, а нечётные - умножает на 3. а так же увеличивает в 2 раза числа, кратные 5 а остальные уменьшает в 2 раза.

после проделанных действий остальных не может быть, т.к числа деляться на четные и нечетные и сраеди них есть кратные 5, других чисел не бывает, а ноль он всегда ноль =)

Преобразование единиц измерения физических величин

Решение

Решение

@Wodelectro 0 / 0 / 0 Регистрация: 03.12.2011 Сообщений: 65
		1
	Преобразование единиц измерения физических величин 10.12.2011, 17:42. Показов 2399. Ответов 3 Метки нет (Все метки) Задача 1 Составить программу, которая формирует массив из пятнадцати случайных чисел от -20 до 20 и чётные числа делит на 2, а нечётные - умножает на 3. а так же увеличивает в 2 раза числа, кратные 5 а остальные уменьшает в 2 раза. Задача 1 Составте программу, которая осуществляет преобразование единиц измерения физических величин: значение давления, измеренные в миллиметрах ртутного столб, преобразуються в значения измеренные в килопаскалях (1мм рт. ст. = 0,133 КПа) Помогите сделать... 0

@Wodelectro 0 / 0 / 0 Регистрация: 03.12.2011 Сообщений: 65
	11.12.2011, 19:42 [ТС]	3
	Steacher нужно начальный массив. 0

	11.12.2011, 22:20