Редактирование и отладка программ с помощью Pascal (стр. 3 из 12)

readln(a);

d:=a mod 10;

writeln('Число единиц в нем=',d);

readln;

end.

(Вводим значение 6)

Ответ: единиц=6

Задание11.Дано расстояние в сантиметрах. Найти число полных метров в нем.

program as; Блок-схема

uses crt;

var a,m:integer;

begin clrscr;

writeln('Введи расстояние в сантиметрах');

readln(a);

m:=a div 100;

writeln('Получи расстояние в метрах',m);

readln;

end.

(Вводим значение 200)

Ответ: 2м

Задание12. Составить алгоритм вычисления y=7x²-3x+6

program as; Блок-схема

uses crt;

var x,y:integer;

begin clrscr;

writeln('Bведи значение х ');

readln(x);

y:=7*(sqr(x))-3*x+6;

writeln('Y=',y);

readln;

end.

(Вводим значение 6)

Ответ: 240

Задание13.Каков объем кислорода, содержащегося в комнате размером a*b*c,если кислород составляет 21% объема воздуха?

program as; Блок-схема

uses crt;

var a,b,c,v:real;

begin clrscr;

writeln('Bвeди a,b,c');

readln(a,b,c);

v:=0.21*a*b*c;

writeln('объем кислорода=',v);

readln;

end.

(Вводим значение 5,6,7)

Ответ: 4.41

Задание14. Составить алгоритм вычисления A=x²+bx/2

program as; Блок-схема

uses crt;

var a,b,x,z,s,v:real;

begin clrscr;

writeln('Введи значение x,b');

readln(x,b);

z:=x*x*x*x*x;

s:=b*x;

v:=z+s;

A:=v/2;

writeln('A=',a);

readln;

end.

(Вводим значение 2,3)

Ответ: 1.9

Задание15.Определить время падения камня на поверхность земли с высоты h.

program as; Блок-схема

uses crt;

var g,t,h:real;

begin clrscr;

writeln('Введи значение h');

readln(h);

t:=sqrt(2*h/g);

writeln('время падения=',t);

readln;

end.

(Вводим значение 10 м)

Ответ: 1,4278с

Программа с ветвлениями

Задание 1.Даны 2 целых числа, определить какое из них больше

Program as; Блок-схема

Uses crt;

Var a,b:integer;

Max:integer;

Begin clrscr;

Writeln(‘Введи 2 числа’);

Readln(a,b);

If a>b then max:=a else max:=b;

Writeln(‘Максимально=’,max);

Readln;

End.

(Вводим значение 5,6)

Ответ: 6

Задание 2.Известны стороны треугольника, определить равны ли его стороны (равноб) или разносторон.

program as; Блок-схема

uses crt;

var a,b,c:integer;

begin clrscr;

writeln('Введи стороны ');

readln(a,b,c);

if (a=b) or (a=c) or (c=b) Да Нет

then writeln('равноб.') else writeln

('разност.');

readln;

end.

(Вводим значение 5,5,6)

Ответ: Равноб.

Задание 3.Проверить, принадлежит ли число, введенное с клавиатуры, интервалу (-5;3).

Program as; Блок-схема

Uses crt;

Var a,b,x:integer;

Begin clrscr;

Readln(x);

If (x>=-5) and (x<=3) then

Writeln(‘да’) else writeln(‘нет’);

End.

(Вводим значение 2)

Ответ: Принадлежит

Задание 4.Дано 2х зн. число. Определить входит ли в него цифра 3