Модератор: Модераторы
Padre_Mortius » 03.05.2011 10:07:29
спешу Вас уведомить, что в Паскале у процедуры есть как параметры-значения, так и параметры-переменные. Последние в описании процедуры оформляются с использованием ключевого слова var.
vada » 03.05.2011 10:22:17
devels писал(а):На счет скобок и and, or и т.п., не во всех языках приоритет операций у них больше чем у других, в таких языках можно скобки опускать.
if a > b
if (a > b)if (a > b) and (c < b)if (a > b)
then begin
...
end
else begin
...
end;
informat » 03.05.2011 15:18:05
Padre_Mortius писал(а):спешу Вас уведомить, что в Паскале у процедуры есть как параметры-значения, так и параметры-переменные. Последние в описании процедуры оформляются с использованием ключевого слова var.
Для начального уровня это может быть очень сложно для понимания. Поэтому прежде чем лезть в дебри стоит ознакомиться с функциями и понять чем они отличаются от процедур.
vada писал(а):devels писал(а):На счет скобок и and, or и т.п., не во всех языках приоритет операций у них больше чем у других, в таких языках можно скобки опускать.
Вот не стоет этого делать. Лишние скобки не всегда лишние для понимания кода.
Паскаль позволяет писать
- Код: Выделить всё
if a > b
Я стараюсь писать
...
Вообще много подобных приемов для удобства чтения и редактирования своего-же кода.
Padre_Mortius » 03.05.2011 15:58:00
Paster Fob » 03.05.2011 17:11:54
Подпрограммы - очень важный элемент программирования.
Но там есть хитрости, которые важно понимать.
На процедурах возникли такие вопросы, а что будет, когда дело дойдет до функций...
Могу посоветовать блоки моего курса "Базовое программирование" раздел "Подпрограммы", Там есть не только голая теория, а ещё и задачи показывающие проблемные места.
Vadim » 03.05.2011 18:09:01
Paster Fob писал(а):А вот описаний происходящих процессов внутри программы практически нет.
). Вместо этого код можно написать один раз, обозвать его каким-то именем и во всех остальных случаях обращаться к этому участку коа только по его короткому имени. Paster Fob » 03.05.2011 18:50:43
вычислить значения синуса
daesher » 03.05.2011 19:56:32
Vadim » 04.05.2011 02:32:18
Paster Fob писал(а):Большая беда в том что после окончания средней школы я пошёл работать,учиться не было возможности.И всё что изучали дальше 5-го класса не помню вообще,хотя учился не плохо.
daesher писал(а):"А что, если из подпрограммы надо передать два или более значения, а новый временный тип изобретать не хочется".
Есть логика, ей надо и следовать. Например, если подпрограмма вычисляет и возвращает значение плоской координаты, то логично использовать специальный тип - TPoint. Это мало того, что логично, но и программа будет у Вас в 1000 раз понятнее, если, вместо использования X и Y, Вы будете использовать Point.X и Point.Y. При этом сразу же понятно, о чём в этих переменных идёт речь. daesher » 04.05.2011 09:55:07
Vadim писал(а):А почему это вдруг не хочется?
Например, если подпрограмма вычисляет и возвращает значение плоской координаты, то логично использовать специальный тип - TPoint. Это мало того, что логично, но и программа будет у Вас в 1000 раз понятнее, если, вместо использования X и Y, Вы будете использовать Point.X и Point.Y. При этом сразу же понятно, о чём в этих переменных идёт речь.
Paster Fob » 08.05.2011 09:47:46
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. Vadim » 08.05.2011 13:09:45
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. informat » 08.05.2011 16:53:03
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;
...
Vadim » 08.05.2011 17:28:54
informat писал(а):Кстати, функция уже не работает. CH и CH1 - разные переменные.
Paster Fob » 08.05.2011 21:23:57
И Вас все преподаватели полюбят, как родного сына.
Поскольку у Вас процедура возвращает один единственный результат (количество заданных символов), логичнее было бы написать функцию
Вернуться в Обучение Free Pascal
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2