Составить блок схему алгоритма и программу для вычисления радиуса описанной окружности по формуле, вычисления производить с двойной точностью. pascal
Ответы
#include <iostream>
#include <vector>
#include <fstream>
#include <algorithm>
using namespace std;
class pacient {
private:
string lastName_m, mOrFM_m, adress_m, diagnosis_m;
public:
pacient(string lastName = "", string mOrFM = "", string adress = " ", string diagnosis = " ") {
lastName_m = lastName;
mOrFM_m = mOrFM;
adress_m = adress;
diagnosis_m = diagnosis;
}
string getLastName() {
return lastName_m;
}
string getAll() {
return lastName_m + ", " + mOrFM_m + ", " + adress_m + ", " + diagnosis_m + ".";
}
};
int main() {
fstream out("output.txt");
setlocale(LC_ALL, "Russian");
vector<pacient> arr;
for(int i = 0;;++i) {
string a[4];
for(int j = 0; j<4; ++j) {
switch(j) {
case 0: cout << "Last name: "; break;
case 1: cout << "Male or FeMale: "; break;
case 2: cout << "Adress: "; break;
case 3: cout << "Diagnosis: "; break;
}
getline(cin, a[j]);
}
pacient temp(a[0], a[1], a[2], a[3]);
cout << "Для окончания ввода введите 1: ";
arr.push_back(temp);
string temp1;
getline(cin, temp1);
if(temp1=="1") {
break;
}
}
for(int j = 0; j<1000; ++j) {
for(int i = 0; i<arr.size()-1; ++i) {
if(arr[i].getLastName()[0]>arr[i+1].getLastName()[0]) {
swap(arr[i], arr[i+1]);
}
} }
for(int i = 0; i<arr.size(); ++i) {
cout << arr[i].getLastName() << endl;
out << arr[i].getAll();
out << "\n";
}
out.close();
}
Const
n=5;
Var
ar:array[1..n] of integer;
i,j,k:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(-3,3);
write(ar[i]:4);
end;
for i:=1 to n-1 do {ммм, пузырёк. Но за быструю сортировку здесь репортят}
for j:=i+1 to n do
if ar[i]>ar[j] then
begin
k:=ar[i];
ar[i]:=ar[j];
ar[j]:=k;
end;
writeln;
writeln('Sorted array:');
for i:=1 to n do
write(ar[i]:4);
writeln;
for i:=1 to n do
if ar[i]=0 then
begin
write('Index of 0 is ',i);
break;
end;
end.
Пример работы программы:
First array:
-2 -3 0 -3 3
Sorted array:
-3 -3 -2 0 3
Index of 0 is 4
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Около какой фигуры описана окружность?
Блок-схема обычного линейного алгоритма, где блок начала, блок ввода данных (параллелограмм (для а)), блок решения (прямоугольник, куда вставляется формула) и вывод данных (тоже параллелограмм). Конец.
Вот простая программа на Паскале.
var r, a:double;
begin
writeln ('Вычисление радиуса описанной окружности около равностороннего треугольника R');
write ('Введите длину стороны треугольника а');
readln (a);
r:=exp(3*ln(a))/sqrt(3);
writeln ('R=',r);
end.