Дан номер единицы массы и масса тела M в этих единицах. Вывести массу данного тела в килограммах.

@Алина3421 · Регистрация: 19.05.2016

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

Единицы массы пронумерованы следующим образом: 1 — килограмм, 2 — миллиграмм, 3 — грамм, 4 — тонна, 5 — центнер. Дан номер единицы массы и масса тела M в этих единицах (вещественное число). Вывести массу данного тела в килограммах.

@Puporev · 12.04.2017, 08:09

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var n:byte;
    m:real;
begin
n:=strtoint(Edit1.Text);
m:=strtofloat(Edit2.Text);
case n of
1:m:=m;
2:m:=m/1000000;
3:m:=m/1000;
4:m:=m*1000;
5:m:=m*100;
end;
Edit3.Text:=floattostr(m)
end;

Пример формы.

@Алина3421 0 / 0 / 1 Регистрация: 19.05.2016 Сообщений: 54
		1
	Дан номер единицы массы и масса тела M в этих единицах. Вывести массу данного тела в килограммах. 12.04.2017, 07:33. Показов 2461. Ответов 1 Метки нет (Все метки) Единицы массы пронумерованы следующим образом: 1 — килограмм, 2 — миллиграмм, 3 — грамм, 4 — тонна, 5 — центнер. Дан номер единицы массы и масса тела M в этих единицах (вещественное число). Вывести массу данного тела в килограммах. 0

	12.04.2017, 08:09

Дан номер единицы массы и масса тела M в этих единицах. Вывести массу данного тела в килограммах.

Решение