Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal оч. нужно решить в паскале... Я новичок..., кое что понимаю(немного больше минимума), но тут... это не преодолимо для меня=-O... Очень НУЖНО... помогите плз.:help: Вот задачи: 1) Даны натуральное число n, символы s,...,s. Выяснить, верно ли ,что в последовательности s,...,s имеются пять идущих подряд букв e. 2) Дан текст. Выяснить, является ли этот текст десятичной записью целого числа. 3) Составить процедуру,... https://www.cyberforum.ru/ pascal/ thread77200.html	Pascal доделать прогу program pr53; const nm=20; var i,j,k,l,n:integer; e,a,ais,ap:array of real; begin writeln ('Input n'); readln (n); writeln; writeln('Inputed matrix'); randomize;
Pascal Массив https://www.cyberforum.ru/ pascal/ thread77185.html задано n точек на плоскости своими координатами X1 Y1....Xn Yn, найти прямоугольник наименьшего пириметра который обхватит все точки! помогите решить! надо срочно лабу сдать!	Pascal среднее арифметическое индексов четных елементов https://www.cyberforum.ru/ pascal/ thread77183.html Я накписал прогу, но сомневаюсь в ее правильности, посмотрите пожалуйста. Задание: вичеслить и вывести среднее арифметическае индексов четных елементов масива Р(8). Вот код програмы: Program l81; uses crt; const n=8; var m: array of integer; sum: integer; sar: integer; i: byte; begin
Pascal Построить матрицу и найти там наибольшее число Помогите люди добрые и не очень добрые . Построить матрицу 5 на 4 . Что бы можно было туда вставить любые числа . После чего находила наибольшее число и переставляла его в верхний левый угол матрицы .И выводила его на экран исходную и переделанную матрицу (в Pascal e )	Pascal системы исчисления https://www.cyberforum.ru/ pascal/ thread77173.html напишите пожалуйста как перевести число из 8ричной системы в 16ричную
Pascal Файлы.Определить сумму компонент файла имеющих нечётные индексы Задание : Организовать файл целых чисел из N компонент .Определить сумму компонент файла имеющих нечётные индексы . program proga301; uses crt; type ff=fyle of integer; var log_f:ff; rez:integer; procedure zapolnenie(var f:ff); https://www.cyberforum.ru/ pascal/ thread77172.html	Pascal Поменять содержимое переменных X и Y Описать процедуру Swap(X, Y), меняющую содержимое переменных X и Y (X и Y — вещественные параметры, являющиеся одновременно входными и выходными). С ее помощью для данных переменных A, B, C, D последовательно поменять содержимое следующих пар: A и B, C и D, B и C и вывести новые значения A, B, C, D. начало вроде написал,вторую часть незнаю как procedure swap(var X,Y:integer); begin ...
Pascal файл https://www.cyberforum.ru/ pascal/ thread77165.html Записать в файл последовательного доступа N целых чисел, полученных с помощью генератора случайных чисел. Подсчитать количество пар противоположных чисел среди компонентов этого файла. подскажите пожалуйста как сделать	Pascal задано n точек на плоскости задано n точек на плоскости своими координатами X1 Y1....Xn Yn, найти прямоугольник наименьшего пириметра который обхватит все точки! помогите решить! надо срочно лабу сдать! https://www.cyberforum.ru/ pascal/ thread77162.html
Pascal Окажется ли точка внутри треугольника? Сколько слов из букв русского алфавита, а сколько из латинского? И др. Помогите, пожалуйста, с решением задач. Очень нужно и срочно, буду очень благодарен всем кто поможет. 1.1. Имеется список учеников класса (все фамилии различны). Каждый ученик представил список одноклассников, у которых он был в гостях. Определите: есть ли в классе ученик, который побывал в гостях у всех одноклассников, кроме одного. 1.2. Имеется список учеников класса (все фамилии различны)....	Pascal Найти ошибку Вылезает ошибка с открытием 2го файла Uses crt; Const m=20; Type Matr=array of integer; mas=array of integer; var a:matr; v:mas; n:byte;f,g:text; z:array of integer; Procedure readf(var f:text; var mt:matr; var x:byte); {читает матрицу из 1 файла} https://www.cyberforum.ru/ pascal/ thread77158.html

ReMiX

3 / 3 / 1

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

Сообщений: 26

20.12.2009, 19:51 [ТС]

найти точки пересечения (если таковые имеются) параболы(парабола любая) - Pascal - Ответ 429709

20.12.2009, 19:51. Показов 2696. Ответов 6

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

Ответ

Сообщение от pikusfikus

Pascal

var
D,a,b,c,x1,x2,y,s,i:real;
begin
writeln('Funktsia');
write('vvedit a ');
read(a);
write('vvedit b ');
read(b);
write('vvedit c ');
read(c);
if c<>0 then begin
D:=sqr(b)-4*a*c;
writeln('to4ka peretuny s oy = ','(','0',';',c,')')
end
else
D:=sqr(b)-4*a;
if D<0 then begin
writeln('nema to4ok peretuny s ox');
exit;
end
else
if D=0 then begin
write('odna to4ka peretuny s ox = ');
write('(',x1,';','0',')',' ');
end
else if D>0 then begin
writeln('to4ku peretuny s ox =');
x1:=-b-sqrt(D)/2*a;
x2:=-b+sqrt(D)/2*a;
write('(',x1,';','0',')',' ');
writeln('(',x2,';',0,')',' ');
end;
end.

Добавлено через 38 секунд
ну если есть вопросы по задаче,обращайтесь

Добавлено через 2 минуты
только a и b если их нет пишите 1,а с можете писать 0

Добавлено через 1 минуту

Pascal

var
D,a,b,c,x1,x2,y,s,i:real;
begin
writeln('Funktsia');
write('vvedit a ');
read(a);
write('vvedit b ');
read(b);
write('vvedit c ');
read(c);
if c<>0 then begin
D:=sqr(b)-4*a*c;
writeln('to4ka peretuny s oy = ','(','0',';',c,')')
end
else
D:=sqr(b)-4*a;
if D<0 then begin
writeln('nema to4ok peretuny s ox');
exit;
end
else
if D=0 then begin
write('odna to4ka peretuny s ox = ');
write('(',x1:5:2,';','0',')',' ');
end
else if D>0 then begin
writeln('to4ku peretuny s ox =');
x1:=-b-sqrt(D)/2*a;
x2:=-b+sqrt(D)/2*a;
write('(',x1:5:2,';','0',')',' ');
writeln('(',x2:5:2,';',0,')',' ');
end;
end.

Добавлено через 1 минуту
возьмите 2 задачу,там корректно тображает дробовые числа

огромное спасибо!

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

20.12.2009, 19:51

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

Найти сокращенную, минимальную, тупиковую, КН форму F, если таковые имеются
Найдите КНФ F. Явл ли F тавтологией? Найдите сокращенную, минимальную, тупиковую, КН форму F,...

Определите, пересекаются ли парабола y=ax^2+dx+f и прямая y=7x+b . При положительном ответе найти точки пересечения
Определите, пересекаются ли парабола y=ax^2+dx+f и прямая y=7x+b . При положительном ответе найти...

Найти точки пересечения параболы и прямой
Объясните пожалуйста что не так в этой программе #include "stdafx.h" #include <iostream>...

Найти точки пересечения параболы с осью OX
Найти точки пересечения параболы y= A*x*x + B*x + C и оси OX, или выдать соответствующее...

	20.12.2009, 19:51

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

20.12.2009, 19:51

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

Найти точки пересечения параболы и круга
Задали на паре задание: задаётся круг с координатами центра и радиуса, также задаётся...

Найти точки пересечения прямой и параболы
Найти точки пересечения прямой y = mx + n и параболы y = ax2 + bx + c пожалуйста))

Найти точки пересечения прямой и параболы
Здравствуйте. Дана парабола: 6х^2+y+2=0. И прямая: 2x-5y-2=0. Надо найти их точку пересечения....

Найти точки пересечения параболы и прямой
Не понимаю почему программа работает некоректно. Код компилируется и работает, но программа выдает...

Наверх