Program do liczenia Obsiewu trawą

Dyskusja w '1I Informatyka [2021/2022]' rozpoczęta przez użytkownika admin, 12 Styczeń 2022.

  1. admin Administrator

    Mozna zamieszczac komenty....
  2. jkm2 New Member

    Kod:
    program Untitled;
        uses crt;
    var
    dzialka, worek, masawor : integer;
    wielkosc, cena : Real;
    wynik, wielkosc2 : Real;
    begin
          clrscr;
          worek := 600;
          writeln('*** Kalkulator obsiewu trawy ***');
          writeln(' ');
          readln;
          clrscr;
          writeln('Podaj wielkosc dzialki w arach');
          readln(dzialka);
          wielkosc := dzialka*100;
          wynik := (wielkosc/worek);
          writeln('Ilosc wykorzystanych workow : ', wynik:3:1, ' szt');
          { Ilosc kilgoramow }
          masawor := 15;
          writeln('Kilogramy trawy : ', masawor*wynik:5:2, ' kg');
          { Cena }
          wielkosc2 := wielkosc/600;
          cena := 244;
          writeln('Koszt calego obsiewu : ', cena*wielkosc2:4:2, ' zl');
          readln;
    end.
  3. Danielvet New Member

    Спасибо за ваше известие. Мы ценим ваш комментарий и готовы для вас посодействовать. Если у вас есть какие-либо дополнительные вопросы или необходима дополнительная информация, не стесняйтесь требовать. Вместе мы создадим наш форум еще как никакого другого!
    https://atehno.md/products/vga-giga...morie-192-bit-frecventa-memorie-9857901662070

Poleć tę stronę