Задача 2.
По представленной блок-схеме составить программу и получите результат ее выполнения.
Отладьте программу на следующем примере:
a |
b |
c |
y |
3 |
6 |
-2 |
15.2639 |
Решение: аааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа
Листинг:
program a2;
uses crt;
label 1;
var
a,b,c,k,s,y:real;
begin
1:write('Ввести a,b,c через пробел --> ');
readln(a,b,c);
if (c=0) or (b=0) then begin
writeln('Деление на 0 !!! ввести снова'); goto 1 end;
s:=(a+power(c,4))/3/b; {вычисление s}
k:=s - sqrt(abs(a + 2*b*power(c,4))); {вычисление k}
y:=a+2*b-3*s/b/c; {вычисление у}
writeln('y= ',y:8:5);
writeln('конец');
readln;
end.
Алгоритм:
Тестовый пример:
Проверка:
Задача 3.
Составить блок-схему и программу для вычисления значений функции y в зависимости от заданного с клавиатуры значения аргумента x:
Решение:аааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа
Листинг:
program a3;
uses crt;
var
y,x:real;
begin
writeln('Вичисление функции --> ');
writeln('-----------------------');
write('Ввести X --> ');
readln(x);
if x<=-1 then y:=1 else
if (x>-1) and (x<=2) then y:=x else
y:=1/sqr(x) ;
writeln('y= ',y:8:2);
writeln('Конец');
readln;
end.
Алгоритм:
Тестовый пример:
Проверка:
Задача 4.
П
ри
заданном с клавиатуры значении x
вычислите по формуле
значение y и определите,
принадлежит ли точка A(x,
y) заданном на рисунке
области. Выведите на экран значения x
и y, а также сообщение о
принадлежности точки данной области.
Решение:аааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа
Листинг:
program a4;
uses crt;
var
y,x:real;
begin
write('Попадание точки А в область ');
write('Ввести X --> ');
readln(x);
y:=abs(x)+sin(x);
writeln('y= ',y:8:2);
if (x>0) and (x<=1) and (y>0) and (y<=1) then
writeln('Точка A(x,y) в области')
else writeln('Точка A(x,y) вне области ');
writeln('Конец');
readln;
end.
Алгоритм:
Тестовый пример:
Проверка:
Задача 5.
Составьте блок-схему и напишите программу. Напечатайте таблицу стоимости сыра весом 50, 100, 150, …, 1000 г по цене 250 р. за 1 кг. Все данные расположите в несколько столбцов так, чтобы они были видны на экране
Решение:аааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа
Листинг:
program a5;
uses crt;
var
i:integer;
c:real;
begin
writeln(' стоимость сыра по 250 руб. за кг.');
i:=50;
writeln(' грамм стоимось(руб)');
writeln('---------------------');
while i <= 1000 do begin
writeln(i:5,250*i/1000:10:2);
i:=i+50 end;
writeln('konec');
readln;
end.
Тестовый пример:
Проверка:
Алгоритм:
