Створити програму «Валютний конвертер». Створити вікно за зразом. Ми повинні ввести кількість гривень і вибрати в яку валюту конвертувати. Після натискання на кнопку, повинно з’явитися вікно з результатом.
1) var i,d,q:integer; begin d:=1; for q:=5 downto 1 do {можно и for q:=1 to 5 do но у вашем примере идет на спад , я сделал так же} d:=d+q; writeln(q,' ',d); end.
2) var i,d,q:integer; begin d:=1; for q:=4 downto 1 do d:=d+q; writeln(q,' ',d); end.
3) Здесь вовсе не нужен цикл , всеравно переменная станет 1(еденицей) var i,d,q:integer; begin d:=1; q:=1; d:=d+q; writeln(q,' ',d); end.
4) Будет зацикленость , поскольку не зименяется значение q (либо ошибка в условии) А так как нет изменений то и переработать нельзя в цикл for
2) N = 80 Ic=140 бит Найти К Решение: N =2(в степени I) 80 = 2*I I = 7 бит Ic = K* I => K =140 : 7 =20 символов 3) K = 100*20*30 N =80 Найти: Ic Решение: По той же формуле вычисляем размер 1 символа => I = 7 бит Ic = K*I Ic =100*20*30*7 = 420 000 бит =52500 байт 4) Ic = 4Kбайта K = 2048 Найти: N Решение: 4Кбайта = 4 * 2(в 13 степени) бит 2048 = 2(в 11 степени) . Найдем вес 1 символа : I= Ic / K I = 4 * 4 = 16(сокращаешь степени) N = 2*I дальше подставляешь под формулу)
begin
d:=1;
for q:=5 downto 1 do {можно и for q:=1 to 5 do но у вашем примере идет на спад , я сделал так же}
d:=d+q;
writeln(q,' ',d);
end.
2) var i,d,q:integer;
begin
d:=1;
for q:=4 downto 1 do
d:=d+q;
writeln(q,' ',d);
end.
3) Здесь вовсе не нужен цикл , всеравно переменная станет 1(еденицей)
var i,d,q:integer;
begin
d:=1;
q:=1;
d:=d+q;
writeln(q,' ',d);
end.
4) Будет зацикленость , поскольку не зименяется значение q (либо ошибка в условии)
А так как нет изменений то и переработать нельзя в цикл for