Домашние задания: Информатика

Помогите с информатикой 8 класс

1. Даны два целых числа. Найти и вывести на экран с пояснениями сумму двух чисел, разность второго и третьего чисел и модуль второго числа.
2. Дана площадь квадрата, найти его периметр.
3. Дана гипотенуза и катет прямоугольного треугольника. Найти его площадь и периметр.
Дарья Медведева
Дарья Медведева
101
А на каком языке программирования? Нет, программе-то без разницы, на каком языке программирования она написана, а вот учитель/преподаватель спросит: а с чего это вдруг программа написана именно на этом языке программирования, а не на том, который он преподаёт.

Ладно, предположу, что язык - Паскаль (Pascal). Программы назову P1 (Program P1;), P2 и P3 (P1 - к 1-ому заданию, P2 - ко 2-ому, P3 - к 3-ему).

В смысле с пояснениями? Что конкретно пояснять? Каждую строку?

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

Да, кстати: 1-ое задание: так 2 числа даны или 3? Т. е. даны-то 2 числа, но вот дальше идёт разность 2-ого и 3-его числа. Ладно, напишу оба варианта (2-ой вариант - так же в комментарии) - т. е. 1-ый вариант - даны 3 числа, 2-ой вариант - 2 числа, но разность 2-ого и 1-ого числел.

Program P1;
uses crt;
var a, b, c, m, r, sum, sum1: integer;
begin
clrscr;
write ('Введите 1-ое число: ');
readln (a);
write ('Введите 2-ое число: );
readln (b);
write ('Введите 3-е число: ');
readln (c);
m:=abs (b);
r:=b-c;
sum:=a+b;
sum1:=b+c;
writeln ('Сумма 1-ого и 2-ого чисел: ', sum);
writeln ('Сумма 2-ого и 3-его чисел: ', sum1);
writeln ('Разность 2-ого и 3-его чисел: ', r);
write ('Модуль 2-ого числа: ', m);
readkey;
end.
Владимир Шемендин
Владимир Шемендин
43 559
Лучший ответ
Владимир Шемендин Program P1;
uses crt;
var a, b, m, r, sum: integer;
begin
clrscr;
write ('Введите 1-ое число: ');
readln (a);
write ('Введите 2-ое число: );
readln (b);
m:=abs (b);
r:=b-a;
sum:=a+b;
writeln ('Сумма 1-ого и 2-ого чисел: ', sum);
writeln ('Разность 2-ого и 1-ого чисел: ', r);
write ('Модуль 2-ого числа: ', m);
readkey;
end.
Владимир Шемендин Program P2;
uses crt;
var a, P, S: real;
begin
clrscr;
write ('Введите площадь квадрата: ');
readln (S);
a:=sqrt (S);
P:=a*4;
write ('Периметр квадрата: ', P);
readkey;
end.
Владимир Шемендин Program P3;
uses crt;
var a, b, c, P, S: real;
begin
clrscr;
write ('Введите известный катет: ');
readln (a);
write ('Введите гипотенузу: ');
readln (c);
b:=sqrt (sqr (c)-sqr (a));
P:=a+b+c;
S:=(a*b)/2;
writeln ('Площадь треугольника: ', S);
write ('Периметр треугольника: ', P);
readkey;
end.

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