М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
alexc123
alexc123
21.11.2020 20:09 •  Информатика

Составить блок схему алгоритма и программу для вычисления радиуса описанной окружности по формуле, вычисления производить с двойной точностью. pascal

👇
Ответ:
vladkunets78
vladkunets78
21.11.2020

Около какой фигуры описана окружность?

Блок-схема обычного линейного алгоритма, где блок начала, блок ввода данных (параллелограмм (для а)), блок решения (прямоугольник, куда вставляется формула) и вывод данных (тоже параллелограмм). Конец.

Вот простая программа на Паскале.

var r, a:double;

begin

writeln ('Вычисление радиуса описанной окружности около равностороннего треугольника R');

write ('Введите длину стороны треугольника а');

readln (a);

r:=exp(3*ln(a))/sqrt(3);

writeln ('R=',r);

end.

4,7(68 оценок)
Открыть все ответы
Ответ:
cratospo234
cratospo234
21.11.2020

#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();

}


С++ Создайте текстовый файл, содержащий сведения о пациентах глазной клиники: фамилия пациента, пол,
С++ Создайте текстовый файл, содержащий сведения о пациентах глазной клиники: фамилия пациента, пол,
4,4(24 оценок)
Ответ:
уукуку
уукуку
21.11.2020
//Pascal ABC.NET v3.1 сборка 1219

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
4,4(87 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ