Program lol (input, output); var a, n, b, i, p,s, m:integer; c:real; begin read (n); a:=n; b:=0; c:=0; p:=1; while a <> 0 do begin a:=a div 10; b:=b+1; end; while b <> 0 do begin p:=1; for m:=1 to b do p:=p*10; s:=(n mod p) div (p div 10); c:=c+s; end; b:=b-1; end; writeln (c); end.
program lol (input, output); var I, a:integer; begin a:=0; for I:=31 to 55 do begin if (i mod 2) <> 0 then a:=a+I; end; writeln (a); end.
var a, b, c, s, I:integer; begin read (a, b); if a<b then begin c:=a; a:=b; b:=c; end; c:=a; while c > 0 do begin while c >= b do begin c:=a-b; if c > 0 then s:=c; a:=c; end; a:=b; b:=c; end; writeln (s); end.
program lol (input, output); var m, n, prod: word; begin readln(m, n); prod := m * n; while m <> n do begin if m > n then begin m := m - n end else begin n := n - m end end; writeln(prod div m) end.
program lol (input, output); var a, b, c, e:Integer; d:real; begin read (a, b); d:=a/b; c:=trunc(d); e:=a-(b*c); writeln ('Частное: ',c); writeln ('Остаток: ',e); end.
Логические операции применимы не только к логическому типу данных, но и к целочисленному типу данных. Для целых чисел операции выполняются поразрядно, отдельно с каждым битом.
Тип данных String в Pascal.
Со строковыми переменными можно производить различные операции. Операция сцепления строк позволяет соеденить 2 строки между собой.
Логические операции And, Or, Not, Xor в Pascal.
Над переменными логического типа можно производить логические операции. В языке программирования Pascal существуют следующие логические операции : And – логическое умножение, Or – логическое сложение, Not – логическое отрицание, Xor – ...
Циклы и массивы
Стандартные функции в Паскаль.
Наиболее часто встречающиеся операции над скалярными типами данных реализованы в языке Паскаль с встроенных (иногда говорят — стандартных) функций и процедур.
Программирование вычислительных процессов.
Решение задачи на ЭВМ — это сложный процесс, в ходе которого пользователю приходится выполнять целый ряд действий, прежде чем он получит интересующий его результат.
Табулирование функций.
Язык программирования Паскаль Категория: Лекции по Pascal.
Задача табулирования функции предполагает получение таблицы значений функции при изменении аргумента с фиксированным шагом. В качестве исходной информации должны быть заданы: Х0, Хn – начало и конец промежутка табулирования, при этом (Х0< Хn); n – число шагов разбиения промежутка [Х0, Xn]; F(X) – описание табулируемой функции.
При составлении алгоритма предполагается, что X – текущее значение аргумента; h – шаг изменения аргумента (иногда его называют шагом табуляции функции); i – текущий номер точки, в которой вычисляются функция (i = 0 .. n).
Количество интервалов n, шаг табуляции h и величины Х0, Хn связаны между собой фор-мулой:
tabulirovanie funkcii
Интерпретация переменных (т. е. их обозначение в математической постановке задачи, смысл и тип, обозначения в блок-схеме и программе) приведена в таблице имен.
tabulirovanie funkcii.
Пример 17. Табулировать функцию F(X) в N равноотстоящих точках, заданную на промежутке [Х0, Xn], где
tabulirovanie funkcii..PROGRAM PR17;
VAR
I, N: INTEGER;
X, Y: REAL;
H, X0, XN: REAL;
BEGIN
WRITELN('ВВЕДИТЕ X0, XN, N');
READLN(X0, XN, N);
H := (XN - X0)/N;
FOR I:=0 TO N
DO BEGIN
Y:= SIN(X+1)*EXP(2-X*X);
X := X0 + I * H;
WRITELN (X:4:1,",Y:9:6)
END
END.
tabulirovanie funkcii...
Теперь запишем решение этой же задачи, но с использованием цикла While...DO.
var a, n, b, i, p,s, m:integer;
c:real;
begin
read (n);
a:=n;
b:=0;
c:=0;
p:=1;
while a <> 0 do
begin
a:=a div 10;
b:=b+1;
end;
while b <> 0 do
begin
p:=1;
for m:=1 to b do
p:=p*10;
s:=(n mod p) div (p div 10);
c:=c+s;
end;
b:=b-1;
end;
writeln (c);
end.
program lol (input, output);
var I, a:integer;
begin
a:=0;
for I:=31 to 55 do
begin
if (i mod 2) <> 0 then
a:=a+I;
end;
writeln (a);
end.
var a, b, c, s, I:integer;
begin
read (a, b);
if a<b then
begin
c:=a;
a:=b;
b:=c;
end;
c:=a;
while c > 0 do
begin
while c >= b do
begin
c:=a-b;
if c > 0 then
s:=c;
a:=c;
end;
a:=b;
b:=c;
end;
writeln (s);
end.
program lol (input, output);
var m, n, prod: word;
begin
readln(m, n);
prod := m * n;
while m <> n do
begin
if m > n then
begin
m := m - n
end
else
begin
n := n - m
end
end;
writeln(prod div m)
end.
program lol (input, output);
var a, b, c, e:Integer;
d:real;
begin
read (a, b);
d:=a/b;
c:=trunc(d);
e:=a-(b*c);
writeln ('Частное: ',c);
writeln ('Остаток: ',e);
end.
Логические операции применимы не только к логическому типу данных, но и к целочисленному типу данных. Для целых чисел операции выполняются поразрядно, отдельно с каждым битом.
Тип данных String в Pascal.
Со строковыми переменными можно производить различные операции. Операция сцепления строк позволяет соеденить 2 строки между собой.
Логические операции And, Or, Not, Xor в Pascal.
Над переменными логического типа можно производить логические операции. В языке программирования Pascal существуют следующие логические операции : And – логическое умножение, Or – логическое сложение, Not – логическое отрицание, Xor – ...
Циклы и массивы
Стандартные функции в Паскаль.
Наиболее часто встречающиеся операции над скалярными типами данных реализованы в языке Паскаль с встроенных (иногда говорят — стандартных) функций и процедур.
Программирование вычислительных процессов.
Решение задачи на ЭВМ — это сложный процесс, в ходе которого пользователю приходится выполнять целый ряд действий, прежде чем он получит интересующий его результат.
Табулирование функций.
Язык программирования Паскаль Категория: Лекции по Pascal.
Задача табулирования функции предполагает получение таблицы значений функции при изменении аргумента с фиксированным шагом. В качестве исходной информации должны быть заданы: Х0, Хn – начало и конец промежутка табулирования, при этом (Х0< Хn); n – число шагов разбиения промежутка [Х0, Xn]; F(X) – описание табулируемой функции.
При составлении алгоритма предполагается, что X – текущее значение аргумента; h – шаг изменения аргумента (иногда его называют шагом табуляции функции); i – текущий номер точки, в которой вычисляются функция (i = 0 .. n).
Количество интервалов n, шаг табуляции h и величины Х0, Хn связаны между собой фор-мулой:
tabulirovanie funkcii
Интерпретация переменных (т. е. их обозначение в математической постановке задачи, смысл и тип, обозначения в блок-схеме и программе) приведена в таблице имен.
tabulirovanie funkcii.
Пример 17. Табулировать функцию F(X) в N равноотстоящих точках, заданную на промежутке [Х0, Xn], где
tabulirovanie funkcii..PROGRAM PR17;
VAR
I, N: INTEGER;
X, Y: REAL;
H, X0, XN: REAL;
BEGIN
WRITELN('ВВЕДИТЕ X0, XN, N');
READLN(X0, XN, N);
H := (XN - X0)/N;
FOR I:=0 TO N
DO BEGIN
Y:= SIN(X+1)*EXP(2-X*X);
X := X0 + I * H;
WRITELN (X:4:1,",Y:9:6)
END
END.
tabulirovanie funkcii...
Теперь запишем решение этой же задачи, но с использованием цикла While...DO.
PROGRAM PR17_while;
VAR
N: INTEGER;
X, Y: REAL;
H, X0, XN: REAL;
BEGIN
WRITELN('ВВЕДИТЕ X0, XN, N');
READLN(X0, XN, N);
H := (XN - X0)/N;
X:=X0;
WHILE X<=XN
DO BEGIN
Y:= SIN(X+1)*EXP(2-X*X);
X := X + H;
WRITELN (X:4:1,",Y:9:6)
END
END.