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

Измените программу так, чтобы маска улыбалась uses GraphABC;
begin
Chord(300,200,200,160,380);
Chord(200,200,50,180,360);
Chord(400,200,50,225,315);
Pie(300,250,50,225,315);
Arc(300,370,50,0,180);
end.​


Измените программу так, чтобы маска улыбалась uses GraphABC;begin Chord(300,200,200,160,380);Chord(2

👇
Ответ:
Коцюрбей
Коцюрбей
20.03.2023

uses GraphABC;

begin

SetWindowWidth(600);

SetWindowHeight(500);

SetPenWidth (3);

Line(111,131,489,131);

Arc(300,200,200,160,380);

Pie(200,220,50,0,180);

Pie(400,220,50,0,180);

Pie(300,250,50,225,315);

Arc(300,320,50,180,360)

end.

Объяснение:

картинка

Будет ли работать у тебя точно не знаю.

У тебя, возможно, будет работать в таком виде:

uses GraphABC;

begin

SetWindowWidth(600);

SetWindowHeight(500);

SetPenWidth (3);

Chord(300,200,200,160,380);

Chord(200,220,50,0,180);

Chord(400,220,50,0,180);

Pie(300,250,50,225,315);

Arc(300,320,50,180,360)

end.

Эти строчки:

SetWindowWidth(600);

SetWindowHeight(500);

SetPenWidth (3);

можно выкинуть, если с ними будут проблемы (это просто размеры окна и толщина линии)


Измените программу так, чтобы маска улыбалась uses GraphABC;begin Chord(300,200,200,160,380);Chord(2
4,4(53 оценок)
Открыть все ответы
Ответ:
сонька177
сонька177
20.03.2023
Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.
4,7(42 оценок)
Ответ:
Kotliarrostislav
Kotliarrostislav
20.03.2023

Во-первых в начале НЕ сin << sys, а сin >> s;

Во-вторых ты объявил/а все переменные в первом ифе, а значит в других функциях они уже не видны, поэтому стоит их объявить глобально

В-третьих переменная g не используется, поэтому можно ее и не объявлять

Вот код:

#include <iostream>

#include <cmath>

using namespace std;

int main() {

   int sys;

   float a, b, c, d, e, sum, mid, pi=3.14, r;

   cout << "if you would midle write-1, if place of circle-2" << endl;

   cin >> sys;

   if(sys == 1) {

       cout << "input first midle" << endl;

       cin >> a;

       cout << "inpur second midle" << endl;

       cin >> b;

       cout << "input third midle" << endl;

       cin >> c;

       cout << "input thord midle" << endl;

       cin >> d;

       cout << "input fived midle" << endl;

       cin >> e;

       sum = a + b + c + d + e;

       mid = sum / 5;

       cout << "your midle: ";

       cout << mid;

   }

   else{

       if(sys == 2) {

           cout << "this is the circle area formula S=pi*r^2" << endl;

           cout << "input radius(r)" << endl;

           cin >> r;

           cout << pi * r * r;

       }

   }

   return 0;

}

4,8(77 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ