.
Отговор в тема
Резултати от 1 до 11 от общо 11

Hybrid View

  1. #1
    LoLa:):):)
    Guest

    Информатика

    Здр. искам да помоля някой ако разбира от алгоритми и е в 9 клас ,ако може да ми реши задачите,защото ми трябват за вторник.
    Ето и задачите

    1. Напишете програма , която да изчислява и извежда резултата на околната повърхнина на цилиндър , ако знаете височината(H) и радиулса (R) на основата. S=2пRH

    2.Напишете програма , която да проверява дали въведеното число х от клавиатурата е четно.

    3.Напишете програма за намиране сумата S=х+х/2+х/3+....+х/n,n<= 200,
    като х и n се въвеждат от клавиетурата.
    Благодаря предварително.

  2. #2

    Регистриран на
    May 2007
    Град
    Pleven
    Мнения
    83
    1.
    dim h, r,pi,S as single
    Input "h=",h
    Input "r=", r
    input"pi=", pi (въвежда се 3.14)
    S=2*pi*r*h
    Print "S=", S


    2.
    DIM x as integer
    Input "x=",x
    If x mod 2 = 0 then
    Print "4isloto e 4etno"
    end if


    3, не мога да се досетя...
    Дано решените 2 са така..аз не знам вие как ги решавате, блок-схемно или на qbasic зависи..Не съм много убедена, но пак е вариант.


  3. #3
    Голям фен
    Регистриран на
    May 2005
    Град
    v 9-ta gluha
    Мнения
    846
    Цитирай Първоначално написано от wertyusa-f
    1.
    dim h, r,pi,S as single
    Input "h=",h
    Input "r=", r
    input"pi=", pi (въвежда се 3.14)
    S=2*pi*r*h
    Print "S=", S


    2.
    DIM x as integer
    Input "x=",x
    If x mod 2 = 0 then
    Print "4isloto e 4etno"
    end if


    3, не мога да се досетя...
    Дано решените 2 са така..аз не знам вие как ги решавате, блок-схемно или на qbasic зависи..Не съм много убедена, но пак е вариант.
    А тези на какъв език са?

  4. #4

    Регистриран на
    May 2007
    Град
    Pleven
    Мнения
    83
    Ами тези се решават блок-схемно и извлечено от блок-схемно решение така се записва, или по-точно разписва.На qbasic излиза решението.


  5. #5
    LoLa:):):)
    Guest
    мерси за отговора но нии не ги решаваме по този начин.
    Ето примерна задача:
    S=? , ha=? , S=a*ha/2

    Var a:integer , S:rea;
    h:real;
    Begin
    read (a,h)
    S=(a+h)/2
    Дано да сте разбра ли

  6. #6
    Guest
    Program zilinder;
    const pi=3.14;
    var s, h, r: real;
    begin
    wtite('vyvedete h');readl(h);
    write('vyvedete r');readl(r);
    s:=2*pi*r*h;
    writeln('ok. povyrhnina e s=',s);
    end.

  7. #7
    Guest
    program chetnost;
    var x:integer;
    begin
    write('vivedi x'); readln(x);
    if (amod2)=0 then write(' chetno e') else write ('ne4etno');
    end.

  8. #8
    Guest
    zna4i poslednite 2 gi napisah na pascal, zashtoto ne mi stana qsno ot dadeniq primer to4no na kkayv ezik gi pishete, no nai mi prili4a na pascal.dano sym ti pomognala

  9. #9
    LoLa:):):)
    Guest
    на паскал са много ти благодаря.

  10. #10
    Guest
    Program sum;
    var i,x,n:integer;
    sum:real;
    begin
    write('vyvedete n<=200);readln(n);
    write('vyvedete x');readln(x);
    s:=0;
    if n<=200 then begin
    for i=1 to n do
    sum:=sum+x/i;
    end
    else write('Nekorektno vyvedeno n');
    write('Sumata e',sum);
    end.
    Tova e i poslednata programa, dano ti svyrshat rabota

  11. #11
    LoLa:):):)
    Guest
    много ти благодаря отново др.седмица ще разбера дали са верни и ще пиша

Правила за публикуване

  • Вие не можете да публикувате теми
  • Вие не можете да отговаряте в теми
  • Вие не можете да прикачвате файлове
  • Вие не можете да редактирате мненията си