Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 31.10.2015
Сообщений: 10
1

Задача с циклами

31.10.2015, 17:02. Показов 876. Ответов 1
Метки нет (Все метки)

Народ помогите решить такую задачу:
Пользователь вводит числа (3, 4 или 5) до ввода символа "e" или "E". Вывести среднее число этих чисел и уведомление, если от 3 до 4 то одно, от 4 до 5 другое, если среднее равно 5 то третье уведомление. После этого если вводится символ "q" или "Q" то происходит выход из программы иначе - программа повторяется.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.10.2015, 17:02
Ответы с готовыми решениями:

задача с циклами. Паскаль.
Вроде не очень сложая задача, но я что-то запутался, помомогите решить: Составить программу на...

Задача с циклами for, repeat, while
Здравствуйте! У меня задача с циклами FOR, REPEAT, WHILE. Нужно составить таблицу умножения числа...

Задача с вложенными циклами
Сама задача: Начальная скорость автомобиля ровняется 10км/час, потом его скорость повышается,...

Задача с циклами,помогите решить
3.Найти сумму (произведение) четных(нечетных) чисел из интервала 1 до 20. Использо-вать цикл с...

1
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
31.10.2015, 19:20 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
uses
    Crt, SysUtils;
var
    sum, count: LongWord;
    ans1, ans2: Char;
    avr: Single;
begin
    repeat
        ClrScr();
        count := 0;
        sum := 0;
        repeat
            Write('Input 3, 4, 5 or e: ');
            ans2 := ReadKey;
            WriteLn;
            //защиту от дурака писать лень, но там всего пару ифов
            if Not(ans2 in ['e', 'E'])
            then
            begin
                Inc(count);
                Inc(sum, StrToInt(ans2));
            end;
        until (ans2 in ['e', 'E']);
        if (count <> 0)
        then
        begin
            avr := sum / count;
            Write('avr=', avr:0:3);
            if (avr < 4)
            then
                WriteLn(' in [3..4)')
            else
                if (avr < 5)
                then
                    WriteLn(' in [4..5)')
                else
                    WriteLn(' in [5]');
        end
        else
            WriteLn('No one number!');
        Write('Press q for exit or any else to continue: ');
        ans1 := ReadKey; WriteLn;
    until (ans1 in ['q', 'Q']);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.10.2015, 19:20

Задача с циклами while и do while
Напишите программу с помощью цикла while и do while, которая выводит числа от заданного до...

Задача с циклами
Объясните пожалуйста на словах как решить. Задача 1. Напишите программу, которая по заданному...

Задача с циклами
Само задание во вложении, не работал с шаблонами помогите пожалуйста

Задача с циклами
Решаю задачу, где нужно вывести сумму чисел через ввод пользователя, пока число через ввод не будет...

C++ задача с циклами
#include &lt;iostream&gt; #include &lt;conio.h&gt; using namespace std; int main () {...

Задача с циклами
Здравствуйте уважаемые обитатели форума!Так как я ещё новичёк в изучении C#,то прошу у вас помощи с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.