Процедуры

1. Составьте программу, проверяющую, является ли число палиндромом (например, число 12421 — палиндром)

program lab7z1;
uses crt;
var n:integer;
procedure pal(n:integer);
var p,m:integer;
begin
m:=n;p:=0;
while m>0 do
begin
p:=p*10+m mod 10;
m:=m div 10;
end;
if p=n then writeln(‘это палиндром’) else
writeln(‘это не палиндром’);
end;
begin
write(‘Введите число  ‘);readln(n);
pal(n);
end.

 

2. Даны два числа. Поменять местами их значения. Написать процедуру, меняющую местами значения двух чисел через промежуточную переменную.

 

program lab7z2;
uses crt;
var x,y:real;
procedure zamena(x,y:real);
var s:real;
begin
s:=x;
x:=y;
y:=s;
writeln(‘x=’,x,’  y=’,y);
end;
begin
write(‘Введите x: ‘);readln(x);
write(‘Введите y: ‘);readln(y);
zamena(x,y);
end.

 

3. Написать процедуру, которая выводит строку, состоящую из одинаковых символов. Длина строки и символ являются параметрами процедуры.

program lab7z3;
uses crt;
var n:integer;c:char;

procedure proc ( c:char;n:integer);
var i:integer;
begin
for i:=1 to n do write(c);
end;
begin
write(‘Введите длину строки n=’);readln(n);
write(‘Введите символ: ‘);readln(c);
proc(c,n);
end.

Добавить комментарий