Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Задача 7.1. Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз.

Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз.

Рис.7.1 − Блок-схема алгоритма

Листинг программы

Program primer17;

var x,y:integer;

begin

readln(x,y);

if sqrt(y)<x then

y:=y*5;

writeln(y);

Writeln(‘Программу составила Зарипова Ирина Булатовна − студентка группы КС-111’);

Readln;

end.

Задача 7.2

Дано вещественное число. Вывести на экран его абсолютную величину (функцию ABS не использовать).

Алгоритм решения задачи

1. Ввод абсолютной величины

Рис.7.2 − Блок-схема алгоритма

Листинг программы

Program primer18;

var a,b,c,d:real;

begin

readln(a,b,c);

d:=sqr(b)-4*a*c;

if d<0 then writeln(‘нет корня’);

if d=0 then writeln('x=',-b/(2*a));

if d>0 then writeln('x1=', (-b-sqrt(d))/(2*a),' x2=',(-b+sqrt(d))/(2*a));

Writeln(‘Программу составила Зарипова Ирина Булатовна − студентка группы КС-111’);

Readln;

end.

Задача 7.3

Составить программу для решения квадратного уравнения ax2 + bx + c = 0.

Алгоритм решения задачи

1. Составление программы квадратного уравнения

Рис.7.3 − Блок-схема алгоритма

Листинг программы

Program primer19;

var a,b,c,d:real;

begin

readln(a,b,c);

d:=sqr(b)-4*a*c;

if d<0 then writeln(‘нет корня’);

if d=0 then writeln('x=',-b/(2*a));

if d>0 then writeln('x1=', (-b-sqrt(d))/(2*a),' x2=',(-b+sqrt(d))/(2*a));

Writeln(‘Программу составила Зарипова Ирина Булатовна − студентка группы КС-111’);

Readln;

end.

Задача 7.4

Составить программу вычисления величины , если

Алгоритм решения задачи

1. Составление программы вычисления

Рис.7.4 – Блок-схема алгоритма

Листинг программы

Program primer20;

Var y:integer; z,x:read;

Begin

Write(‘y=’);

Readln(y);

If (a>=2) then writeln (y:=2sqrtx^3-5);

If (x<2) then writeln (y:=abs(x-x^2+12));

Writeln(‘Программу составила Зарипова Ирина Булатовна − студентка группы КС-111’);

Readln;

End.

Условный оператор 3.

Задача 8.1

Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень - отрицательные.

Алгоритм решения задачи

1. Ввод квадрата значения которых неотрицательны.

2. Ввод четвертую степень – отрицательно.

Рис.8.1 − Блок-схема алгоритма

Листинг программы

Program primer21;

var a,b,c:integer;

begin

write('a =');

readln(a);

if a>=0 then a:=sqr(a) else a:=sqr(a*a);

write('b =');

readln(b);

if b>=0 then b:=sqr(b) else b:=sqr(b*b);

write('c =');

readln(c);

if c>=0 then c:=sqr(c) else c:=sqr(c*c);

writeln('a =',a, 'b =',b, 'c =',c);

Writeln(‘Программу составила Зарипова Ирина Булатовна − студентка группы КС-111’);

Readln;

end.

Задача 8.2

Даны две точки A(Х1, Y1) и В (Х2, У2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат. Расстояние между двумя точками рассчитывается по формуле

Алгоритм решения задачи

1. Составление алгоритма

2. Ввод точек находящийся ближе к началу координа

Рис.8.2 − Блок-схема алгоритма

Листинг программы

Program primer22;

var x1,x2,y1,y2,d1,d2: read;

Begin

Write ('Введите координаты точек A(x1,y1) и B(x2,y2));

Read(x1,y1,x2,y2);

d1:=sqrt(sqr(x1)+sqr(y1));

d2:=sqrt(sqr(x2)+sqr(y2));

if d1<d2 then Write('Ближе точка A');

if d1>d2 then Write('Ближе точка B');

if d1=d2 then Write('Точки на равном расстоянии');

Writeln(‘Программу составила Зарипова Ирина Булатовна − студентка группы КС-111’);

readln;

end.

Условный оператор 5.

Задача.9.1

Подсчитать количество нулевых среди чисел а, b, c.

Рис._ − Блок-схема алгоритма

Листинг программы

Program z5_3;

var a,b,c: real;

k: integer;

Begin

Write ('a,b,c=');

Read(a,b,c);

Write (‘количество нулевых');

if a<0 then k:=k+1;

if b<0 then k:=k+1;

if c<0 then k:=k+1;

if k=0 then Write ('-Нет')

else Write (k,' шт.');

Read;

end.

Задача 9.2.

На плоскости ХОУ задана своими координатами точка А(x,y). Указать, где она расположена (на какой оси или в каком координатном угле).

Алгоритм решения задачи

1. Ввод расположения точек на координате

Рис._ − Блок-схема алгоритма

Листинг программы

Program primer_;

var x,y: Real;

Begin

Write ('x,y=');

Readln(x,y);

Write('Точка расположена ');

if x=0 then Begin Write('на осиOY');goto 1; end;

if y=0 then Begin Write('на осиOX');goto 1;end;

if (x>0) and (y>0) then

Begin

Write('в первой четверти');

if (x<0) and (y>0) then

begin

Write('во второй четверти');

if (x<0) and (y<0) then

Begin

Write('в третьей четверти');

else Write('в четвертой четверти');

readln;

end.

Задача 9.3

Программа - попугай. На экране высвечивается вопрос «Как тебя зовут? Далее вводится имя (например, Маша). На экране должен появиться текст «Меня зовут Маша!»

Алгоритм решения задачи

1. Ввод имени

Рис._ − Блок-схема алгоритма

Листинг программы

Program primer_;

Var s:integer;

Begin

Writeln(‘Как тебя зовут?’);

Readln(s);

Writeln(‘Меня зовут’,s);

Readln;

End.

Задача 9.4

Составить программу, определяющую результат гадания на ромашке - «любит – не любит», взяв за исходное данное количество лепестков n.

Алгоритм решения задачи

1. N − исходное данное

Рис._ − Блок-схема алгоритма

Листинг программы

Program primer_;

var n:integer;

Begin

Write ('Введите количество лепестков ромашки=');

read(n);

Write('"Мы считаем- любит- не любит": ответ-');

If n/2=int(n/2) then Write('Не любит')

else Write('Любит');

readln;

end.