Системное администрирование

Помогите! Информатик 8 класс Программирование на Паскале

AB
Alymzhan Batyrov
173
1-ые 2 задания кривые какие-то. В 1-ом задании и так нарисована блок-схема (хоть и как-то извращенно) - может надо программу написать, а не составить блок-схему? И обязательно так извращаться? Во-2-ом блок-схема кривая - откуда там x, если оперируют с переменной a?

Ладно, предположу, что нужны-таки программы. 1-ую напишу в 2 вариантах: 1-ый будет нормальным, а 2-ой - по заданию, извращенный.

Т.к. длина ответа ограничена, да и ответы от майл.ру в целях оптимизации любят "съедать" часть кода, ограничусь в ответе только 1-ым заданием. Остальные же см. в комментариях к этому ответу.

Да, кстати, программы обозначаю как P1 (Program P1;) и т.д. Цифра будет означать номер задания - соответственно P1 - к 1-ому заданию, P2 - ко 2-ому и т.д.

Итак, 1-ое задание (абсолютное значение числа (оно же - модуль числа)):

1-ый вариант (нормальный):

Program P1;
uses crt;
var x, y: real;
begin
clrscr;
write ('Введите значение переменной x, после чего нажмите клавишу Enter: x=');
readln (x);
y:=abs (x);
writeln ('Ответ: |', x, '| = ', y);
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.

2-ой вариант (извращенный, но по-заданию):

Program P1;
uses crt;
var x, y: real;
begin
clrscr;
write ('Введите значение переменной x, после чего нажмите клавишу Enter: x=');
readln (x);
if x>=0 then y:=x else y:=-x;
writeln ('Ответ: |', x, '| = ', y);
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.
Александр Тиликов
Александр Тиликов
43 559
Лучший ответ
Александр Тиликов 2-ое задание (где y равен дроби с a), только с Вашего позволения я исправлю это бредовое задание (просто если a будет строго больше 9, то ничего не будет, а вот если a будет равно 9, то решений не будет (произойдет деление на 0)Поэтому я напишу просто равно. Да и вообще блок-схема не соответствует заданию...:

Program P2;
uses crt;
var a, y: real;
begin
clrscr;
write ('Введите значение переменной a, после чего нажмите клавишу Enter: a=');
readln (a);
if (a=0) or (a=9) then writeln ('Ответ: выражение не имеет смысла.') else begin
y:=5/(a*(a-9));
writeln ('Ответ: y=', y);
end;
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.
Александр Тиликов 3-е задание (проверка существования треугольника)... Да блин, опять блок-схема кривая!!! Что за двоечник составлял задания?!:

Program P3;
uses crt;
var a, b, c: real;
begin
clrscr;
write ('Введите 1-ую сторону треугольника x, после чего нажмите клавишу Enter: ');
readln (a);
write ('Введите 2-ую сторону треугольника x, после чего нажмите клавишу Enter: ');
readln (b);
write ('Введите 3-ю сторону треугольника x, после чего нажмите клавишу Enter: ');
readln (c);
if (a+b>c) or (a+c>b) or (b+c>a) then writeln ('Да, существует') else writeln ('Нет, не существует');
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.
Александр Тиликов 4-ое задание (корни квадратного уравнения) - с Вашего позволения опять отойду от несколько некорректной блок-схемы, хоть сия блок-схема - единственная более-менее нормальная из всех:

Program P4;
uses crt;
var a, b, c, D, x, x1, x2: real;
begin
clrscr;
write ('a=');
readln (a);
write ('b=');
readln (b);
write ('c=');
readln (c);
D:=sqr (b)-4*a*c;
if D<0 then writeln ('Действительных корней нет') else if D=0 then begin
x:=-b/(2*a);
writeln ('Ответ: уравнение имеет 1 корень: x=', x);
end else begin
x1:=(-b-sqrt (D))/(2*a);
x2:=(-b+sqrt (D))/(2*a);
writeln ('Ответ: уравнение имеет 2 корня: x1=', x1, '; x2=', x2);
end;
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.
а что такое мину икс? даже интересно стало.... я учила паскалю в колледже своих студентов... они такого себе не позволяли
Сергей Фетисов
Сергей Фетисов
151
PascalABC?
Rustam Alimov
Rustam Alimov
128
Rustam Alimov первый номер

program created_by_crystality.xyz;
var a,ma:integer;
begin
write('a = ');
readln(a);
if a<0 then ma:=-a else ma:=a;
writeln('ma = ',ma);
end.
Александр Тиликов Какая разница, PascalABC или Turbo Pascal? - Тут же элементарно без графики решается, поэтому разницы в данном случае нет никакой.

Похожие вопросы