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

50 ! написать программу на языке pascal для графика y=2x в квадрате

👇
Ответ:
витя10
витя10
28.02.2021
//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию

uses GraphABC;
const
    x_min = -15.0;
    x_max = 15.0;
    dx = 0.01;

function f(x: real): real;
begin
    f := 2*x;
end;

begin
    //настраиваем размер окна под график, влияет на маштаб
    Window.Width := 1000;
    Window.Height := 300;
    
    Window.IsFixedSize := True; // фиксируем размеры окна
    Coordinate.Origin := Window.Center; //выставляем начало координат в центр окна
    Coordinate.SetMathematic; //выставляем направление осей как в математике принято
    var scale := Window.Width / (x_max - x_min); // вычисляем маштаб
    
    var x := x_min;
    var y_max := f(x_max); // подставляем реальные значения
    var y_min := f(x_min); // подставляем реальные значения
    
    repeat
        try
            var y := f(x);
            if y > y_max then y_max := y;
            if y < y_min then y_min := y;
        finally
            x := x + dx;
        end;
    until x > x_max;
    
    //  оси координат, стрелочки сами если надо
    Pen.Color := clSilver;
    Line(round((x_min - 1) * scale), 0, round((x_max + 1) * scale), 0);
    Line(0, round((y_min - 1) * scale), 0, round((y_max + 1) * scale));
    Circle(0, round(1 * scale), 1); //единичная метка
    Circle(round(1 * scale), 0, 1); //единичная метка
    
    x := x_min;
    repeat
        try
            var y := f(x);
            PutPixel(round(x * scale), round(y * scale), clBlueViolet);
        finally
            x := x + dx;
        end;
    until x > x_max;
end.
4,4(35 оценок)
Открыть все ответы
Ответ:
ayakabdadhev
ayakabdadhev
28.02.2021

В 1864 году российский предприниматель Николай Шустов запустил в производство свой коньяк. И раскручивал он его весьма необычным нанял несколько десятков студентов, которые ходили по кабакам Москвы и требовали шустовский коньяк. Если этого напитка в кабаке не было, студенты «свирепели» и зачинали драку. О драках судачила вся пресса, и хватило месяца, чтобы столица узнала о коньяке Шустова. Это один из старейших примеров социального продвижения

Социальная сеть – это онлайн-сервис, сайт или платформа, предназначенные для организации социальных взаимоотношений. На таком ресурсе у каждого человека есть возможность разместить о себе какую-либо информацию (дата рождения, место обучения и работы, хобби и пр.), по которой данную учетную запись смогут отыскать другие участники. Социальные сети могут быть открыты для доступа любому интернет-пользователю, а могут представлять собой закрытую структуру, предоставляя доступ определенному кругу лиц. Несмотря на это различие, общей чертой для всех социальных сетей является наличие систем «групп» и «друзей». По данным разных аналитических сайтов, в тех или иных социальных сетях состоит каждый второй пользователь Интернета (52% из 57,8 млн. всех пользователей Рунета). Можно даже нарисовать типичный (среднестатистический) «портрет» участника таких ресурсов – это житель Северо-Западного федерального округа, примерно 18-25 лет, с высшим или неоконченным высшим образованием, имеющий достаточно прочное материальное положение. Конечно, в социальных сетях можно встретить и более взрослых, и более молодых людей, с разным уровнем достатка и различными потребностями. Неудивительно, что многие современные компании выбирают в качестве инструмента Интернет-маркетинга продвижение в первую очередь в социальных сетях – в этом случае хорошо спланированная маркетинговая стратегия позволяет охватить большую целевую аудиторию и эффективно продвинуть бизнес.

4,5(81 оценок)
Ответ:

Бейсик Python

DIM N, S AS INTEGER

N = 1

S = 0

WHILE N <= 100

S = S + 30

N = N * 2

WEND

PRINT S

n = 1

s = 0

while n <= 100:

   s = s + 30

   n = n * 2

print(s)

Паскаль Алгоритмический язык

var n, s: integer;

begin

   n := 1;

   s := 0;

   while n <= 100 do

   begin

       s := s + 30;

       n := n * 2

   end;

   write(s)

end.

алг

нач

цел n, s

n := 1

s := 0

нц пока n <= 100

   s := s + 30

   n := n * 2

кц

вывод s

кон

Си++

#include <iostream>

using namespace std;

int main()

{

   int n, s;

   n = 1;

   s = 0;

   while (n <= 100)

   {

       s = s + 30;

       n = n * 2;

   }

   cout « s « endl;

}

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