Решение задач. День тринадцатый. Series1-10


Series1-10

Приветствуем читателей нашего сайта! Сегодня мы с вами решаем Series1-10. Этот блок подведет огромную жирную черту под темой всех наших уроков. А дальше мы начнем изучать массивы, строки, функции, процедуры и алгоритмы.

Series1-10

Series1°. Даны десять вещественных чисел. Найти их сумму.

Program series1;
var a, summ: real;
    i: integer;
begin
     for i := 1 to 10 do
         begin
              write('Введите число: ');
              readln(a);
              summ := summ + a;
         end;
     writeln('Сумма чисел: ', summ);
end.

Series2. Даны десять вещественных чисел. Найти их произведение.

Program series2;
var a, proizv: real;
    i: integer;
begin
     proizv := 1;
     for i := 1 to 10 do
         begin
              write('Введите число: ');
              readln(a);
              proizv := proizv * a;
         end;
     writeln('Произведение чисел: ', proizv);
end.

Series3. Даны десять вещественных чисел. Найти их среднее арифметическое.

Program series3;
var a, summ: real;
    i, count: integer;
begin
     for i := 1 to 10 do
         begin
              write('Введите число: ');
              readln(a);
              summ := summ + a;
              inc(count);
         end;
     writeln('Среднее арифметическое чисел: ', summ/count);
end.

Series4. Дано целое число N и набор из N вещественных чисел. Вывести сумму и произведение чисел из данного набора.

Program series4;
var a, summ, proizv: real;
    i, n: integer;
begin
     write('Введите N: ');
     readln(n);
     proizv := 1;
     for i := 1 to n do
         begin
              write('Введите число: ');
              readln(a);
              summ := summ + a;
              proizv := proizv * a;
         end;
     writeln('Сумма чисел: ', summ);
     writeln('Произведение чисел: ', proizv);
end.

Series5. Дано целое число N и набор из N положительных вещественных чисел. Вывести в том же порядке целые части всех чисел из данного набора (как вещественные числа с нулевой дробной частью), а также сумму всех целых частей.
Используем функцию int(x), выделяющую целую часть из вещественного числа.

var
  i, N: integer; 
  a, S: real;

begin
  write('N = '); 
  readln(N); 
  S := 0; 
  writeln('Введите ', N, ' вещественных чисел:'); 
  for i := 1 to N do
  begin
    write('Введите вещественное число: ');
    read(a); 
    S := S + int(a);
    writeln('Целая часть - ', int(a)); 
  end;
  write('Сумма целых частей - ', S); 
end.

Series6. Дано целое число N и набор из N положительных вещественных чисел. Вывести в том же порядке дробные части всех чисел из данного набора (как вещественные числа с нулевой целой частью), а также произведение всех дробных частей.

Используем  функцию frac(x), выделяющую дробную часть вещественного числа.

var
  i, N: integer; 
  a, P: real;

begin
  write('N = '); 
  readln(N); 
  P := 1; 
  writeln('Введите ', N, ' вещественных чисел:'); 
  for i := 1 to N do
  begin
    write('Введите вещественное число: ');
    read(a); 
    P := P * Frac(a);
    writeln('Дробная часть - ', Frac(a):3:2); 
    //Два знакоместа для цифр после точки.
  end;
  write('Произведение дробных частей - ', P:3:2); 
end.

Series7. Дано целое число N и набор из N вещественных чисел. Вывести в том же порядке округленные значения всех чисел из данного набора (как целые числа), а также сумму всех округленных значений.
Для округления вещественного числа до ближайшего целого используем функцию round(a), которая результат записывает как целое число.

var
  i, N: integer; 
  a, S: real;

begin
  write('N = '); 
  readln(N); 
  S := 0; 
  writeln('Введите ', N, ' вещественных чисел:'); 
  for i := 1 to N do 
  begin
    write('Введите вещественное число: ');
    read(a); 
    S := S + Round(a);  
    writeln('Округленное значение - ', Round(a))
  end;  
  writeln('Сумма округленных значений - ', S); 
end.

Series8. Дано целое число N и набор из N целых чисел. Вывести в том же порядке все четные числа из данного набора и количество K таких чисел.

var
  i, N, k, a: integer; 

begin
  write('N = '); 
  readln(N); 
  k := 0; 
  writeln('Введите ', N, ' целых чисел:'); 
  for i := 1 to N do 
  begin
    write('Введите целое число: ');
    read(a); 
    if a mod 2 = 0 then 
    begin
    Inc(k);
    writeln('Четное число - ', a);
    end;
  end;  
  writeln('Количество четных чисел - ', k); 
end.

Series9. Дано целое число N и набор из N целых чисел. Вывести в том же порядке номера всех нечетных чисел из данного набора и количество K таких чисел.

var
  i, N, k, a: integer; 

begin
  write('N = '); 
  readln(N); 
  k := 0; 
  writeln('Введите ', N, ' целых чисел:'); 
  for i := 1 to N do 
  begin
    write('Введите целое число: ');
    read(a); 
    if a mod 2 <> 0 then 
    begin
    Inc(k);
    writeln('Нечетное число # ', i);
    end;
  end;  
  writeln('Количество нечетных чисел - ', k); 
end.

Series10. Дано целое число N и набор из N целых чисел. Если в наборе имеются положительные числа, то вывести True; в противном случае вывести False.

Немножко логических переменных.

var
  i, N, a: integer;
  pozitiv: boolean;

begin
  write('N = '); 
  readln(N);  
  pozitiv := false;
  writeln('Введите ', N, ' целых чисел:'); 
  for i := 1 to N do
  begin
    write('Введите целое число: ');
    readln(a);
    if a > 0 then pozitiv := true
  end;  
  writeln(pozitiv); 
end.

На сегодня все! Если у вас возникли какие-либо вопросы, оставляйте их в комментариях.

  1. Простите, а вы можете все эти задачи написать на языке программирования C++???

  2. Добрый вечер, Алиёр!
    А в чем ваша проблема?
    Вы видите не очень сложную(даже легкую)задачу, которая решена на одном из языков программирования. Переложить ее на другой — не такая уж и большая проблема.
    Но переписывать 10 задач на с++ на сайте про Паскаль. Это странно. И просто мартышкин труд.
    Я могу помочь вам с несколькими задачами.
    Пишите номера. Остальное самостоятельно 😉

  3. Хорошо ну тогда просто проверьте если вам не сложно
    #include
    using namespace std;
    int main ()
    {
    int N,a[N],K,Ch,p,q,i;
    cin>>N>>a[N];
    (p=a[N]%2);
    q=a[N]/10;
    if (p=0)
    Ch=Ch+1;
    if (q!=0)
    K=K+1;
    for (Ch=1;Ch<=a[N];i++)
    cout<<i<<"_"<<Ch;
    return 0;
    }
    на языке программирования c++

  4. Здравствуйте!

    В вашем решении вы использовали массив. А series подразумевает то, что человек еще не владеет массивами. Но в любом случае я написал две программы: без использования массива(как в статье) и более изящный вариант с массивом.

    1 вариант.

    #include
    using namespace std;
    int main()
    {
    int a, N;
    cout <> N;
    int k = 0;
    cout << "Введите " << N << " целых чисел:" << endl;

    for (int i = 0; i < N; i++) {
    cout <> a;
    if (a % 2 == 0){
    k += 1;
    cout << "Четное число — " << a << endl;
    }
    }

    cout << "nКоличество четных чисел: " << k << endl;

    return 0;
    }

    2 вариант.

    #include
    using namespace std;
    int main()
    {
    int arr[30], N, a;
    cout <> N;
    int k = 0;
    cout << "Введите " << N << " целых чисел:" << endl;

    // Заполняем массив с клавиатуры
    for (int i = 0; i < N; i++) {
    cout <> a;
    if (a % 2 == 0){
    arr[k] = a;
    k += 1;
    }
    }

    cout << "Четные числа: ";

    for (int i = 0; i < k; i++) {
    cout << arr[i] << " ";
    }

    cout << "nКоличество четных чисел: " << k << endl;

    return 0;

    }

    Если у вас возникли вопросы, задавайте. Постараюсь ответить на все.

  5. Помогите пожалуйста!
    Даны N чисел. Найти их среднее арифметическое.
    В c#

  6. Помогите пожалуйста.
    Даны целые числа K, N и набор из N целых чисел. Если в наборе
    имеются числа, меньшие K, то вывести True; в противном случае вывести
    False
    Это в C++!

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *