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

Составить программу Pascal вычисления значения выражения:


Составить программу Pascal вычисления значения выражения:

Показать ответ
Ответ:
justnero
justnero
11.08.2021 23:53
Type
    Mass = array [1..1000, 1..1000] of Integer;

var
    A: Mass;
    n, m, i, j: Integer;

begin
    Write('Количество строк массива: ');
    ReadLn(n);
    Write('Количество столбцов массива: ');
    ReadLn(m);
    for i := 1 To n Do
    begin
        for j := 1 To m Do
        begin
            Write('Введите элементы массива A[', i, ',', j, ']=');
            ReadLn(A[i, j]);
        end;
    end;
    
    WriteLn('Итоговый массив:');
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            A[1, j] := 111;
            A[i, 2] := 222;
            Write(' A[', i, ',', j, ']=', A[i, j], ';')
        end;
        WriteLn;
    end;
end.

Задание можно озвучить так:
Создать массив целых чисел, заполнить его вручную. Заменить все элементы первого рядка на 111 и все элементы второго столбца на 222. Вывести итоговый массив.
0,0(0 оценок)
Ответ:
Kleira
Kleira
21.02.2023 19:03
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var x,a,x1,x2,delta,lambda,y:real;
  Write('Введите границы изменения аргумента и шаг: ');
  Read(x1,x2,delta);
  a:=1.44;
  x:=x1;
  repeat
    lambda:=Sqr(Tan(x*a/2*pi));
    y:=Power(x*(2.7*Power(x,1.35)+lambda),1/3);
    Writeln('x=',x,' y=',y);
    x+=delta
  until x>x2
end.

Тестовое решение
Введите границы изменения аргумента и шаг: 1.2 2.0 0.2
x=1.2 y=1.63776729113963
x=1.4 y=1.81249323168809
x=1.6 y=2.04691849426225
x=1.8 y=2.40906764678559
x=2 y=4.09613421404126
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота