спешу Вас уведомить, что в Паскале у процедуры есть как параметры-значения, так и параметры-переменные. Последние в описании процедуры оформляются с использованием ключевого слова var.
devels писал(а):На счет скобок и and, or и т.п., не во всех языках приоритет операций у них больше чем у других, в таких языках можно скобки опускать.
Код: Выделить всё
if a > b
Код: Выделить всё
if (a > b)Код: Выделить всё
if (a > b) and (c < b)Код: Выделить всё
if (a > b)
then begin
...
end
else begin
...
end;
Padre_Mortius писал(а):спешу Вас уведомить, что в Паскале у процедуры есть как параметры-значения, так и параметры-переменные. Последние в описании процедуры оформляются с использованием ключевого слова var.
Для начального уровня это может быть очень сложно для понимания. Поэтому прежде чем лезть в дебри стоит ознакомиться с функциями и понять чем они отличаются от процедур.
vada писал(а):devels писал(а):На счет скобок и and, or и т.п., не во всех языках приоритет операций у них больше чем у других, в таких языках можно скобки опускать.
Вот не стоет этого делать. Лишние скобки не всегда лишние для понимания кода.
Паскаль позволяет писатьКод: Выделить всё
if a > b
Я стараюсь писать
...
Вообще много подобных приемов для удобства чтения и редактирования своего-же кода.
Подпрограммы - очень важный элемент программирования.
Но там есть хитрости, которые важно понимать.
На процедурах возникли такие вопросы, а что будет, когда дело дойдет до функций...
Могу посоветовать блоки моего курса "Базовое программирование" раздел "Подпрограммы", Там есть не только голая теория, а ещё и задачи показывающие проблемные места.
Paster Fob писал(а):А вот описаний происходящих процессов внутри программы практически нет.
). Вместо этого код можно написать один раз, обозвать его каким-то именем и во всех остальных случаях обращаться к этому участку коа только по его короткому имени.вычислить значения синуса
Paster Fob писал(а):Большая беда в том что после окончания средней школы я пошёл работать,учиться не было возможности.И всё что изучали дальше 5-го класса не помню вообще,хотя учился не плохо.
daesher писал(а):"А что, если из подпрограммы надо передать два или более значения, а новый временный тип изобретать не хочется".
Есть логика, ей надо и следовать. Например, если подпрограмма вычисляет и возвращает значение плоской координаты, то логично использовать специальный тип - TPoint. Это мало того, что логично, но и программа будет у Вас в 1000 раз понятнее, если, вместо использования X и Y, Вы будете использовать Point.X и Point.Y. При этом сразу же понятно, о чём в этих переменных идёт речь. Vadim писал(а):А почему это вдруг не хочется?
Например, если подпрограмма вычисляет и возвращает значение плоской координаты, то логично использовать специальный тип - TPoint. Это мало того, что логично, но и программа будет у Вас в 1000 раз понятнее, если, вместо использования X и Y, Вы будете использовать Point.X и Point.Y. При этом сразу же понятно, о чём в этих переменных идёт речь.
Код: Выделить всё
procedure Calc(arg:string; ch:char; var res:integer);
var k:integer;
begin
res:=0;
for k:=1 to length(arg) do
if arg[k]= ch1 then res:= Res+1;
end; Код: Выделить всё
procedure Calc(arg:string; ch:char; var res:integer);
var k:integer;
begin
res:=0;
for k:=1 to length(arg) do
if arg[k]= ch then res:= res+1;
end;
var s:string;
n:integer;
Begin
writeln('Введите строку');
readln(s);
Calc(s,'a',n);
writeln('В строке ',n,' символов `a`');
readln;
end.Код: Выделить всё
Fuction Calc(arg:string; ch:char): integer;
Var
k: integer;
Begin
Calc:=0;
For k:=1 To length(arg) Do
If arg[k]= ch Then
Calc:= Calc+1;
end; Код: Выделить всё
Fuction Calc(arg:string; ch:char): integer;
Var
k: integer;
Begin
Result:=0;
For k:=1 To length(arg) Do
If arg[k]= ch Then
Result:= Result+1;
end; Код: Выделить всё
var
s: string;
Begin
writeln('Введите строку');
readln(s);
writeln('В строке ', Calc(s,'a'), ' символов `a`);
readln;
end.Код: Выделить всё
Fuction CountOfCharInString(arg:string; ch:char): integer;
Var
k: integer;
Begin
CountOfCharInString:=0;
For k:=1 To length(arg) Do
If arg[k]= ch Then
CountOfCharInString:= CountOfCharInString+1;
end; Код: Выделить всё
//Подсчёт количества заданных символов в строке
//arg - строка, в которой идёт подсчёт
//ch - заданный символ
Fuction CountOfCharInString(arg:string; ch:char): integer;
Var
k: integer;
Begin
CountOfCharInString:=0;
//Цикл, в котором идёт сравнение каждого символа строки с заданным
For k:=1 To length(arg) Do
If arg[k]= ch Then
//Если совпало, прибавление к результату единички
Inc(CountOfCharInString);
end;
var
s: string;
Begin
writeln('Введите строку');
readln(s);
writeln('В строке ', CountOfCharInString(s,'a'), ' символов `a`);
readln;
end.Vadim писал(а):Paster Fob
Поскольку у Вас процедура возвращает один единственный результат (количество заданных символов), логичнее было бы написать функцию:Код: Выделить всё
Fuction Calc(arg:string; ch:char): integer;
Var
k: integer;
Begin
Calc:=0;
For k:=1 To length(arg) Do
If arg[k]= ch1 Then
Calc:= Calc+1;
end;
...
informat писал(а):Кстати, функция уже не работает. CH и CH1 - разные переменные.
И Вас все преподаватели полюбят, как родного сына.
Поскольку у Вас процедура возвращает один единственный результат (количество заданных символов), логичнее было бы написать функцию