Даю 40 баллов!!!!!Напишите пожалуйста эти 3 программки (Стопроцентно) в Паскаль.
Даю 40 баллов!!!!!
Напишите пожалуйста эти 3 программки (Стопроцентно) в Паскаль.
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.