Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Помогите пожалуйста написать программы... 1.Дано натуральное число: - найти произведение цифр числа; - верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры). 2.Найти все трёхзначные цифры, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5. 3.Из данного натурального числа удалить все цифры А (а вводятся с... https://www.cyberforum.ru/ turbo-pascal/ thread443508.html	Turbo Pascal Сформировать квадратную матрицу порядка n Сформировать квадратную матрицу порядка n (n – вводится с клавиатуры пользователем) по следующему образцу:
Turbo Pascal "Создание и обработка массива записей" https://www.cyberforum.ru/ turbo-pascal/ thread443493.html Дан массив записей<<Дисциплины специальностей колледжа>>,состоящий из следующих полей: код наименование Специальность: Количество семестр Вид итоговой дисциплины дисциплины код,название часов аттестации Контрольная работа ...	Turbo Pascal Основы работы с файлами. Записать в файл n различных текстовых строк https://www.cyberforum.ru/ turbo-pascal/ thread443471.html Создать текстовый файл и записать в него в различных текстовых строк.Записываемые строки ввести с клавиатуры. Помогите пожалуйста!!!!
TurboPascal(Массивы) Turbo Pascal Люди помогите...............завтра на оценку в школе препод будет смотреть, нужно решить 2 задачи: 1)Написать программу, которая вводит с клавиатуры одномерный массив из 5 целых и выводит количество нулевых элементов. Перед вводом каждого элемента на экране должна появляться подсказка с его номером. 2)Определить сколько процентов от всего количества элементов последовательности целых чисел...	Turbo Pascal Сформировать новый массив B В массиве C(57) лежат целые числа. Сформировать новый массив B таким образом, чтобы в него вошли те элементы массива C, которые по модулю меньше числа 12. Заменить все отрицательные числа массива B на максимальное значение из массива C. https://www.cyberforum.ru/ turbo-pascal/ thread443442.html
Turbo Pascal Массив: Заменить ti<0 на (tmax + tmin)/2 https://www.cyberforum.ru/ turbo-pascal/ thread443339.html Дан массив t1,. .. ,t20. Заменить ti<0 на (tmax + tmin)/2 .Массив водится с клавиатуры,не рандом.	Turbo Pascal Является ли строка палиндромом. Дана строка, выяснить является ли строка полиндромом. Название темы изменено модератором.
Turbo Pascal Посчитать количество гласных букв Дана строка, посчитать количество гласных букв. Название темы изменено модератором. Еще одно название типа Срочно! и начну наказывать. https://www.cyberforum.ru/ turbo-pascal/ thread443286.html	Turbo Pascal помогите пож-ста сделать ,используя подпрограмму https://www.cyberforum.ru/ turbo-pascal/ thread443257.html Дана матрица с 4 столбцами и 7 строками.В каждой строке содержатся оценки одного из 7 студентов по 4 экзаменам.Отпечатать номера тех строк,в которых имеются только оценки 4 и 5,и число таких строк Program pwnz; Uses crt; Var A:array of integer; i,j,k,kol:integer; Begin ClrScr; Randomize; For i:=1 to 7 do Begin For j:=1 to 4 do
Turbo Pascal Численное дифференцирование методом сплайн функций Такая задачка: функция задана в семи точках. С помощью сплайн функций надо найти приближенное значение первой производной в заданной точке. Вот прога: uses crt; var a1,b1,h,x1,P4,i1,i2,t:real; n,i,k,q:integer; x,y,y1,y2,y3,y4,y5,y6,c,a,r,d,b,m,s:array of real; c1:array of real; begin	Turbo Pascal Если в матрице есть две строки c одинаковыми наибольшими элементами, то заменить наименьшие элементы строк на наименьший элемент матрицы, https://www.cyberforum.ru/ turbo-pascal/ thread443215.html Дана целочисленная матрица {Aij}i=1...n,j=1...m (n,mє6). Если в матрице есть две строки c одинаковыми наибольшими элементами, то заменить наименьшие элементы строк на наименьший элемент матрицы, в противном случае упорядочить элементы в каждом столбце по невозрастанию. Полученную матрицу вывести на текстовый и графический экран.

NXZ

20 / 1 / 0

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

Сообщений: 71

Система уравнения - Turbo Pascal - Ответ 2474639

09.02.2012, 17:29. Показов 530. Ответов 1

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

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

Название: Безымянный.JPG
Просмотров: 20

Размер: 5.4 Кб

Pascal

program nxz;
uses crt;
var
    x, y: integer;
 
begin
    write ('x = ');
    readln (x);
 
    if x < 0 then
        y := exp(1/3*ln((abs(6+x));
    else
        if 0<=x<=4 then
            y := 2+(cos(x)/sin(x));
        else
            if x>4
            y:=(3-5x)/ (sqrt(x+1))
 
    writeln ('y = ', y);
    end.

ошибка сразу в 1ом

Вернуться к обсуждению:
Система уравнения Turbo Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

09.02.2012, 17:29

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

Уравнения 1 и 2 порядка и система.
помогите с номерами 19,20,21,23

Система уравнения с параметром
Объясните подробно, пожалуйста, как и что делается, а то я не до конца понимаю все. Само...

Уравнения или система уравнений
Задание:Решите уравнение или систему уравнений. Если есть хорошие люди которые в этом разбираются...

Система диффуры+необычные уравнения
Помогите, пожалуйста! Нужно решить систему из 26 уравнений. Из них 13 ОДУ 1 порядка, а остальные...

	09.02.2012, 17:29

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

09.02.2012, 17:29

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

Уравнения с двумя неизвестными. Система с параметром.
Доброго времени суток! Пожалуйста помогите решить хоть одну задачу. Я учусь в 10 ом классе. 1....

Система уравнений из уравнения с комплексными числами
Люди помогите объясните как из этого уравнения сделать систему уравнений. xi-y+3x+3iy=x-iy+1

Система уравнений из уравнения эллипса и гиперболы
Помогите,пожалуйста решить систему уравнений , тем самым найти четыре точки пересечения кривых с...

Система тестов для решения квадратного уравнения на Delphi
Требуется разработать программу на Delphi решающую квадратное уравнение a*x2+b*x+c=0 и...

Наверх