Vladimir_S

Ну и ладно. Можно немного причесать, например вместо
L:Integer;
i,n,Sum,Code:Integer;
записать просто
i,n,Sum,Code,L:Integer;

Но не обязательно.

rodger_rulez

Владимир, прошу еще Вашей помощи в последний раз...
Вот задачка:
Протабулироавать функцию y=|cosx²-0,51|sin(3x-4)-4,44 на отрезке [0;7] с шагом h=0,1x7. Результат вывести в виде таблицы. Определить сумму всех положительных значений функции Y и количество отрицательных.

rodger_rulez

функция y=|cos(x*x)-0,51|sin(3x-4)-4,44

Vladimir_S

Ох, ну до чего это утомительно, когда в условии задачи явный брёх! Простейший анализ формулы показывает, что никаких положительных значений там в принципе быть не может!!! Судите сами:
1. Под знаком модуля - косинус чего-то минус 0.51, т.е. максимальное значение - около 1.5.
2. Дальше это дело умножается на синус чего-то, неважно чего, имеющий максимальное значение 1. Произведение этих двух сомножителей дает максимальное значение 1.49.
3. И теперь из этого вычитается 4.44. И откуда положительным величинам взяться?
Ну ладно, моё дело - сторона. Вы дали такое условие - получите:

M@rgo

Еще раз всем ПРИВЕТ!!!!! нужно помощь, срочно!!!!
нужно объяснение строчкам!!!!

задача 22: дана строка изображающая целое положительное число. Вывести сумму цифр этого числа.

VAR
S,s1:String;
L,i,n,Sum,Code:Integer;
BEGIN
Writeln('Enter the string:');
Readln(S);
Sum:=0;
L:=Length(s);
For i:=1 to L do
begin
S1:=s[i];
Val(S1,n,Code);
Inc(Sum,n);
end;
Writeln('Sum= ',Sum);
Readln
END.

Vladimir_S

Пожалуйста:
VAR {Задаем переменные (параметры) программы}
S,s1:String; {Вводим две переменные типа "Строка"}
L,i,n,Sum,Code:Integer; {Ещё вводим несколько целочисленных}
BEGIN {Начинаем}
Writeln('Enter the string:'); {Компьютер просит вести строку }
Readln(S); {Вводим стоку}
Sum:=0; {Будущей сумме цифр присваиваем исходное значение "0"}
L:=Length(s); {Переменной L присваиваем значение, равное количеству символов во введенной строке, в данном случае - количеству цифр числа }
For i:=1 to L do {Объявляем цикл посимвольного перебора введенной строки}
begin {Начинаем этот цикл}
S1:=s[i]; {Строковой переменной S1 присваиваем значение текущего (i-того) символа строки, в данном случае - символа знака цифры. Эта строка - на всякий случай; не все версии Паскаля допускают непосредственную подстановку символа (а не строки) в оператор Val}
Val(S1,n,Code);{Преобразуем символ S1 в число (цифру) n. Параметр Code отражает наличие или отсутствие ошибок при этой операции; его использование (или неиспользование) - на усмотрение программиста. В данном случае он никак не обрабатывается, но вводить его всё равно надо}
Inc(Sum,n); {Увеличиваем искомую сумму Sum на величину n}
end;{Конец цикла по цифрам исходного числа}
Writeln('Sum= ',Sum);{Вывод результата (полученной суммы) на экран}
Readln {Останов, чтобы можно было на этот результат посмотреть}
END. {Всё!}

M@rgo

Хорошо, спасибо большое!!!!!

Во эту строку:
Inc(Sum,n);
можно записать так:
Sum:=Sum+n;
да?и буде тоже самое

А что с этой строкой:
Val(S1,n,Code);

Vladimir_S

Абсолютно.
В каком смысле - что? Я же вроде подробно расписал про эту строку. Если интересуетесь, можно ли заменить чем-нибудь - ответ, увы, отрицательный.
А вообще
VAL(S,N,Code) (преобразование строки в число) и
STR(N,S) (обратное преобразование) - это стандартные процедуры Паскаля.

M@rgo

Ясно!!! Thanks!!!!