1|, 2|, 3| и т.д. - номер строки. 1| Объявление переменных a,b и c типа integer (или int, числовые переменные) 2| Начало программы 3| Присваивание значений переменным a,b,c. Всем им присвоили значение 0. 4| Простыми словами: пока a умножить на 2 меньше 200, то 5| Присваивание значений переменным: b = b + 3 6| c = c - 1 7| a = a + b + c. Тут хочу пояснить: при значении этих переменных 0, a = 0 + 3 - 1, т.е. a = 2. Возвращаемся к началу цикла, т.к. 2 * 2 меньше 200: b = 3 + 3; c = -1 - 1; a = 2 + 6 - 2, т.е. 6. И так далее: 12, 20, 30, 42, 56, 72, 90, 110. 8| Конец цикла while (4 строка). 9| Напишем a - 10 (110 - 10 = 100) 10| Конец программы.
Я вообще не знаю Pascal (даже не начинал изучать), поэтому тут могут быть некоторые неточности или слишком заумные слова, надеюсь на понимание :)
С++. Пример работы программы на изображении.
#include <iostream>
#include <ctime>
#include <cstdlib>
#include <algorithm>
#include <iterator>
#include <clocale>
#include <vector>
#define UINT unsigned int
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
int N = 20;
const int K = 13;
if(K >= N || K < 0) {
cout << "Ошибка! Выход за прееделы массива";
return 1;
}
double *Arr = new double[N];
/*ЗАПОЛЕНИНЕ МАССИВА СЛУЧАЙНЫМИ ЧИСЛАМИ*/
srand((UINT)time(NULL));
generate(Arr, Arr + N, []() { return rand() % 91 + 10; });
/*ВЫВОД НА ЭКРАН ИЗНАЧАЛЬНОГО МАССИВА*/
cout << "Исходный массив:" << endl;
copy(Arr, Arr + N, ostream_iterator<int>(cout, " "));
cout << endl;
/*УДАЛЕНИЕ ЭЛЕМЕНТА k*/
vector<double> bufer(Arr, Arr + N);
bufer.erase(bufer.begin() + K);
Arr = (double*)realloc(Arr, sizeof(Arr[0])*(--N));
copy(bufer.begin(), bufer.end(), Arr);
/*ВЫВОД НА ЭКРАН КОНЕЧНОГО МАССИВА*/
cout << "Результирующий массив массив:" << endl;
copy(Arr, Arr + N, ostream_iterator<int>(cout, " "));
cout << endl;
system("pause");
return 0;
}
1| Объявление переменных a,b и c типа integer (или int, числовые переменные)
2| Начало программы
3| Присваивание значений переменным a,b,c. Всем им присвоили значение 0.
4| Простыми словами: пока a умножить на 2 меньше 200, то
5| Присваивание значений переменным: b = b + 3
6| c = c - 1
7| a = a + b + c. Тут хочу пояснить: при значении этих переменных 0, a = 0 + 3 - 1, т.е. a = 2. Возвращаемся к началу цикла, т.к. 2 * 2 меньше 200: b = 3 + 3; c = -1 - 1; a = 2 + 6 - 2, т.е. 6. И так далее: 12, 20, 30, 42, 56, 72, 90, 110.
8| Конец цикла while (4 строка).
9| Напишем a - 10 (110 - 10 = 100)
10| Конец программы.
Я вообще не знаю Pascal (даже не начинал изучать), поэтому тут могут быть некоторые неточности или слишком заумные слова, надеюсь на понимание :)