2. Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы, используя операторы цикла While, Repeat и For.
For i:=1 to 10 do begin
writeln (‘ Введите ‘,i,’ число ‘);
writeln (‘ Среднее арифметическое =’,’ ‘,sr);
writeln (‘ Введите ‘,i,’ число ‘);
writeln (‘ Среднее арифметическое =’,’ ‘,sr);
writeln (‘ Введите ‘,i,’ число ‘);
writeln (‘Среднее арифметическое =’,’ ‘,sr);
3. Составьте программу, по которой компьютер десять раз запросит ввод целых чисел и в результате сообщит, сколько среди введенных чисел четных и сколько нечетных.
For i:=1 to 10 do
writeln (‘Введите целое число’);
If a mod 2=0 then
writeln (‘ Четных чисел =’,ch);
writeln (‘ Нечетных чисел =’,nch);
4. Составьте программу, по которой на экран будет выведена вся таблица умножения.
ИНФОРМАТИКА 8 класс : Представление целых чисел
Program table;
var
i, j: integer;
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
writeln(j,’ * ‘,i,’ = ‘,i*j);
writeln;
end;
readln
end.
5. Усовершенствуйте программу TablMul (пример 2 данного параграфа) таким образом, чтобы в результате выводилось сообщение о количестве правильных и неправильных ответов.
Var x,y,i,z,p,n:integer;
Begin
Randomize;
p:=0;
n:=0;
For i:= 1 to 10 do
Begin
x:=random(8)+2;
y:=random(8)+2;
WriteLn(‘Сколько будет ‘,x,’*’,y,’?’);
Read(z);
if z=x*y then
Begin
WriteLn(‘Правильно!’);
p:=p+1
End
else
Begin
WriteLn(‘Не правильно! ‘,x,’*’,y,’=’,x*y);
n:=n+1
End
End;
WriteLn(‘Количество правильных ответов: ‘,p);
WriteLn(‘Количество неправильных ответов: ‘,n);
End.
6. Усовершенствуйте программу TablMul таким образом, чтобы в результате выводилась оценка, поставленная ученику. Критерии для выставления оценок придумайте сами .
Var
Ball: array[1..Size] of real;
Ocenka: array[1..Size] of integer;
Counter: integer;
while (Counter begin
Write(‘Введите балл ‘, counter, ‘ ученика: ‘);
Readln(Ball[Counter]);
Counter := Counter + 1;
end;
Repeat
if (Ball[Counter] > 90) then
Ocenka[Counter] := 5
else if (Ball[Counter] >= 75) and (Ball[Counter] < 90) then
Ocenka[Counter] := 4
else if (Ball[Counter] >= 50) and (Ball[Counter] < 75) then
Ocenka[Counter] := 3
else
Ocenka[Counter] := 2;
Counter := Counter + 1;
Until (Counter > Size);
for var i := 1 to Size do
Writeln(‘Оценка ‘, i, ‘ ученика: ‘, Ocenka[i]);
7. Получите таблицу значений ф ункции sin г и cosx на отрезке [0, 1] с шагом 0,1 в следующем виде: X sin г cos г 0.0000 0.0000 1.0000 0.1000 0.0998 0.9950 1.0000 0.8415 0.5403
Информатика. Архитектура ПК: Представление целых чисел в памяти ПК. Центр онлайн-обучения «Фоксфорд»
Begin WriteLn(‘X Sin(X) Cos(X)’);
For X:= 0 to 10 do
8. Получите в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр.
var i, j, k: integer;
for i := 1 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
if (i <> j) and (i <> k) and (j <> k)
writeln(100 * i + 10 * j + k); end.
9. Значение функции е х (экспонента от х) равно сходящейся сумме бесконечного ряда:
Получите рекуррентную формулу для слагаемых. Используя операторы цикла While, Repeat и For, составьте три варианта программы вычисления суммы с заданным числом слагаемых.
var
i, n: integer;
a, x, Summa: real;
begin
write(‘ x = ‘);
readln(x);
write(‘ n = ‘);
readln(n);
a := 1;
i := 1;
Summa := 1;
if n > 0 then
repeat
a := a * x / i;
Summa := Summa + a;
i := i + 1
until i > n;
writeln;
writeln(‘ Summa = ‘, Summa:0:7)
end.
Источник: dzotvet.ru
Составьте программу по которой компьютер 10 раз запросит ввод целых чисел
Оцени ответ
Не нашёл ответ?
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Самые новые вопросы
Гадать еще раз
- Алгебра
- Математика
- Русский язык
- Українська мова
- Информатика
- Геометрия
- Химия
- Физика
- Экономика
- Право
- Английский язык
- География
- Биология
- Другие предметы
- Обществознание
- История
- Литература
- Українська література
- Беларуская мова
- Қазақ тiлi
Показать ещё
Источник: nebotan.com
Составьте программу по которой компьютер 10 раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введённых чисел массив не использует сделайте три варианта программы используя операторы цикла в while repet и for
номер 2 и 4 пожалуйста помогите !
Поделись с друзьями
Ответ оставил Гуру
var
i, j, k: Integer;
begin
repeat
begin
WriteLn(‘число: ‘);
ReadLn(i);
k := k + 1;
j := j + i;
end
until k = 10;
WriteLn(‘Среднее арифметическое=’, j / 10);
end.
2.
program ddg1;
var i,j,k:Integer;
begin
while k<>10 do begin
WriteLn(‘число: ‘);
ReadLn(i);
k:=k+1;
j:=j+i;
end;
WriteLn(‘Среднее арифметическое=’,j/10);
end.
var
i, j: Integer;
begin
for i := 1 to 10 do
begin
WriteLn(‘Введите число:’);
readln(i);
end;
j := j + i;
WriteLn(‘Среднее арифметическое = ‘, j / 10);
end.
4. Таблица умножения:
var
n, m: integer;
begin
for n := 1 to 10 do
for m := 0 to 10 do
WriteLn(n, ‘*’, m, ‘=’, n * m);
end.
Оцени ответ
Не нашёл ответ?
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Источник: urokilegko.ru