Laslo Kraus - Programiranje I - Prvi kolokvijum 1999/2000

← ↑ ⇑ ↓ →

Ласло Краус	Програмирање I Први колоквијум 20. 11. 1999

Задаци: 1 2 3 | Напомене | Решења: 1 2 3

Поставка задатка 1 (50 поена) (решење | садржај)

На неком 12-битном рачунару негативни цели бројеви се кодирају помоћу пуног комплемента, а реални бројеви имају структуру seeeeemmmmmm, где су s - предзнак броја, e - битови бинарног експонента са померајем 15 и m - битови мантисе са скривеним битом (нормализована мантиса је 1≤М<2).

а) Колики је опсег целих и реалних бројева на описаном рачунару?

б) Колика је децимална вредност меморијске локације у којој се налази BF0₁₆ ако је то цео број и ако је то реалан број?

в) Који је садржај меморијске локације ако се у њој налази број 1999₁₀ као цео број и као реалaн број?

Поставка задатка 2 (50 поена) (решење | садржај)

Саставити структурирани дијаграм тока и написати на Pascal-у одговарајући програм за формирање новог низа од оних елемената низа реалних бројева чије су вредности веће од просечне вредности бројева у почетном низу. Програм треба да прочита низ, обави тражену обраду, испише резултат и да понавља претходне кораке све док за дужину низа не прочита недозвољену вредност.

Поставка задатка 3 (50 поена) (решење | садржај)

Саставити на Pascal-у потпрограм за израчунавање времена лета t, удаљености места пада на земљу d и највеће достигнуте висине h тела које се са почетном брзином v избацује под углом φ у односу на површину земље (g=9,8062 m/s²):

Саставити на Pascal-у главни програм за табелирање горњих података за све вредности v_min≤v≤v_max са кораком Δv и φ_min≤φ≤φ_max са кораком Δφ.

Напоменe (садржај)

Испит траје 90 минута.
Потребно је решавати два од три наведена задатка.
Ако се решавају више од два задатка, обавезно назначити која два задатка да се оцењују. У супротном, узимаће се у обзир два најслабије урађена задатка.

Решење задатка 1 (поставка | садржај)

a) -2048≤i≤2047 6.10×10^-5≅2^-14≤|r_norm|≤65024 9.53×10-7≅2^-20≤|r|≤65024

б) i=-1040, r=-1.75

в) i=7FC₁₆, r=67D₁₆

Решење задатка 2 (поставка | садржај)

program VelikiBrojevi;
  const NMax = 100;
  type  Niz = array [1..NMax] of Real;
  var   A, B: Niz;
        Na, Nb, I: Integer;
begin
  repeat
    Write ('na? '); ReadLn (Na);
  if (Na>0) and (Na<=NMax) then begin
    Write ('A?  '); for I:=1 to Na do Read(A[I]); ReadLn;
    S := 0; for I:=1 to Na do S := S + A[I];
    S := S / Na; Nb := 0;
    for I := 1 to Na do begin
      if A[I] > S then begin
        Nb := Nb + 1; B[Nb] := A[I]
      end
    end;
    Write ('B='); for I:=1 to Nb do Write (' ', B[I]); WriteLn;
  end until (Na<=0) or (Na>NMax)
end.

Решење задатка 3 (поставка | садржај)

program KosiHitac;
  const G = 9.8062;
  var   V, VMin, VMax, DV, Fi, FiMin, FiMax, DFi, T, D, H;

  procedure KosHit (V, Fi: Real; var T, D, H: Real);
  begin
    T := 2 * V * Sin (Fi) / G;
    D := T * V * cos (Fi);
    H := T * V * sin (Fi) / 4
  end {procedure};
begin {program}
  WriteLn ('Vmin, Vmax, dV? );     ReadLn (VMin, VMax, DV);
  WriteLn ('Fimin, Fimax, dFi? '); ReadLn (FiMin, FiMax, DFi);
  WriteLn;
  WriteLn ('v':8, 'fi':8, 't':8, 'd':8, 'h':8);
  for I := 1 to 40 do Write('=');
  WriteLn;
  V := VMin;
  while V <= VMax do begin
    Fi := FiMin;
    while Fi <= FiMax do begin
      KosHit (V, Fi, T, D, H);
      WriteLn (V:8:2, Fi:8:2, T:8:2, D:8:2, H:8:2);
      Fi := Fi + DFi
    end;
    V := V + DV
  end
end {program}.

(садржај)

← ↑ ⇑ ↓ →

Аутор: Ласло Краус
Е-пошта: kraus@etf.rs