Вопрос: Найти сумму четных чисел натурального ряда, начиная с числа n до m
Найти сумму четных чисел натурального ряда, начиная с числа n до m(m и n вводит пользователь).
Ответ: Без циклов:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
n, m, sum: integer;
begin
sum := 0;
repeat
writeln('Введите числ с которого начинается ряд');
readln(n);
writeln('Введите число которым заканчивается ряд');
readln(m);
until n
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
var x,y:real;
Write('Введите координаты точки: '); Read(x,y);
var rho:=sqrt(x*x+y*y);
var fi:=arctan(y/x);
Writeln('Радиус: ',rho,', угол(рад): ',fi)
end.
Пример:
Введите координаты точки: 3 -2.7
Радиус: 4.03608721412211, угол(рад): -0.732815101786507
Блин ответ на языке крутится не могу это написать
<em>Математическая модель</em> и <em>компьютерная математическая модель </em>- это информационные модели, это их общая черта
Различие - компьютерная математическая модель - это какая-то конкретная реализация математической модели (например, программа), построенная на компьютере.
Прикладываю исходник и скрин в приложении к ответу.
<u><em>Несколько замечаний:
</em></u><em />1. <em />Большое количество комментариев внесено в код исключительно в учебных целях. В реальную программу переносить не рекомендуется - признак нехорошего тона.
2. У вас допущены синтаксические ошибки в двух последних циклах, а точнее - в операторах If, в которых стоит три условия (объединённых and), но нет ключевого слова "then" и последующих инструкций. Исправил.
3. Так же, автор вашей программы построил на мой взгляд нелогичную структуру алгоритма. Переменные min, min2 и min3, как я догадался, должны хранить три минимальных значения массива.
А вот что происходит в вашей конструкции: первый цикл безошибочно находит наименьший элемент и записывает его в min, а последующие два цикла записывают в min2 и min3 первые попавшиеся(начиная с первого) элементы, если они больше min. Таким образом, нет никакой закономерности в том, что попадёт в эти переменные и сложно представить, для какой задачи потребовались бы такие случайности.
Одним из вариантов решения предлагаю изначально записывать в эти три переменные не значение первого элемента массива, а какое-то большое число, которое в массиве нам не встретится (например 100). Тогда цикл будет искать значения меньше 100 и перезаписывать им соответствующую переменную, пока не найдёт самое маленькое значение. В таком случае не очень стабильная переменная j нам так же не нужна, я её вычеркнул.
Вам отсылаю уже с учётом поправок, однако если вам требовалась <u><em>именно первоначальная версия</em></u> несмотря на её минусы, просто поправьте синтаксис в последних циклах (41 и 34 строчка на скрине) и пользуйтесь ей.