Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
soulberserk
0 / 0 / 0
Регистрация: 10.04.2011
Сообщений: 2
#1

обладающих тем свойством, что корни уравнения действительны и положительны. - Pascal ABC

15.04.2011, 23:13. Просмотров 394. Ответов 0
Метки нет (Все метки)

привет всем помогите пожалуйста дописать


обладающих тем свойством, что корни уравнения x^2+3ak-5=0 действительны и положительны.




program zadacha1;
uses crt;
var
n,k,i,v:integer;
x:real;
a:array [-300..300] of integer;
begin
clrscr;
write('Vvedite kol-vo chicel:');
readln(n);
write('random(1) ili vvod(2)?:');
read(v);
if v=1 then
begin
randomize;
for i:=1 to n do
a[i]:=random(300);
end;
if v=2 then
begin
for i:=1 to n do
begin
write('Vvedite ',i,'-e chiclo:');
readln(a[i]);
end;
end;
for i:=1 to n do
begin
x:=sqrt(5-3*a[i]);
if x>=0 then k:=k+1;
end;
write('kol-vo chicel, ydovletvoryaushih ysloviu:',k);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.04.2011, 23:13
Я подобрал для вас темы с готовыми решениями и ответами на вопрос обладающих тем свойством, что корни уравнения действительны и положительны. (Pascal ABC):

Написать программу поиска двузначных чисел, обладающих свойством
Написать программу поиска двузначных чисел, обладающих следующим свойством:...

Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа
Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен...

2. Написать программу поиска двузначных чисел, обладающих следующим свойством: если к сумме цифр числа прибавить квадрат этой суммы, то получится снов
Кто может напишите пожалуйста эти программы с процедурой или функцией: 1) Дан...

корни уравнения
задачиа:вычислить z=(x1+y1)/(x2-y2),где x1 и x2-корни уравнения 〖2x〗^2+x-4=0,...

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

Найти корни уравнения
Помогите пожалуйста написать две программки, я просто не способен к этому. Но...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.04.2011, 23:13
Привет! Вот еще темы с решениями:

Найти корни уравнения
На входе даётся число n. Нужно решить уравнение n^2sin^2x+(2n-1)*sinx+1=0

Найти корни уравнения
заданы уравнения: 8x+3=0 и 5x^2+3x+4=0 с помощью программы найдите корни...

Найти корни уравнения
найти корни уравнения и отделить один из них методом деления отрезка пополам ...

Корни нелинейного уравнения
Вот, собственно, код программы: Program 123; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru