Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Найти точки пересечения окружности с осью абсцисс https://www.cyberforum.ru/ free-pascal/ thread1567309.html
Задана окружность с центром в точке О(x0, y0) и радиусом R0, найти точки пересечения линии с осью абсцисс. Как написать программу на языке Паскаль?
Free Pascal Заменить максимальный элемент массива на среднее арифметическое элементов массива
Написать программу, которая заменяет значение максимального элемента массива на среднее арифмитическое элементов массива. Массив должен вводиться пользователем.
Free Pascal Количество элементов массива Написать программу, которая находит количество элементов массива, меньших числа, введенного с клавиатуры. Массив должен вводиться пользователем. https://www.cyberforum.ru/ free-pascal/ thread1567278.html Free Pascal Находится ли введенное с клавиатуры число в массиве https://www.cyberforum.ru/ free-pascal/ thread1567277.html
Написать программу, которая проверяет, находится ли введенное с клавиатуры число в массиве. Массив должен быть заполнен случайными числами из диапазона . Организовать вывод массива на экран.
Косяк с модулем crt и кодировкой Free Pascal
Писал программу, хотел использовать модуль crt (чтобы в некоторых местах юзать clrscr), но при его подключении вместо русских букв получаются кракозябры. Т.е. если без crt у меня программа выводит: ...
Free Pascal Файл: Упорядочить список студентов по алфавиту и распечатать его. https://www.cyberforum.ru/ free-pascal/ thread1566719.html
Всем привет!!! Прошу помочь с написание программы. Заранее благодарю. На диске имеется файл данных STUDENT.DAT. В нем записана информация о студентах в следующем формате: фамилия (строка до 12...
Free Pascal Выяснить, попадает ли точка с заданными координатами внутрь закрашенной области https://www.cyberforum.ru/ free-pascal/ thread1566239.html
Выяснить, попадает ли точка с заданными координатами внутрь закрашенной области. Область задать аналитически самостоятельно по ее графическому изображению. Ввод координат точки и радиуса R выполнить...
Free Pascal Найти длину самого короткого слова
Задан текст. Найти длину самого короткого слова.
Free Pascal Преобразовать строку, заменив в ней каждую из групп стоящих рядом точек одной точкой https://www.cyberforum.ru/ free-pascal/ thread1565393.html
Дана строка символов. Преобразовать ее, заменив в ней каждую из групп стоящих рядом точек одной точкой.
Free Pascal Определите значение корня уравнения https://www.cyberforum.ru/ free-pascal/ thread1565385.html
Ребят, помогите. Определите значение корня, исходя из значения x.
Создание библиотечного каталога Free Pascal
Добрый вечер! Помогите пожалуйста с поставленной задачей, ее надо написать на Паскале или Си, спасибо) Создать массив записей библиотечного каталога, в котором есть название книги, автор, год...
Free Pascal Вычислить интеграл по формуле Симпсона Помогите.. а то получается какая-то каша.. Нужно вычислить интеграл по формуле симпсона. Интеграл 1/sqrt(9+x*x) . Верхняя граница интеграла 2 нижняя 0 в паскале. С шагом равным 100 https://www.cyberforum.ru/ free-pascal/ thread1564894.html
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
31.10.2015, 19:20 0

Задача с циклами - Free Pascal - Ответ 8273303

31.10.2015, 19:20. Показов 884. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
Задача с циклами Free Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.10.2015, 19:20
Готовые ответы и решения:

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

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

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

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

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#,то прошу у вас помощи с...

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