Нужна ваша ! в необходимо составить программу на алгоритмическом языке visual basic в excel.причем, программа должна быть записана в двух вариантах: в первом варианте необходимо использовать оператор условного перехода tо, а во втором операторы цикла , next.сама : составить программу расчета доз внесения минеральных удобрений под запланированный урожай (кг действующего вещества на 1 га) по формуле: д=(в/к1)+((сз-сф)*к2)/(к3*т),где в -вынос питательного вещества запланированным урожаем, кг/га; к1 - коэффициент использования растениями питательного вещества удобрений; сз - заданное содержание питательного вещества в почве, мг на 100 г; сф -фактическое содержание питательного вещества в почве, мг на 100 г; к2 - коэффициент пересчета мг на 100 г в кг/га; к3 - коэффициент влияния удобрения на содержание питательного вещества в почве; т -время, за которое намечено получить заданное содержание питательных веществ в почве. фактическое содержание питательного вещества в почве меняется в пределах от 10 до 25 мг на 100 г с шагом 1 мг. заранее !
s1, s2: string;
i: integer;
done: boolean;
c: char;
function IsLetter(c: char): boolean;
begin
IsLetter := ((c >= 'a') and (c <= 'z')) or ((c >= 'A') and (c <= 'Z'));
end;
function UpperCase(c: char): char;
begin
if (c >= 'a') and (c <= 'z') then
UpperCase := Chr(Ord(c) - Ord('a') + Ord('A'))
else
UpperCase := c;
end;
begin
used := [];
readln(s1);
readln(s2);
for i := 1 to length(s1) do
if (IsLetter(s1[i])) then
include(used, UpperCase(s1[i]));
for i := 1 to length(s2) do
if (IsLetter(s2[i])) then
include(used, UpperCase(s2[i]));
done := False;
for c := 'A' to 'Z' do
if not (c in used) then
begin
done := True;
write(c);
end;
if not done then
write(0);
writeln;
end.