Помогите решить задачи (VBA) 1. Написать программу вычисления стоимости поездки на
Помогите решить задачи (VBA)
1. Написать программу вычисления стоимости поездки наавтомобиле на дачу (туда и обратно). Исходными данными являются: расстояние до дачи (в километрах); количество бензина, которое потребляет автомобиль на 100 км пробега; цена одного литра бензина.
2. Написать программу пересчета веса из фунтов в килограммы (1 фунт равен 409,5 г).
3. Написать программу Конвертер величин: с клавиатуры вводиться вес информации в байтах. На выходе получаем перевод величины в:
• биты , килобайты, мегабайты, гигабайты
1байт = 8 бит
1Кб (килобайт) = 1024 байт
1Мб (мегабайт) = 1024 Кб
1Гб (гигабайт) = 1024 Мб
1Тб (терабайт) = 1024 Гб
Гость
Ответ(ы) на вопрос:
Гость Program aaa;
var
s, b, l, c: real;
begin
writeln('введите s, b, l');
readln(s, b, l);
c := b / 100 * s * 2 * l;
writeln('стоимость поездки: ', c)
end.
program aaa;
{Написать программу пересчета веса из фунтов (f) в килограммы (kg)
(1 фунт равен 409,5 г).} var f,kg: real; begin writeln('введите f'); readln(f); kg:=f*409.5/1000; writeln(f,' фунтов = ', kg:8:3,' килограмм') end. program aaa; {Написать программу Конвертер величин:
с клавиатуры вводиться вес информации в байтах (b).
На выходе получаем перевод величины в: биты (bi) , килобайты (kb),
Мегабайты (mb), гигабайты (gb).
1байт = 8 бит
1Кб (килобайт) = 1024 байт
1Мб (мегабайт) = 1024 Кб
1Гб (гигабайт) = 1024 Мб
1Тб (терабайт) = 1024 Гб} var b,bi,kb: real; mb,gb,tb: decimal; begin writeln('введите b'); readln(b); bi:=b*8; kb:=b/1024; mb:=kb/1024; gb:=mb/1024; tb:=gb/1024; writeln(b,' байт = ', bi,' бит'); writeln(b,' байт = ', kb,' килобайт'); writeln(b,' байт = ', mb,' мегабайт'); writeln(b,' байт = ', gb,' гигабайт'); writeln(b,' байт = ', tb,' терабайт') end. //формат вывода (к-во знаков ...) определите сами
(1 фунт равен 409,5 г).} var f,kg: real; begin writeln('введите f'); readln(f); kg:=f*409.5/1000; writeln(f,' фунтов = ', kg:8:3,' килограмм') end. program aaa; {Написать программу Конвертер величин:
с клавиатуры вводиться вес информации в байтах (b).
На выходе получаем перевод величины в: биты (bi) , килобайты (kb),
Мегабайты (mb), гигабайты (gb).
1байт = 8 бит
1Кб (килобайт) = 1024 байт
1Мб (мегабайт) = 1024 Кб
1Гб (гигабайт) = 1024 Мб
1Тб (терабайт) = 1024 Гб} var b,bi,kb: real; mb,gb,tb: decimal; begin writeln('введите b'); readln(b); bi:=b*8; kb:=b/1024; mb:=kb/1024; gb:=mb/1024; tb:=gb/1024; writeln(b,' байт = ', bi,' бит'); writeln(b,' байт = ', kb,' килобайт'); writeln(b,' байт = ', mb,' мегабайт'); writeln(b,' байт = ', gb,' гигабайт'); writeln(b,' байт = ', tb,' терабайт') end. //формат вывода (к-во знаков ...) определите сами
Не нашли ответ?
Похожие вопросы