Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Симметрические матрицы https://www.cyberforum.ru/ turbo-pascal/ thread700957.html Задание: заданы две матрицы Y и Z. Определить, сколько из них являются симметрическими (0, одна или две). Матрица называется симметрической, если транспонированная матрица равна исходной. Написал программу, но она не всегда работает правильно. Например, если первую матрицу представить в виде одномерной из одного числа, то следующею матрицу независимо от того симметрическая она или нет,...	Найти сумму компонент, расположенных между максимальной и минимальной компонентами Turbo Pascal Дан файл вещественных чисел. Найти сумму компонент, расположенных между максимальной и минимальной компонентами. Записать в новый файл суммируемые компоненты.
Turbo Pascal Напечатать индекс элементов Дан массив размерности m*n ,известно что среди его элементов два и только два равны между собой.Напечатать их индекс. https://www.cyberforum.ru/ turbo-pascal/ thread700952.html	Turbo Pascal 4 задачи на pascal https://www.cyberforum.ru/ turbo-pascal/ thread700951.html заранее спасибо!
Найти и напечатать число встречающееся во всех строках Turbo Pascal Задан целочисленный массив размерности m*n .Каждая строка массива упорядоченна но неубыв.,т.е a\leq a\leq ...\leq a, j=1..2. Найти и напечатать число встречающееся во всех строках или напечатать "нет" если такого числа нет.	Turbo Pascal Посчитать каково минимальное количество перемещений https://www.cyberforum.ru/ turbo-pascal/ thread700941.html Задан массив а размерности А ,все элементы равны 0 или 1.Разрешается менять местами соседние элементы.Поменять местами элементы так,чтобы сначало шли нули а затем еденицы.Посчитать каково минимальное кол-во перемещений потребуется продемонстрировать на экране один из кратчайших способов перемещения.
Turbo Pascal Создать модуль, содержащий, процедуры и функции в соответствии с заданием Создать модуль, содержащий, процедуры и функции в соответствии с заданием. Применить данные процедуры в основной программе. Задание: Дано действительное число x и натуральное n. Описать функции: (скриншот). Решение: uses crt; function Arctg(x,e:real):real; var t,s:real; n:integer; begin if e>=abs(x) then s:=x else begin n:=0; https://www.cyberforum.ru/ turbo-pascal/ thread700934.html	Turbo Pascal Создать модуль, содержащий, процедуры и функции в соответствии с заданием Создать модуль, содержащий, процедуры и функции в соответствии с заданием. Применить данные процедуры в основной программе. Задание: Дано действительное число x и натуральное n. Описать функции: (скриншот) Решение: uses crt; function Sinh(x,e:real):real; var s,t:real; n:integer; begin if e>=abs(x) then s:=x else begin n:=0;
Turbo Pascal Создать модуль, содержащий, процедуры и функции в соответствии с заданием Создать модуль, содержащий, процедуры и функции в соответствии с заданием. Применить данные процедуры в основной программе. Само задание: Дано действительное число x и натуральное n. Описать функции: (скриншот) Решение: uses crt; Var n,i: integer; x,S,a,f: real; Begin Repeat Write('vvedite deistvitelnoe chislo \|x\|<1 x='); Readln(x); Until abs(x)<1; Write('vvedite naturalnoe... https://www.cyberforum.ru/ turbo-pascal/ thread700922.html	Turbo Pascal Создать модуль, содержащий, процедуры и функции в соответствии с заданием https://www.cyberforum.ru/ turbo-pascal/ thread700909.html Создать модуль, содержащий, процедуры и функции в соответствии с заданием. Применить данные процедуры в основной программе. Задание: Даны действительные числа x, ε (x≠0, ε>0). Вычислить с точностью ε: (скриншот). Решение: var x,e,sum,t:real; k:integer; function POWERFN(number, exponent:real):real; var t:real; begin t:=abs(number);
Turbo Pascal Дана матрица А [4,3], содержащая положительные и отрицательные элементы. задача 26 Дана матрица А , содержащая положительные и отрицательные элементы. 1)Заполнить и распечатать матрицу. 2) Найти произведение 2-го столбца матрицы А. 3)Определить столбец с максимальным элементом. 4) Определить число положительных элементов в матрице А. и описать можете что это?)	Turbo Pascal «Битовая матрица» https://www.cyberforum.ru/ turbo-pascal/ thread700903.html помогите пожалуйста 2.«Битовая матрица». Дан прямоугольный массив размером N на M (1<N, M<=10000), значениями элементов которых являются числа 0 и 1, например задан массив 5 на 9: 0 0 1 0 0 1 0 1 0 0 1 0 1 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 1 0 0 1 0 1 1 0 0 0 0 0 0 1 1 1 0

BumerangSP

4311 / 1422 / 463

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

Сообщений: 2,939

Записей в блоге: 3

21.11.2012, 01:04

Разветвляющийся алгоритм: вычислить значение составной функции - Turbo Pascal - Ответ 3729950

21.11.2012, 01:04. Показов 2590. Ответов 7

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

Ответ

Сообщение от david-95

На проверку ввода данных.

Ок, что проверять? Здесь любые данные корректны будут. Разве что выход за пределы типа. Но это не актуально здесь. Может, все таки, на повтор ввода?

Pascal

var
   x, y: real;
   a:char;
begin
  repeat  
   write('x: ');
   readln(x);
   if x > 3.8 then
      y := ln(abs(1 + x))
   else
   if (x >= 2.8) and (x <= 3.8) then
      y := exp(-x)
   else
   if x < 2.8 then
      y := cos(x); 
   writeln(y);
   writeln('Еще? y/n');
   readln(a);
  until a='n';
end.

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

21.11.2012, 01:04

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

Вычислить значение сложной (составной) функции
Привет ! помогите написать программку Зарание Спасибо!

Разветвления: вычислить значение составной функции
Помогите пожалуйста! Нужно сделать задачку. у=х*х+7*х-9 когда х>0 y= x*x-2 когда -2<x<=0...

Вычислить значение сложной (составной) функции
Надо решить в паскале и блок схему, a*b/c, a В Корне b-c*b, c+5-d/a*b, (a В Корне 5 - b В Корне...

Вычислить значение сложной (составной) функции
дано число а. найти F(a) если x+4x+5, при x<0 F(x)=1/(x+4x+5) при x>0

	21.11.2012, 01:04

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

21.11.2012, 01:04

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

Ветвеление: вычислить значение составной функции
нужно решить это ветвление! нужно сделать через цикл( for i или repeat)! а вводится с клавиатуры!

Вычислить значение сложной (составной) функции
дравствуйте, Завтра последний день сдачи данной работы, сейчас сижу и изучаю паскаль, но думаю до...

Вычислить значение сложной (составной) функции
Буду признателен в содействии создания программы на Паскале следующего выражения

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

Наверх