Olimpiade Sains Provinsi (OSP) 2014 - Komputer, Nomor 49

Question

Untuk menjawab soal pemrograman, perhatikan beberapa hal berikut: Diberikan suatu persoalan, dan Anda diminta menuliskan program komputer dengan menggunakan pseudopascal atau bahasa pemrograman Pascal, C, atau C++. Program komputer atau pseudopascal yang ditulis harus dapat menghasilkan output yang diminta dengan batasan yang sudah ditentukan. Setiap persoalan terdiri atas deskripsi soal, batasan (waktu eksekusi, input, dan output), contoh input, dan contoh output. Dalam pemrograman komputer, di

Muhammad Rais Fathin Mudzakir · Accepted Answer

Cara 1 : Karena di soal nggak dijelasin rumus aslinya Un kayak gimana, kita coba asumsi rumus Un : Di soal dibilang 1 detik = 10^3 operasi, jadi kalo kita coba loop dari 1 sampai n, pada kasus terburuknya kita bakal loop ~10^7 kali - TLE. Sekarang, kita coba jadiin deret teleskopik (coba mainin Un dulu) : Coba kita liat U1, U2, U3, U4, , Un : Kalo kita jumlahin dari atas ke bawah, yang ditengah-tengah itu bakal ilang (udah keliatan kan teleskopiknya?). Sisanya : Yaudah. Tinggal bikin programnya

Fata El Islami · Answer

ribet amat

nih ane kasih cara simple nya

agan tinggal pake rumus SN aja gan yang di aritmatika

yang N/2(a+un)

cari dulu baris deret nya

disitu kan ada 3 21 91 273

jabarin

jadi :

1x3 = 3

3x7= 21

7x13= 91

13x21=273

nah ada polanya kan

1 3 7 13 pake rumus (n²-n+1)

3 7 13 21 pake rumus (n²+n+1)

udah ketemu baru

masukin ke rumus sn

SN = n/2(a+un)

un nya jadi = n/(n²-n+1)(n²+n+1)

a = 1/3

jadi kalo di program ya kaya gini

\

BERES

Hezekiel Elshaddy · Answer

Ini pake deret tk.2 klw mau tau lbh lanjut tanya lewat FB aja https://www.facebook.com/elshaddy03

Bima Satria Ramadhan · Answer

rumua deretnya (n^2-n+1)*(n^2+n+1)

Yezz 007 · Answer

program deret;
uses sysutils;
var
angka: string;
n: integer;

function deret(x:integer):extended; {extended = real terpanjang, kan kita butuh sampai 1juta}
var                                  {buat jaga" aja, kalau diganti jadi real akan hemat memory(RAM)}
y, z:integer;
a: extended;
begin
     z:=0;
     a:=0;
     for y:=x downto 1 do
     begin
          z:=(y*y-y+1)*(y*y+y+1);
          write(y, '/', z, '+');
          a:=a+y/z;
     end;
     write('0 = ');
     deret:=a;
end;

begin
while true do
begin
       readln(angka);
       Try
          n:= StrToInt(angka);
ERROR         if (0 begin {Kalo lu beneran masukin 1juta, komputer situ bakal ngitung terus}
               writeln();                  {Ini dia kelemahannya, kan batas waktu eksekusinya 1 detik tuh}
               writeln(deret(n):0:5);      {nah kalo udah begitu, hapus aja bagian write() nya mudah kan}
          end;
       except
         on exception do writeln('Maaf, mohon coba lagi');
       end;
end;
end.

Timothyus Tanner · Answer

kalau gini bener atau salah? program deret; var a,b,n:longint; e,j:extended; begin readln(n); for a:= n downto 1 do begin b:= (a*a-a+1)*(a*a+a+1); j:= a/b; e:=e+j; end; writeln(e:0:5); readln; end.

Zooba Boo · Answer

program osp2014_49;

var
n, a, b, i, c: longint;
ans: extended;
begin
while not EOF do
begin
    readln(n);
    ans := 0;
    a := 1;
    b := 1;
    c := 2;
    i := 0;
    while i < n do
    begin
      ans := ans + a / (b * (b + c));
      a := a + 1;
      b := b + c;
      c := c + 2;
      Inc(i);
      writeln(a, b);
    end;
    writeln(ans: 0: 5);
end;
end.

Marsa Thoriq A · Answer

var n,a,b:longint; c:double; begin readln(n); a:=n*n+n; b:=2*(n*n+n+1); c:=a/b; writeln(c:0:5); end. rumus Sn pembilangnya (n(n+1)/2); sedangkan rumus penyebutnya(n^2+n+1);

hajrul multazam · Answer

rumus deretnya nya n/n^4+n^2+1 CMIIW

Olimpiade Sains Provinsi (OSP) 2014 - Komputer, Nomor 49

9 jawaban