Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Патриотическая лента https://www.cyberforum.ru/ turbo-pascal/ thread2329693.html У Пети есть лента, разделенная на n равных частей, при этом каждая часть покрашена в один из двух цветов - синий или желтый. Петя считает, что лента патриотическая, если две соседние части не покрашены в один цвет. За один час Петя может выбрать любую часть и перекрасить ее в другой цвет(с синего в желтый или наоборот). Помогите определить минимальное количество часов, за которые он может...	Turbo Pascal Написать 2 программы: одну через case, вторую через if Дан одномерный массив чисел. Если его максимальный элемент >10, найти произведение элементов массива, <=10, но >=5 – найти сумму элементов, <5 – обнулить массив и вывести соответствующее сообщение. Нужно сделать через case и if
Turbo Pascal Дзидзьо и планета Олимпия Задача С. Дзидзьо и планета Олимпия Ограничение: 2 сек., 256 МБ Мегапопулярный Дзидзьо посетил планету Олимпия, где живет много поклонников спорта. Тяжелая атлетика - наиболее популярная среди жителей Олимпии. Дзидзьо, пылкий поклонник этого вида спорта, не раз был судьей на соревнованиях. Интересно, что на этой планете и очень странные правила подсчета суммы двух чисел. Так, суммой двух... https://www.cyberforum.ru/ turbo-pascal/ thread2328912.html	Turbo Pascal Вычислить значение функции https://www.cyberforum.ru/ turbo-pascal/ thread2328837.html Дано вещественное число r. Для функции y=m(x), график которой показан на рисунке, вычислить m(r). Помогите, пожалуйста
Turbo Pascal Вычислить, принадлежит ли пункт с координатами (x,y) заштрихованному участку плоскости Доброе время суток. Помогите, пожалуйста решить задачу: даны числа x и y (тип real). Узнать, принадлежит ли точка с координатами (x,y) заштрихованной части плоскости. Нужно решить это с помощью оператора ветвления (if then else).	Turbo Pascal Сколько полных окружностей можно построить. Вася взял большой циркуль и вошел в комнату, пол которой представляет собой квадрат, со стороной равной M (M>1м). Поставив циркуль на пересечении диагоналей этого квадрата, он начал строить окружности. Первая окружность была диаметром = 10 см., вторая – 30, третья – 40, четвертая – 60, пятая – 70, шестая – 90 см. и т.д. Сколько полных окружностей может построить в этой комнате Вася? https://www.cyberforum.ru/ turbo-pascal/ thread2328428.html
Turbo Pascal Разрезать галстуки одинаковой длины Когда-то давным давно во время пленарного заседания женская половина Верховной Рады заметила что все все мужчины депутаты пришли в галстуках. Депутаты-мужчины имели галстуки разной длинны. Женщины собрали все имеющиеся галстуки и решили смастерить из них новые галстуки для всех мужчин. Их цель - галстуки одинаковой длины на всех депутатах, которые называют себя мужчинами. Для этого женщины могут... https://www.cyberforum.ru/ turbo-pascal/ thread2328268.html	Turbo Pascal Сумма длинных чисел Посчитать сумму двух положительных чисел. Входные данные Два числа A и B в одной строке. Выходные данные Сумма чисел A+B. Ограничения 0<=A,B<=10^111111 Примеры Входные данные 700000000000001 600000000000001
Turbo Pascal Составьте программу произведения двух матриц с комплексными числами( в показательной форме записи) на Pascal Если разложить все поэтапно, то алгоритм будет идти в следующем порядке: 1) Ввод нужного количества строк и столбцов для каждой матрицы; 2) Ввод любого значения (z) и угла φ для каждой ячейки строки для двух матриц (исходя из показательного представления z=(z)∙exp^φ); 3) Перевод из показательной формы z=(z)*exp^φ в алгебраическую форму z=z(cosφ +... https://www.cyberforum.ru/ turbo-pascal/ thread2327966.html	Turbo Pascal Дедлайн https://www.cyberforum.ru/ turbo-pascal/ thread2327835.html Одного дня Петя задумался, что совсем никогда не устанавливал дедлайн на свои дела. Свое следующее задание с дедлайном Петя начинает сегодня. Известно, что сегодня день недели d и дедлайн наступит через n дней. Помогите Пете, посчитайте количество каждого дня недели за следующие n дней начиная от заданого. Входные данные В первой строке название сегодняшнего дня недели d. Во второй строке...
Массив с предварительным вводом количества элементов Turbo Pascal Попытка сделать массив с предварительным вводом количества элементов массива. uses Crt; Var A: array of Integer; i: Integer; begin C;rScr; write(‘ Ввести кол. эл-ов массива: ‘ , N); for i : = 1 to N do begin A: Random(80) – 10;	Turbo Pascal Палиндром https://www.cyberforum.ru/ turbo-pascal/ thread2327505.html Ввести четырёхзначное целое число и определить, является ли оно "палиндромом" или "перевёртышем" (такими, например, являются числа 6666 и 3223). (Подсказка: для выделения отдельных разрядов числа используются операции div и mod) uses Crt; var A, B, C, D, i: integer; begin ClrScr; writeln(' Ввести число из 4-х цифр: '); for i:= 1 to 3 do begin readln(A, B, C, D);

Puporev

Почетный модератор

64303 / 47600 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

05.10.2018, 17:28

Разработать программу табулирования функции - Turbo Pascal - Ответ 12948686

05.10.2018, 17:28. Показов 891. Ответов 7

Метки (Все метки)

Ответ

Многовато итераций будет 16^3=4096

Pascal

uses crt;
function min(a,b:integer):integer;
begin
if a<b then min:=a else min:=b;
end;
function max(a,b:integer):integer;
begin
if a>b then max:=a else max:=b;
end;
var x,y,z,k:integer;
     q:real;
begin
clrscr;
k:=0;
x:=-1;
while x<=15 do
 begin
  y:=-1;
  while y<=15 do
   begin
    z:=-1;
    while z<=15 do
     begin
      if min(x+y+z,x*y*z)=0 then writeln('x=',x:2,' y=',y:2,' z=',z:2,' q не определено, деление на 0')
      else
       begin
        q:=max(x+y+z,x*y*z)/min(x+y+z,x*y*z);
        writeln('x=',x:2,' y=',y:2,' z=',z:2,' q=',q:6:3);
       end;
      k:=k+1;
      if k mod 20=0 then
       begin
        write('Press Enter');
        readln;
       end;
      z:=z+1;
     end;
    y:=y+1;
   end;
  x:=x+1;
 end;
readln
end.

Вернуться к обсуждению:
Разработать программу табулирования функции Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

05.10.2018, 17:28

Готовые ответы и решения:

Разработать алгоритм и программу табулирования функции
Разработать алгоритм и программу табулирования функции e=10n/lg(n+2) при изменении n от 1 до...

Разработать алгоритм и составить программу табулирования функции
Разработать алгоритм и составить программу табулирования функции по одному из вариантов таблицы...

Разработать программу табулирования функции для произвольного диапазона аргумента
Разработать программу табулирования (вычисления таблицы значений) функции для произвольного...

Разработать алгоритм табулирования функции. Вычислить значение функции
Прошу помочь с паскалем. Задание: разработать алгоритм табулирования функции. Вычислить значение...

	05.10.2018, 17:28

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

05.10.2018, 17:28

Помогаю со студенческими работами здесь

Разработать подпрограмму для табулирования функции
а как решить задачи ? не могли бы помочь? и если не тяжело не могли бы сделать блок схемы? ...

Разработать подпрограмму для табулирования функции F(x)=1/(x^2-7) на отрезке
Разработать подпрограмму для табулирования функции F(x)=1/(x^2-7) на отрезке c шагом дельто x ....

Разработать подпрограмму для табулирования функции F(x) на отрезке [ a,b] c шагом D x
Разработать подпрограмму для табулирования функции F(x) на отрезке c шагом D x согласно...

Программирование алгоритмов циклической структуры. Разработать алгоритм табулирования функции
Изучить возможности языка для реализации: вычислительных процессов циклической структуры с...

Наверх