Jokerjar
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Scamp777
1:
Код: program proga1;
var
s: string;
i: integer;
begin
writeln('Введите текст');
readln(s);
for i := 1 to length(s) do
begin
if s[i] = ' ' then
s[i] := ',';
end;
writeln(#13#10,'Результат: ',#13#10,s);
readln;
end. |
2:
Код: program proga2;
uses
crt;
const
dlina = 10;
var
mas: array[1..10] of integer;
i,c: integer;
begin
writeln('В массиве');
randomize;
c := 0;
for i := 1 to dlina do
begin
mas[i] := random(100);
write(mas[i]);
if i<dlina then
write(', ');
if not odd(mas[i]) then
c := c + 1;
end;
writeln(#13#10,c,' четных элементов');
readln;
end. |
Третью надо считать по формуле Герона, но вот у меня чето сильно большие числа получаются, ща узнаю почему.
Добавлено:
Немогу понять, вроде формула правильная, как щас её помню, но может где то ошибка. Уверен, кто-нибудь подправит...
Код: program proga3;
type
tv = 1..3;
function Visota(a,b,c: real; num: tv): real;
var
m,p: real;
begin
case num of
1: m := a;
2: m := b;
3: m := c;
end;
p := a+b+c;
Visota := 2*sqrt(p*(p-a)*(p-b)*(p-c))/m;
end;
begin
writeln('Высота AH = ',Visota(11.8, 14.9, 20.6, 1):0:3);
writeln('Высота BH = ',Visota(11.8, 14.9, 20.6, 2):0:3);
writeln('Высота CH = ',Visota(11.8, 14.9, 20.6, 3):0:3);
readln;
end. |
|
