Решить две задичи : написать программу, которая а) все буквы 'а' в строке st заменяет на букву 'о' и выводит новую строку на экран б) удаляет все буквы 'а' из строки и выводит новую строку на экран
Var st:string; i:integer; begin writeln('Введите строку:'); readln(st); for i:=1 to length(st) do begin if st[i]='a' then st[i]:='o'; end; writeln(st); end.
var st:string; i:integer; begin writeln('Введите строку:'); readln(st); for i:=1 to length(st) do begin if st[i]='a' then delete(st,i,1); end; writeln(st); end.
Получим формулы для необходимых вычислений. Пусть ΔАВС вписан в окружность радиуса R с центром в точке О. ΔАВС - равносторонний, с углами при вершине, равными 60°. Опустим в этом треугольнике высоту из вершины В на сторону АС, получая точку D. Соединим вершину А с центром описанной окружности и рассмотрим полученный ΔAOD. Этот треугольник прямоугольный, поскольку ОD - часть высоты (OD⊥ AC). AO - гипотенуза, равная R, ∠OAD=30°, как половина ∠BAC, поскольку в равностороннем треугольнике центр вписанной окружности является также точной пересечения бисектрисс, высот и медиан. Тогда OD=R/2, как катет, лежащий против угла 30°. AD=R×cos(30°)=R√3/2. Но AD=DC (BD- медана, как сказано выше), тогда AC=R√3 Площадь основания может быть найдена как AD×BD=(R√3/2)×(R+R/2)=(3R√3)/4
Теперь рассмотрим пирамиду ABCD (второй рисунок). Она по условию правильная, т.е. все её боковые грани - одинаковые треугольники. Рассмотрим ΔDOE, образованный высотой пирамиды DO=h, её апофемой DE=a и отрезком OE, соединяющим точку пересечения высоты пирамиды с её основанием и точку пересечения апофемы с ребром пирамиды ВС. Этот треугольник прямоугольный, поскольку высота пирамиды перпендикулярна плоскости её основания. Длина катета ОЕ известна: она равна длине отрезка OD из предыдущего чертежа, т.е. половине радиуса R. Длина апофемы может быть найдена по теореме Пифагора. Существует формула для определения площади боковой поверхности пирамиды: Площадь полной поверхности пирамиды складывается из площади основания и площади боковой поверхности.
Программа на языке PascalABC.Net var a,h,r,s0,s1,s:double; begin Write('Введите радиус: '); read(r); Write('Введите высоту: '); Read(h); s0:=0.75*sqr(r)*sqrt(3); a:=sqrt(sqr(h)+sqr(r)/4); s1:=3*r*sqrt(3)*a/2; Writeln('Sбок=',s1); Writeln('Sполн=',s1+s0); end.
В современной науке рассматриваются два вида информации: Объективная (первичная) информация — свойство материальных объектов и явлений (процессов) порождать многообразие состояний, которые посредством взаимодействий (фундаментальные взаимодействия) передаются другим объектам и запечатляются в их структуре. Субъективная (семантическая, смысловая, вторичная) информация – смысловое содержание объективной информации об объектах и процессах материального мира, сформированное сознанием человека с смысловых образов (слов, образов и ощущений) и зафиксированное на каком-либо материальном носителей.
i:integer;
begin
writeln('Введите строку:');
readln(st);
for i:=1 to length(st) do begin
if st[i]='a' then
st[i]:='o';
end;
writeln(st);
end.
var st:string;
i:integer;
begin
writeln('Введите строку:');
readln(st);
for i:=1 to length(st) do begin
if st[i]='a' then
delete(st,i,1);
end;
writeln(st);
end.