Используя оператор выбора CASE

@sanek_next · Регистрация: 14.05.2010

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

Используя оператор выбора CASE, cоставить программу, которая по введённому номеру единицы измерения (1 – килограмм, 2 – миллиграмм, 3 – грамм, 4 – тонна, 5 – центнер) и массе М выдавала бы соответствующее значение массы в килограммах.

@Obliv · 22.12.2010, 18:41

var
i:integer;
m:real;
begin
readln(i);
readln(m);
case i of
1: m:=m;
2: m:=m*0.000001;
3: m:=m*0.001;
4: m:=m*1000;
5: m:=m*100;
end;
writeln(m);
end.

@STGE · 22.12.2010, 18:42

Pascal

uses crt;
var m: real; e: byte;
begin
 clrscr;
 writeln ('в каких единицах осуществляется ввод массы ?');
 writeln;
 writeln ('1 - кг');
 writeln ('2 - мг');
 writeln ('3 - г');
 writeln ('4 - т');
 writeln ('5 - ц');
 writeln;
 write ('ваш выбор: ');
 readln (e);
 write ('введите массу с учётом выбранных единиц: ');
 readln (m);
 if (e>=1) and (e<=5) then
  begin
   case e of 
    2: m:=m/1000000;
    3: m:=m/1000;
    4: m:=m*1000;
    5: m:=m*100;
   end;
   writeln ('масса в кг = ', m);
  end
 else writeln ('ошибка ввода');
end.

@sanek_next Мимолетом здесь... 51 / 51 / 0 Регистрация: 14.05.2010 Сообщений: 209
		1
	Используя оператор выбора CASE 22.12.2010, 17:56. Показов 2037. Ответов 2 Метки нет (Все метки) Используя оператор выбора CASE, cоставить программу, которая по введённому номеру единицы измерения (1 – килограмм, 2 – миллиграмм, 3 – грамм, 4 – тонна, 5 – центнер) и массе М выдавала бы соответствующее значение массы в килограммах. 1

@Obliv 18 / 18 / 9 Регистрация: 19.12.2010 Сообщений: 30
	22.12.2010, 18:41	2
	var i:integer; m:real; begin readln(i); readln(m); case i of 1: m:=m; 2: m:=m0.000001; 3: m:=m0.001; 4: m:=m1000; 5: m:=m100; end; writeln(m); end. 1

	22.12.2010, 18:42

Опции темы

Используя оператор выбора CASE

Решение