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

Составить программу в c++ и по возможности блок-схему.
вот как выглядит программа в паскале
program z1;
var
q,x,y,z,a,b,c,d,e: integer;
w: real;
begin
writeln('введите x');
readln(x);
writeln('введите y');
readln(y);
writeln('введите z');
readln(z);
a: =x*y*z;
b: =3*z*x;
c: =2*(x+y+z);
d: =max(a,b);
e: =max(b,c);
q: =max(e,d);
writeln('максимум',q);
w: =min(3*x*y*z,q/2);
writeln('минимум',w);
end.

👇
Ответ:
anastasiya2905
anastasiya2905
02.02.2020

Переделал программу с паскаля на С++

#include <iostream>

#include <cstdlib>

#include <time.h>

using namespace std;

int main(){

srand(time(0));

system("chcp 1251 > nul");

int q,x,y,z,a,b,c,d,e;

double w;

cout << "Введите x: ";

cin >> x;

cout << "Введите y: ";

cin >> y;

cout << "Введите z: ";

cin >> z;

a = x*y*z;

b = 3*z*x;

c = 2*(x+y+z);

d = max(a,b);

e = max(b,c);

q = max(e,d);

cout << "Максимум: " << q<< endl;

w = min((3*x*y*z),(q/2));

cout << "Максимум: " << w << endl;

   return 0;

}

4,6(54 оценок)
Открыть все ответы
Ответ:

program z1;

var a: array [1..15] of real;

i, k, b: integer;

proizv: real;

begin

proizv:= 1;

a[1]:= 0.01;

a[2]:= -3;

a[3]:= 0;

a[4]:= 1.25;

a[5]:= -371;

a[6]:= 0.5;

a[7]:= -0.1;

a[8]:= 1.2;

a[9]:= -5;

a[10]:= -172.3;

a[11]:= 19783;

a[12]:= -2.7;

a[13]:= 43.51;

a[14]:= 0;

a[15]:= -0.02;

b:= -3;

k:= 0;

for i:=1 to 15 do

begin

if (a[i] <> 0) and (a[i] > b) then

begin

proizv:= proizv * a[i];

k:= k+1;

end;

end;

writeln('Количество чисел, подходящих условию: ', k);

writeln('Произведение чисел, подходящих условию: ', proizv);

end.

Объяснение:

На фото нарисована блок-схема, она немного криво сфоткана, надеюсь разберёшься. Если есть вопросы - задавай :)


с информатикой надо. Составить блок-схему алгоритма и программу на Паскале для обработки массива из
с информатикой надо. Составить блок-схему алгоритма и программу на Паскале для обработки массива из
4,6(44 оценок)
Ответ:
Zein304
Zein304
02.02.2020
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016

function gcd(a,b:integer):integer;
// Нахождение НОД
begin
  while b<>0 do
  begin
    a:=a mod b;
    var i:=b; b:=a; a:=i
  end;
  Result:=a
end;

procedure Shorter(var a,b:integer);
// "сокращатель" дроби
begin
  var k:=gcd(a,b);
  a:=a div k;
  b:=b div k
end;

begin
  var a,b:integer;
  Writeln('Введите числитель и знаменатель дроби: ');
  Read(a,b);
  Write(a,'/',b,'='); Shorter(a,b); Writeln(a,'/',b)
end.

Тестовое решение:
Введите числитель и знаменатель дроби:
25 15
25/15=5/3
4,5(21 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ