Задача : Пусть генератор случайных чисел заполнит массив из 10 вещественных чисел. Каждое число, помещаемое в массив, должно быть из диапазона значений от 0 до 20. Внимание: 10- это размер массива, который определяется при описании и влияет на циклы. 0-20 –это диапазон значений, который определяется только в формуле. Задание: 1) Выполните программу и запишите протокол. 2) Измените программу так, чтобы массивы поменял имя (c) и тип на целый 3) Измените программу так, чтобы в массиве уменьшилось количество элементов до 15. 4) Измените программу так, чтобы значение элементов определялось из диапазона [-10, 10] 5) Измените программу так, чтобы готовый массив выводился в отдельной строке; 6) Найдите количество положительных элементов массива. Для этого: − опишите переменную для накопления суммы (Kol); − задайте ей начальное значение, равное 0 (до цикла); − после определения значения элемента, введите условную структуру для проверки если c[i]>0 то Kol:=Kol+1; − после вывода массива , произведите вывод результата. Обрати внимание на примерный протокол для выполнения результата
Ответы
1. Вариант современного решения
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Число четных цифр равно ',
abs(ReadInteger('n=')).ToString.Where(c->c.ToDigit.IsEven).Count)
end.
Пример
n= 363754345
Число четных цифр равно 3
2. Вариант "школьного решения" в синаксисе ТурбоПаскаль 1983г.
program TP70;
uses Crt;
var
n:longint;
k,d:byte;
begin
ClrScr;
Write('n= '); Read(n);
n:=abs(n);
k:=0;
while n>0 do begin
d:=n mod 10;
if d mod 2=0 then Inc(k);
n:=n div 10
end;
Writeln('Число четных цифр равно ',k);
ReadKey;
end.
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Число четных цифр равно ',
abs(ReadInteger('n=')).ToString.Where(c->c.ToDigit.IsEven).Count)
end.
Пример
n= 363754345
Число четных цифр равно 3
2. Вариант "школьного решения" в синаксисе ТурбоПаскаль 1983г.
program TP70;
uses Crt;
var
n:longint;
k,d:byte;
begin
ClrScr;
Write('n= '); Read(n);
n:=abs(n);
k:=0;
while n>0 do begin
d:=n mod 10;
if d mod 2=0 then Inc(k);
n:=n div 10
end;
Writeln('Число четных цифр равно ',k);
ReadKey;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
вообще не понимаю этот урок
Автор: Nataliyaof
Деректер типтері. 1-сабақ 5-тапсырма. Float типінің мәліметтерін анықта.помагите
Автор: FATAHOVAMAINA
Определите значение х в уравнении 2х+3 бит =4 мбайт
Автор: Morozova-Starikov
С диаграмм Эйлера показать, что |A∪B| = |A| + |B| – |A∩B|.
Автор: kuz-vlad21
program task1;
var x,y,xq,yq,sum,pro,cha,raz:integer;
begin
write('Введите числа:');
readln(x,y);
xq:=sqr(x);
yq:=sqr(y);
sum:=xq+yq;
raz:=xq-yq;
pro:=xq*yq;
cha:=xq/yq;
write('Сумма=',sum,';Разность=',raz,';Частное=',cha,';Произведение=',pro);
end.
2)
program task2;
var a,r,rr,h,s:real;
begin
write('Введите длину стороны треугольника: ');
readln(a);
r := sqrt(3) * a / 6;
rr := 2 * r;
h := 3 * r;
s := a * h / 2;
Writeln('Радиус вписанной окружности ', r::2);
Writeln('Радиус описанной окружности ', rr::2);
Writeln('Высота треугольника ', h::2);
Writeln('Площадь треугольника ', s::2);
end.