Даю 40 баллов!!!!! Напишите пожалуйста эти 3 программы (ПОЛНОСТЬЮ) в Паскаль.

Question

Даю 40 баллов!!!!! Напишите пожалуйста эти 3 программы (ПОЛНОСТЬЮ) в Паскаль.

---

Comments

Создайте на диске C папку программирование

Answer 1

Задача №1

program a1;

var

 a, b, c, p, S: real;

 f_1: text;

begin

 readln(a, b, c);

 p := 0.5 * (a + b + c);

 S := sqrt(p * (p - a) * (p - b) * (p - c));

 assign(f_1,'C:\Программирование\s_1.txt');

 Rewrite(f_1);

 write(f_1, S);

 close(f_1);

end.

Задача №2

program a1;

var

 a, b: real;

 f_2: text;

begin

 randomize;

 a := random(101); //т.к. a := random(10); переменная a может равняться числам от 0 до 9, не 10!!!!

 b := random(101);

 assign(f_2,'C:\Программирование\s_2.txt');

 Rewrite(f_2);

 write(f_2, a, ' ',b);

 close(f_2);

end.

Задача №3

program a1;

var

 a, summa_cifr, proizvedenie: integer;

 f_3: text;

begin

 randomize;

 a := random(100); //т.к. a := random(10); переменная a может равняться числам от 0 до 9, не 10!!!!

 summa_cifr := (a div 10) + (a mod 10);

 proizvedenie := (a div 10) * (a mod 10);

 assign(f_3,'C:\Программирование\s_3.txt');

 Rewrite(f_3);

 writeln(f_3,'Исходное число ', a);

 writeln(f_3,'Сумма цифр ', summa_cifr);

 writeln(f_3,'Произведение цифр ', proizvedenie);

 writeln(f_3,'Перестановка мест ', a mod 10, a div 10);

 close(f_3);

end.

Answer 2

1.

var a,b,c,p: real;//Можно допустить и запись var a,b,c:integer; p: real; но тогда можно вводить только целые числа

begin

writeln('Определение площади треугольника по теореме Герона');

write('Введите стороны треугольника: ');

readln(a,b,c);

p:=(a+b+c)/2;

writeln('Площадь треугольника равна: ',sqrt(p*(p-a)*(p-b)*(p-c)):0:1)

end.

2.

var x,y:real;

begin

x:=random+1+random(99);

y:=random+1+random(99);

writeln('x = ',x:0:3);

writeln('y = ',y:0:3);

writeln(x:0:3,' + ',y:0:3,' = ',x+y:0:3);//Иногда результат может не совпадать, т.к. выводятся округлённые значения, а складываются действительные

end.

3.

var a:integer;

begin

a:=random(90)+10;

writeln('Положительное двузначное число: ',a);

writeln('Сумма цифр числа ',a, ' равна: ', a div 10 + a mod 10);

writeln('Произведение цифр числа ',a, ' равно: ',(a div 10) * (a mod 10));

writeln('Число, образованное перестановкой цифр числа ',a, ' выглядит так: ',a mod 10,a div 10);

end.