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

Pascal abc. написать программу, чтобы построить график функции y=x2 на интервале [-3,3]

👇
Ответ:
olya801
olya801
31.12.2021
//Pascal ABC.NET v3.1 сборка 1219

Uses
 graphAbc;

Var
 x1,y1,x2,y2,i:integer;
begin
maximizewindow;
line(0,300,windowwidth,300);
line(300,0,300,windowheight);
y2:=300;
x2:=300;
setpencolor(clblue);
 for i:=0 downto -3 do
  begin
   x1:=x2;
   y1:=y2;
   x2:=i*5+300;
   y2:=(-sqr(x2-300)+300);
   line(x1,y1,x2,y2);
  end;
y2:=300;
x2:=300;
 for i:=0 to 3 do
  begin
   x1:=x2;
   y1:=y2;
   x2:=i*5+300;
   y2:=(-sqr(x2-300)+300);
   line(x1,y1,x2,y2);
  end;
end.
4,6(28 оценок)
Ответ:
adelina2001levchuk
adelina2001levchuk
31.12.2021
//Pascal ABC.NET v3.1 сборка 1219

Uses
 graphAbc;
const
    c = 300;

var
    i: integer;
    x, y: real;

begin
    Line(0, c, WindowWidth, c);
    Line(c, 0, c, WindowHeight);
    
    for i := -3 * c to 3 * c do
    begin
        x := i / c;
        y := x * x;
        PutPixel(round(25 * x) + c, c - round(25 * y), clBlueViolet);
    end;
end.
4,7(7 оценок)
Открыть все ответы
Ответ:
syngalox420
syngalox420
31.12.2021
1.
Begin
 Writeln('Привет!');
 Writeln('Меня зовут Саша!');
 Writeln('Я студентка 2-ого курса начального образования!');
 Writeln('Я будущий учитель младших классов...');
end.

2.
var n:Integer;
Begin
 Read(n);
 Writeln('Квадрат =',n*n);
end.

3.
var a:Integer;
Begin
 Read(a);
 Writeln('S = ',a*a);
 Writeln('P = ',4*a);
end.

4. var n:Integer;
   Begin
     Read(n);
     Writeln(n+10);
  end.

5. var a,b:Integer;
   Begin
     Read(a,b);
     Writeln(' S = ',a*b);
     Writeln(' P = ',2*(a+b));
   end.

6. var a,b,c:Integer;
   Begin
     Read(a,b,c);
     Writeln('Сума = ',a+b+c);
   end.
4,8(11 оценок)
Ответ:
timati06blacstar
timati06blacstar
31.12.2021

 

 

 

   

 Достоинства исполнителя Робот 

 

1) Скорость  

 

 

 Недостатки исполнителя Робот

 

 

 

1) Неправильный перевод предложения. Т. к  при буквальном переводе слово в слово теряется смысл. (особенно касается жаргонных английских фраз и идиом ).

 

 

Достоинства исполнителя Человек

 

1) Возможность самостоятельно корректировать и дополнять заданный алгоритм

 2) Прочитав первое предложение на шаге 2 переводить его не тупо пословно, а учитывая  структуру предложения и тип употребляемых слов(идиомы ,американизмы и.т.д) .

3) Более точная передача смысла фразы 

 

 

 

 Недостатки  исполнителя Человек. 

 1) Значительно более низкая скорость перевода.

2) Необходимость в перерывах ввиду естественных потребностей (сон,еда,туалет).

 

 

 

 

 

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