Calculate the sum of the squares of the numbers belonging to the interval (A, B), standing on the ground, multiples of 4; count the number of zeros in the whole array

Question

Calculate the sum of the squares of the numbers belonging to the interval (A, B), standing on the ground, multiples of 4; count the number of zeros in the whole array.

program 17; var c:array[1..20] of real; s,kv4,kr,a,b:real; n,i,nul:integer; begin writeln ('vvedite kol-vo el massiva'); readln (n); writeln ('vvedite promeshutok ot a do b'); readln (a,b); writeln ('vvedite el massiva'); for i:=1 to n do readln (c[i]); s:=0; nul:=0; for i:=1 to n do if (c[i]>a) and (c[i]) then begin end; if

kv4 square number

kr multiples

nul Zero.

In my opinion, your code is not completely copied + by the begin - begin
Build first the pseudocode (te logic) and then translate this logic into Pascal.
For example, you have a c - array with 20 elements inside.
It turns out n must be strictly from 1 to 20 otherwise (if the user enters 40) then you will have an exeption , t to c [40] does not exist

Accepted Answer · 2018-10-06T07:35:01

 program elements_of_array; var arr: array of real; n: integer; i: integer; a, b: real; sum: real; nulls: integer; begin write('Количество элементов массива: '); readln(n); SetLength(arr, n); for i := 0 to n - 1 do begin write(i + 1, ' элемент массива: '); readln(arr[i]); end; writeln('Массив: ', arr); write('Промежуток (A, B): '); readln(a, b); sum := 0; nulls := 0; for i := 0 to n - 1 do begin if (arr[i] = 0) then begin inc(nulls); continue; end; if (((i + 1) Mod 4 = 0) and (arr[i] > a) and (arr[i] < b)) then sum := sum + arr[i] * arr[i]; end; writeln('Количество нулей в массиве: ', nulls); writeln('Сумма элементов: ', sum); end.

UPD : implementation of a dynamic array using pointers

 program elements_of_array; const MaxSize = 100; type TArray = array [0..MaxSize] of real; PArray = ^TArray; var arr: PArray; n: integer; i: integer; a, b: real; sum: real; nulls: integer; begin getmem(arr, sizeof(real) * MaxSize); fillchar(arr^, sizeof(real) * MaxSize, #0); write('Количество элементов массива: '); readln(n); for i := 0 to n - 1 do begin write(i + 1, ' элемент массива: '); readln(arr^[i]); end; write('Промежуток (A, B): '); readln(a, b); sum := 0; nulls := 0; for i := 0 to n - 1 do begin if (arr^[i] = 0) then begin inc(nulls); continue; end; if (((i + 1) Mod 4 = 0) and (arr^[i] > a) and (arr^[i] < b)) then sum := sum + arr^[i] * arr^[i]; end; writeln('Количество нулей в массиве: ', nulls); writeln('Сумма элементов: ', sum); end.

This is because there are no dynamic arrays in the turbo-strip; setlength does not apply to arrays

Vitaly Shebanits Vitaly Shebanits 2.133 five 17 · Answer 2 · 2018-10-05T22:22:59

 Program test; uses crt,math; var c:array of integer; // Объявляем динамический массив n,i,a,b,sum_for_null,sum_sqware:integer; begin clrscr; // очистка экрана sum_for_null := 0; // инициализируем переменную для подсчета нулей sum_sqware := 0; // инициализируем переменную для подсчета квадратов writeln('Ведите границы промежутка a и b '); readln(a,b); // Вводим границы setlength(c,n); // устанавливаем длину динамическому массиву for i:=a to b - 1 do // ходим циклом от одной границы ко второй begin readln(c[i]); // считываем значения end; for i:=a to b - 1 do // ходим циклом от одной границы ко второй begin if c[i] = 0 then // если значение равно 0 begin sum_for_null := sum_for_null + 1; // увеличиваем счетчик нулей на 1 end; if (i / 4 = Round(i / 4)) then // если текущий номер массива разделенного на 4 равен округленному текущему номеру деленному на 4 (т е кратен 4ом) begin sum_sqware := sum_sqware + Sqr(c[i]); //увеличиваем текущую сумму на квадрат элемента end; end; writeln('количество нулей в промежутку = ',sum_for_null); // выводим кол-во нулей writeln('сумма квадратов числе на местах, кратных 4 = ',sum_sqware); // выводим сумму квадратов элементов, кратных 4-ом readln // пауза end.

And why not like that? The speed drops, chtoli? - Vitaliy Shebanits 5:53 pm

Calculate the sum of the squares of the numbers belonging to the interval (A, B), standing on the ground, multiples of 4; count the number of zeros in the whole array

2 answers 2

More articles: