В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
jvdvzkris
jvdvzkris
21.04.2020 20:05 •  Информатика

Постройте таблицы значений для указанных функций.
у = х² – 5х – 3, х є [-3, 3], вводится значение шага һ​

Показать ответ
Ответ:
AnnKulibyakina
AnnKulibyakina
20.01.2021 06:18

Посмотри в Help'е функцию Exec. У  меня Turbo Pascal поэтому пример оттуда

 

Program StartApl; 

{$M $4000, 0, 0 } { 16Kб стек, нет кучи }
uses Crt, Dos;
var ProgramName, CmdLine : String;
begin

    ClrScr;  
    Write('Имя программы для запуска (с путём) : ');
    ReadLn(ProgramName);
    Write('Параметры командной строки ', ProgramName, ' : ');
    ReadLn(CmdLine);
    WriteLn('Пробую запустить...');
   SwapVectors;
   Exec(ProgramName, CmdLine);
   SwapVectors;
   WriteLn('... вернулся из Exec');
{ Была ошибка ? }
  if DosError <> 0 then  WriteLn('Ошибка DOS #', DosError)
       else  WriteLn('Запуск был удачным. Код выхода = ', DosExitCode);
end.

0,0(0 оценок)
Ответ:
таня1697
таня1697
26.01.2022 12:57

const
N = 12;
var
a: array[1..N] of integer;
c, d, k, count, sum, i: integer;
begin
writeln('Введите промежуток: '); readln(c, d);
writeln('Введите k: '); readln(k);
for i := 1 to N do begin
a[i] := random(30);
write(a[i], ' ');
if(a[i] > 0) and (a[i] mod k = 0) then inc(count);
end;
for i := c to d do begin
sum := sum + a[i];
end;
writeln;
writeln('Сумма элементов на промежутке [', c,';', d,'] : ', sum);
if(count <> 0) then writeln('Положительных элементов кратных ', k, ' : ', count);
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота