Решение задач на ЯП Паскаль

advertisement
Решение задач на Паскаль
Является ли число b делителем числа a.
program z30;
{ Являетсяли число b делителем числа a. }
var a,b : integer;
begin
write('a=');readln(a);
write('b=');readln(b);
if a mod b=0 then write('делится')
else write('не делится');
readln;
end.
for … to … do …;
Факториал числа.
program z9;
{ Сост. прог. выч. факториала числа n.
Пример: 5!=1*2*3*4*5
7!=1*2*3*4*5*6*7 }
var f,n,i : integer;
begin
write('n=');readln(n);
f:=1;
for i:=1 to n do f:=f*i;
write('f=',f);
readln;
end.
Найти двузначное число сумма кубов цифр
которого равна n.
program z45;
{ Найти двузначное число сумма кубов цифр
которого равна n. }
var j,i : integer;
z,n : longint;
begin
write('n=');readln(n);
for j:=1 to 9 do
for i:=1 to 9 do
if i*i*i+j*j*j=n then z:=10*i+j;
write('z=',z);
readln;
end.
Length(S) определяет текущую длину строкового выражения S.
Результат – значение целого типа.
Значение S
‘(а+в)*с’
Выражение
Length(s)
Результат
7
Процедуры преобразования типов в Паскале
Str(x, S) преобразует число x в строковый формат. Здесь x – любое
числовое выражение, S – строковая переменная. В процедуре есть
возможность задавать формат числа x. Например, str(x: 8: 3, S), где
8 – общее число знаков в числе x, а 3 – число знаков после запятой.
Оператор процедуры Значение S
Str (sin(1):6:4, S)
‘0.0175’
Str (3456, S)
‘3456’
Количество букв "а" в тексте
program z6;
var d
: string[30];
n,i : integer;
begin
write('наберите текст ');
readln(d);
n:=0;
for i:=1 to length(d) do
if d[i]='а' then n:=n+1;
write('В тексте а=',n);
readln;
end.
Составить программу проверки есть ли в
тексте буква "s".
program z11;
var t : string;
i : integer;
ot : boolean;
begin
writeln('введите текст:');readln(t);
for i:=1 to length(t) do
if t[i]='s' then ot:=true;
if ot=true then write('да')
else write('нет');
readln;
end.
Определить является ли данное слово
перевертышем.
program z40;
var a,b,c : string;
i : longint;
begin
write('Введите слово: ');readln(a);
b:='';
for i:=1 to length(a) do
b:=a[i]+b;{переворачиваем слово}
if a=b then write('перевертыш')
else write('не перевертыш');
readln;
end.
Является ли перевёртышем число.
program z49;
var a,b : string;
n,i : longint;
begin
write('введите число n=');readln(n);
str(n,a);
b:='';
for i:=1 to length(a) do b:=a[i]+b;
if a=b then write('перевёртыш')
else write('не перевёртыш');
readln;
end.
while … do
Составить программу нахождения НОД двух
чисел a и b.
program z32;
var a,b,p : real;
nod : real;
begin
write('a=');readln(a);
write('b=');readln(b);
p:=a*b;
while a<>b do
if a>b then a:=a-b
else b:=b-a;
nod:=a;
writeln('НОД:',a);
readln;
end.
Download