Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Пример 7.2. Даны действительные числа. Вычислить их среднее арифметическое. Среднее арифметическое равно сумме всех чисел, деленной на количество чисел.
В программе 7.1 сначала вводится значение N количества чисел, а затем организуется цикл. Внутри цикла вводится очередное число (переменная S), оно прибавляется к накапливаемой сумме T. После окончания выполнения цикла вычисляется среднее арифметическое, обозначенное также именем Т.
Программа 7.1.
(*ВЫЧИСЛЕНИЕ СРЕДНЕГО АРИФМЕТИЧЕСКОГО*)
PROGRAM EX8;
VAR
I: INTEGER; (*ПАРАМЕТР ЦИКЛА *)
N:INTEGER; (*КОЛИЧЕСТВО ЧИСЕЛ *)
S:REAL (* ВВОДИМОЕ ЧИСЛО *)
T:REAL; (* СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ*)
BEGIN
T:=0;
WRITELN('ВВЕДИТЕ КОЛИЧЕСТВО ЧИСЕЛ:');
READ(N);
FOR I:=1 TO N DO
BEGIN
WRITE ('ВВЕДИТЕ ЧИСЛО: ');
READ(S);
T:=T+S;
END;
T:=T/N;
WRITELN ('--- ---------------------');
WRITELN ('СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ =',T:5:Z)
END.
Результат выполнения программы
ВВЕДИТЕ КОЛИЧЕСТВО ЧИСЕЛ:
ВВЕДИТЕ ЧИСЛО: 8
ВВЕДИТЕ ЧИСЛО: 7
ВВЕДИТЕ ЧИСЛО: 5
ВВЕДИТЕ ЧИСЛО: 9
ВВЕДИТЕ ЧИСЛО: 7
ВВЕДИТЕ ЧИСЛО: 9
СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ = 7.50
Программа 7.2.Вычислить объем каждого из нескольких шаров, а затем найти их суммарный объем. Известно, что радиус первого шара – R, радиус каждого последующего больше предыдущего на величину DR; радиус последнего шара – RK.
(* ВЫЧИСЛЕНИЕ ОБ’’ЕМА СИСТЕМЫ ШАРОВ *)
PROGRAM E10;
CONST PI=3.14;
VAR
R,RK:REAL; (* РАДИУС *)
V,VH:REAL; (* ОБ"ЕМ *)
DR:REAL; (* ИЗМЕНЕНИЕ РАДИУСА *)
BEGIN
WRITELN('ВВЕДИТE НАЧАЛЬНОЕ ЗНАЧЕНИЕ РАДИУСА R:’);
READ(R);
WRITELN('ВВЕДИТE КОНЕЧНОЕ ЗНАЧЕНИЕ РАДИУСА RK:’);
READ(RK);
WRITELN('ВВЕДИТЕ ШАГ ИЗМЕНЕНИЯ РАДИУСА PR:');
READ(DR);
VM:=0;
WHILE R<=RK DO
BEGIN
V:=4*РI*R*R*R/3;
VM:=VM+V;
WRITELN(' R=',R:6:2, ' ':5,' V=',V:7:3);
R:=R+DR;
WRITELN('**********************************************');
WRITELN('ОБЩИЙ ОБ"ЕМ СИСТЕМЫ: VH= ',V M:в: 3)
END.
Пример 7.4. Дан произвольный текст. Признаком конца текста считать нажатие клавиши ВК- Подсчитать общее количество введенных символов текста и число буквы Т в тексте. Так как заранее не известно, сколько раз будет выполняться цикл, для его организации используется оператор цикла WHILE. Условием окончания цикла является проверка конца строки. Пока не обнаружен конец строки (NOTEOLN), цикл продолжает выполняться.
Программа 7.3.
(*ВЫБОР ИЗ ТЕКСТА БУКВЫ “Т”*)
PROGRAM E3;
VAR
BUK:CHAR; (*БУКВА ТЕКСТА*)
K:INTEGER;(*СЧЕТЧИК БУКВЫ*)
N:INTEGER; (*8СЧЕТЧИК ВСЕХ БУКВ*)
BEGIN
K:=0; N: =0;
READLN;
WRITELN ('ВВЕДИТЕ ТЕКСТ:');
WHILE NOT EOLN DO
BEGIN
READ (BUK);
N:=N+1;
IF BUK='T' THEN K:=K+1
END;
WRITELN;
WRITELN ('КОЛИЧЕСТВО СИМВОЛОВ В ТЕКСТЕ =',N:3);
WRITELN ('ЧИСЛО БУКВЫ "Т" В ТЕКСТЕ =',К;3)
END.
Пример 7.5. Составить программу 7.4, результатом выполнения которой является таблица значений градусов температуры по Цельсию к Фаренгейту.
Программа 7.4
(*ТАБУЛИРОВАНИЕ ТЕМПЕРАТУРЫ ОТ 0 ДО 20 ГРАДУСОВ ПО ЦЕЛЬСИЮ СОВМЕСТНО С ЭКВИВАЛЕНТОМ ДО 0.1 ГРАДУСА ПО ФАРЕНГЕЙТУ*)
PROGRAM E6;
CONST
CONST1=1.8; (* МНОЖИТЕЛЬ ПЕРЕВОДА *)
CONST2=32.0; (* СЛАГАЕМОЕ ПЕРЕВОДА*)
VAR
CENTEMP:INTEGER; (*ТЕМПЕРАТУРА ПО ЦЕЛЬСИЮ*)
FARTEMP:REAL; (*ТЕМРЕРАТУРА ПО ФАРЕНГЕЙТУ*)
BEGIN
WRITELN('ПO ЦЕЛЬСИЮ * ПО ФАРЕНГЕЙТУ');
FOR CENTEMP:=0 TO 20 DO
BEGIN
FARTEMP:=CENTEMP*CONST1+CONST2;
WRITELN(CENTEMP:3,' ':8,'*',’ ',FARTEMP:6:1);
END
END.
ВОПРОСЫ ДЛЯ САМОКОНТРОЛЯ
1. Какими символами разделяются числа друг от друга при вводе по оператору READ?
2. В чем особенность ввода символьных данных?
3. Что представляют собой форматы вывода?
4. В каком виде выводятся данные, если в операторе вывода форматы не указаны?
5. Для чего предназначен оператор ввода без параметров READLN?
6. Как организовать вывод пустых позиций внутри строки между данными?
7. Как организовать вывод текстовых сообщений?
Дата публикования: 2014-11-02; Прочитано: 1165 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!