Народ помогите с информатикой(сорь если не там тему сделал)

Discussion in 'Болталка' started by SinatoR, 10 Feb 2010.

Thread Status:
Not open for further replies.
  1. SinatoR

    SinatoR New Member

    Joined:
    6 Nov 2009
    Messages:
    1
    Likes Received:
    0
    Reputations:
    -10
    вообщем это нужно сделать втурбо паскале через оператор ваил:

    Введете числа с кловиатуры пока их сумма не привысет число 50 или их количество не станет больше 5


    заранее СПАСИБО)
     
  2. WNZRS

    WNZRS Member

    Joined:
    3 Sep 2009
    Messages:
    294
    Likes Received:
    52
    Reputations:
    1
    Паскаль не знаю...
    Code:
    var:
    count, sum, ch:integer
    begin
    do
    begin
    readln(ch);
    count=count+1;
    sum=sum+ch;
    end;
    while(sum < 50 OR count < 5)
    end.
    С++
    Code:
    #include <stdio.h>
    
    int main()
    {
    int sum = 0,count = 0,sh = 0;
    while(sum < 50 || count < 5)
    {
    scanf("%d", &ch);
    sum += ch;
    count++;
    }
    return 0;
    }
     
  3. fatalo

    fatalo Elder - Старейшина

    Joined:
    15 May 2008
    Messages:
    45
    Likes Received:
    46
    Reputations:
    5
    WNZRS, прочитай свой код. Почему OR? AND нужно ставить.
    ТС,кинул в пм.
     
  4. total90

    total90 Elder - Старейшина

    Joined:
    30 Sep 2009
    Messages:
    90
    Likes Received:
    85
    Reputations:
    12

    sum:=sum+ch
     
  5. fatalo

    fatalo Elder - Старейшина

    Joined:
    15 May 2008
    Messages:
    45
    Likes Received:
    46
    Reputations:
    5
    total90, а что не все выписал? :)
     
  6. SinatoR

    SinatoR New Member

    Joined:
    6 Nov 2009
    Messages:
    1
    Likes Received:
    0
    Reputations:
    -10
    народ над в турбопаскале...мы вот делали и одноклассники мы такого еще не прошли...
     
  7. total90

    total90 Elder - Старейшина

    Joined:
    30 Sep 2009
    Messages:
    90
    Likes Received:
    85
    Reputations:
    12
    while *** do
    begin
    ****
    end;


    такая структура должна быть, вроде


    что ты тут не знаешь? :eek:
     
  8. SinatoR

    SinatoR New Member

    Joined:
    6 Nov 2009
    Messages:
    1
    Likes Received:
    0
    Reputations:
    -10
    count у нас небыло
     
  9. SinatoR

    SinatoR New Member

    Joined:
    6 Nov 2009
    Messages:
    1
    Likes Received:
    0
    Reputations:
    -10
    ну вродь понятно то что значит посчитать
     
  10. fatalo

    fatalo Elder - Старейшина

    Joined:
    15 May 2008
    Messages:
    45
    Likes Received:
    46
    Reputations:
    5
    Замени count на peremennaya
     
  11. total90

    total90 Elder - Старейшина

    Joined:
    30 Sep 2009
    Messages:
    90
    Likes Received:
    85
    Reputations:
    12
    кстати намного проще было бы написать с помощю repeat until
     
  12. root_sashok

    root_sashok Elder - Старейшина

    Joined:
    4 Aug 2008
    Messages:
    389
    Likes Received:
    573
    Reputations:
    102
    Code:
    uses crt;
    var i, s, k: integer;
    begin 
    clrscr;
    s:=0;
    i:=0;
    while (s < 50) and (i < 5) do 
    begin
    write ('Введите число: ');
    readln (k);
    i:=i+1;
    s:=s+k;
    end;
    end.
    Code:
    Введите число: 10
    Введите число: 20
    Введите число: 30
    
    [Процесс завершен]
    Code:
    Введите число: 51
    
    [Процесс завершен]
     
  13. SinatoR

    SinatoR New Member

    Joined:
    6 Nov 2009
    Messages:
    1
    Likes Received:
    0
    Reputations:
    -10
    root_sashok СПАСИБО!!!
     
Loading...
Similar Threads - Народ помогите информатикой
  1. Turanchocks_
    Replies:
    2
    Views:
    1,523
  2. skillushqa_
    Replies:
    32
    Views:
    3,633
Thread Status:
Not open for further replies.