Даю 40 баллов!!!!!Напишите пожалуйста эти 3 программки (Стопроцентно) в Паскаль.

Даю 40 баллов!!!!!
Напишите пожалуйста эти 3 программки (Стопроцентно) в Паскаль.

Задать свой вопрос
Саявец Михаил
Сделайте на диске C папку программирование
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.

Задачка 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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт