Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать).сделайте три варианта программы,используя операторы while,repeat ,for.
uses Crt; const n=10; var a, i, Sum: integer; Sred: real; begin ClrScr; Sum:=0; i:=1; While i<=10 do begin Write ('a = '); ReadLn(a); Sum:=Sum+a; i:=i+1; end; Sred:=Sum/n; Writeln('Sred = ', Sred:6:2); WriteLn;
Пишу ответ на С++ и QBasic, если у Вас другой язык, то просто измените синтаксис: 1) max=-10000; number=0; for (int i=0;i<3;i++) { if A[i]>max; { max=a[i]; number = i; } } 2) DECLARE FUNCTION f! (x!) CLS INPUT "[A; B] = "; A, B INPUT "SHAG H = "; n FOR x = A TO B STEP n n = n + 1 IF n MOD 20 = 0 THEN PRINT "PRESS ENTER" DO: LOOP UNTIL INKEY$ <> "" CLS ELSE IF ABS(x) < 1 THEN PRINT USING "X = ###.###"; x; PRINT " Y = ---" ELSE PRINT USING "X = ###.### Y = ###.###"; x; f(x) END IF END IF NEXT END FUNCTION f (x) IF ABS(x) <= 2 THEN IF ABS(x) >= 1 THEN f = SQR(x ^ 2 - 1) ELSE f = x + 5 END IF END FUNCTION
Числовая форма. Как говорилось выше, компьютер может обрабатывать только информацию, представленную в числовой форме. Вся другая информация (звуки, изображения, показание приборов и т.д.) для обработки на компьютере должна быть преобразована в числовую форму. Скажем, чтобы перевести цифровую форму звук, можно через небольшие промежутки времени измерять интенсивность звука, представляя результаты каждого измерения в числовой форме. С программ для компьютера можно выполнить преобразования полученной информации, например «наложить» друг на друга звуки от разных источников. После этого результата можно преобразовать обратно в звуковую форму. Кодировки символов. Для обработки на компьютере текстовой информации обычно при вводе в компьютер каждая буква кодируется определенным числом, а при выводе на внешнее устройство (экран или печать) для восприятия человеком по этим числам строятся соответствующие изображения букв. Соответствие между набором букв и числами называется кодировкой символов. Двоичная система счисления. Как правило, все числа внутри компьютера представляются с нулей и единиц, а не десяти цифр, как это привычно для людей. Иными словами, компьютеры обычно работают в двойничной системе счисления, поскольку при этом их устройства получаются значительно более простым. Ввод чисел в компьютер и вывод их для чтения человеком может осуществляться привычным для людей десятичной форме – все необходимые преобразования могут выполнить программы, работающие на компьютере. Биты и байты. Единицей информации в компьютере является один бит, т.е. двоичный разряд, который может принимать значения ноль или один. Как правило, команды компьютеров работают не с отдельными битами, а восемью битами сразу. Восемь последовательных битов составляют байт. В одном байте можно закодировать значение одного символа из 256 возможных (256 = ). Более крупными единицами информации являются килобайт (сокращенно обозначаемый Кбайт), равный 1024 байтам (1024=2),мегабайт (сокращенно обозначаемый Мбайт), равный 1024 Кбайтам и гигабайт (Гбайт), равный 1023 Мбайтам. Для ориентировки скажем, что если на странице текста помещается в среднем 2500 знаков, то один Мбайт – это примерно 400 страниц, а 1 Гбайт – 400 тыс. страниц терабайт.
uses Crt;
const n=10;
var a, i, Sum: integer;
Sred: real;
begin
ClrScr;
Sum:=0;
i:=1;
While i<=10 do
begin
Write ('a = ');
ReadLn(a);
Sum:=Sum+a;
i:=i+1;
end;
Sred:=Sum/n;
Writeln('Sred = ', Sred:6:2);
WriteLn;
Sum:=0;
i:=1;
repeat
Write ('a = ');
ReadLn(a);
Sum:=Sum+a;
i:=i+1;
until i>n;
Sred:=Sum/n;
Writeln('Sred = ', Sred:6:2);
WriteLn;
Sum:=0;
for i:=1 to n do
begin
Write ('a = ');
ReadLn(a);
Sum:=Sum+a;
end;
Sred:=Sum/n;
Writeln('Sred = ', Sred:6:2);
ReadLn;
end.