Курсовая (Основы програмирования и алгоритмические языки) - Pascal - Ответ 806360

@Lexx2012 · Регистрация: 15.06.2010

Author24 — интернет-сервис помощи студентам

*** *** *** *** *** ***

Задание №1
Составить программу для вычисления функций b=f(x,y,z), где z=w(x,y) при постоянных значениях х и y. Значение х и у функций заданы на рисунке(Задание 1 таблица 1)

Задание №2
Вычислить значение функции

f1(x), если x < 0
Y = f2(x), если
f3(x), если x > 1

Виды функций f1(x), f2(x), f3(x) заданы на рисунке (задание 2 таблица 2). Значение х следует запрашивать в диалоге.

Задания 3,4,5 на рисунках

Задание 6.7.8

6. Составить программу для решения следующей задачи:
Найти количество элементов массива О(16), кратных 4 и не больших заданного числа А.
7. Составить программу для решения следующей задачи:
Найти номер и значение наименьшего положительного нечетного элемента массива А(15).
8. Найти (условие А) матрицы. Условие А (максимальный положительный элемент). Матрица произвольная.

*** *** *** *** *** ***

Вот че получилось с 1-м заданием ....

Pascal

    Program Ku-ku;
      uses_crt; 
      const_x=-0,85, y=1,25;
      var_z,f:real;
    begin
      z:=sqrt(abs(20*x)/(exp(x)+exp(y));
      f:=exp(y)+sqrt(abs(x)+abs(y))xexp(e) 
         или exp(y)+(exp([COLOR="#0000ff"]3*ln[/COLOR](sqr(abs(x)+abs(y)))xexp(e)
      writeln_(`z=`,z);
      writeln_(`f=`,f);
    end.

Задание 2

Pascal

        Program Bu-ga-ga-ga;
          uses_crt;
          var_x,f:real;
        begin
          writeln_(`vvedi_x=`);
          if_x<0;
            then_f:=-sqrt(3*ln(sqr(2*ln(sin(x)))+exp(4*ln(cos))xx);
            else;
            if_x<1
              then_f:=ctg*(x+0,4);
              else_f:=ln*(2*x+0,5);
          writeln_(`f=`,Y);
        end.

ИЛИ

Pascal

program Bu-ga-ga-ga;
 uses crt;
 var x: real;
begin
 writeln ('vvedi x =');
 readln(x);
 if x<0 
  then f:=-sqrt(3*ln(sqr(2*ln(sin(x))))+exp(4*ln(cos))xx)
   else
   if x<1
    then f:=ctgx(x+0,4)
    else f:=lnx(2xx+0,5);
writeln('f=',Y);
end.

Задание 4

Pascal

    Program Z4_V4;
      uses_crt;
      const_xn=1,3;xk=6,5;hx=0,5;a=3,2;
      var_x,f1,f2,y:real;
    Begin
      x:=xn;
      writeln_(`tablitsa_znacheniy`);
      writeln_(`*******************`);
      write_x<=xk_do
        Begin
          f1:=10xexp(3*ln)-sqr(sin(x/5)/cos(x/5));
          f2:=sqr(5xexp(2*ln)+1);
          if_x<=a
            then_y:=f1
            else_y:=f2;
          writeln_(`x=`,x:Y,`*y=`,y:Y);
          a:=x+h;
        end;
      end.

Задание 5

Pascal

          Program_Z5_V4;
            Uses_crt;
            Var_x=-10..15;_f:real;
          Begin 
              Writeln_(‘***************’);
        Writeln_(‘*     x     *     y     *’);
        Writeln_(‘***************’):
        For_x:=-10_to_15_do
          Begin
            Case_x_of
           -2..5:_f:=exp(2*x-5);
            6,8,10,12:_f:=sqr(cos(pi*x));
            7,9,11:_f:=ln(sqr(x)+2,5)_else_f:=sin(x/30);
        end;
            if_x=11
tben_readkey;_(ojidaet_najatie_Enter)
writeln_(x:10,’*’,f:10:2);
                  and;
                  readkey;
        End.

Помогите пожалуйста

Вернуться к обсуждению:
Курсовая (Основы програмирования и алгоритмические языки) Pascal

Другие темы раздела
Pascal Списки В последовательности символов S1,S2...Sn m - номер первого пробела. Получить список Sm+1,...,Sn , Sm,...,S1. Материал по теме Динамические структуры данных, помогите решить... https://www.cyberforum.ru/pascal/thread15538.html Читал теорию до посинения , но так и не пойму что надо сделать.Помогите пожалуйста , это последняя работа , если сможете объясните всё подробно :cry: . Заранее... https://www.cyberforum.ru/ pascal/ thread145910.html	доработка программы Pascal Здравствуйте) Помогите доработать программу, пожалуйста. Задача: "Определить минимальное количество денег в копилке, если известны вес копилки без денег, вес копилки с деньгами, вес монет каждого достоинства" Наработки следующие: юнит: unit uforprac; interface type Kopilka=object fgf, wtwithmoney , wtwoutmoney:Integer;
Pascal Как переделать под динамическую память https://www.cyberforum.ru/ pascal/ thread145891.html Подскажите пожалуста как переделать эту программу для работы с динамической памятью? program samuel; const m=10; n=20; type kot=1..m; matr = array of integer; imatr = record mat:matr; raz:kot; maxel:integer;	Pascal Паскаль. Матрица https://www.cyberforum.ru/ pascal/ thread145885.html Здравствуйте, подскажите пожалуйста, как будет выглядеть кусок программы для ниже указанного задания Задана матрица B(N,N) (N<=20). Вычислить сумму элементов главной диагонали матрицы В.
Получить матрицу C=AB Pascal Дана квадратная матрица A порядка n Получить матрицу C=AB Элементы матрицы B вычисляются по формуле Bij=1/(i+j-1)	Pascal PASCAL(процедуры,массивы) №1 Дана таблица со сведениями о наличии сырья на каждом из 4х участков пяти цехов. Определить номер цеха, в котором меньше всего сырья. №2 Написать процедуру, проверяющую, является ли число автоморфным, т.е. квадрат этого числа заканчивается этим же числом. №3 Написать рекурсивную процедуру нахождения суммы цифр любого натурального числа. https://www.cyberforum.ru/ pascal/ thread145874.html
Pascal Текст Пусть дан текст. Распечатайте те гласные русские буквы, которые не встречаются в тексте. https://www.cyberforum.ru/ pascal/ thread145872.html	Найти количество промежутков монотонности массива N Pascal Уважаемые программеры, нужно решить такую задачу, а я даже не знаю как к ней подойти :-( Помогите пожалуйста или хотябы дайте ссылку на нечто подобное. Дан массив размера N. Найти количество его промежутков монотонности (то есть участков, на которых его элементы возрастают или убывают).
Pascal Ошибка при вычислении уравнения https://www.cyberforum.ru/ pascal/ thread145867.html Не могу понять в чем причина. Решает только с определенными числами, в остальных случаях выводит сообщение: Error 207: Invalid floating point operation Код Pascal Program zad_1; var x,y:real; Begin Write('введите значение x='); read(x); y:=-(sqrt(cos(exp(x)))/cos(pix)+2.5-sqr(sin(x)/cos(x))sin(x)); Writeln('y= ',y:6:2); Writeln('Нажмите <Enter> для выхода'); readln;	Pascal Практическая Дано натуральное число N, вычислить: https://www.cyberforum.ru/ pascal/ thread145862.html
Радиус и центр окружности минимального радиуса... Pascal Как определить радиус и центр окружности минимального радиуса, проходящей хотя бы через 3 различные точки заданного множества точек на плоскости? Нужен код на паскале.	Pascal Определить, есть ли в данном массиве строка, в которой имеется два максимальных элемента всего массива Дан двумерный массив размерностью n х m, заполненный случайными числами. Определить, есть ли в данном массиве строка, в которой имеется два максимальных элемента всего массива. ну пожалуйста помогите...заранее спасибо Добавлено через 20 часов 39 минут пжл ответьте скоро зачет сдавать((( https://www.cyberforum.ru/ pascal/ thread145856.html

	15.06.2010, 20:57