0 / 0 / 1
Регистрация: 27.11.2011
Сообщений: 10
1

Элементарная задача по процедурах

27.11.2011, 21:18. Показов 824. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Вычислите корени квадратного уравнения ax^2+bx+c=0 с разными коэфициентами. Количество наборов коэфициентов указываеться с клавиатуры. Коэфициенты квадратного уравнения записаны в двухизмерному(хз как по-русски) массиве(массив заполняеться с клавиатуры).
Для решения поставленого задания напишите собственную процедуру или функцию. Результат работы программы вывести на экран.

Много чего из задачи к сожалению не понимаю. Легче попросить написать её целиком.. Буду очень благодарен.

Добавлено через 3 часа 9 минут
Ап. Посмотрите пожалуйста.

Добавлено через 3 часа 41 минуту
а п . .

Добавлено через 2 часа 40 минут
u p p . . .
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.11.2011, 21:18
Ответы с готовыми решениями:

Элементарная задача по С++
каждое положительное число заменить квадратным корнем из него.. #include <iostream> using...

Элементарная задача VBA
Создать массив nxm, и заполнить данными.(все данные m,n и эллементы вводятся через input) И...

Элементарная задача на матрицы
На украинском: Замінити знак на пpотилежний в елементах матpиці, A=(a), i=j=1,2,...,m, які...

Элементарная задача VBA
Создать массив nxm, и заполнить данными.(все данные m,n и эллементы вводятся через input) И...

3
0 / 0 / 1
Регистрация: 27.11.2011
Сообщений: 10
29.11.2011, 00:35  [ТС] 2
ааа ппппп.

Добавлено через 2 часа 47 минут
uupp...
0
54 / 54 / 43
Регистрация: 11.12.2009
Сообщений: 110
29.11.2011, 11:47 3
Щас будет)

Добавлено через 1 час 12 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses crt;
const n=2;
type array2=array[1..n,1..3]of real;
     array1=array[1..n,1..2]of string;
var m:array2; m1:array1;
    i,j,k:integer; tmp,d:real;
 
function korni(a1,b1,d1:real;fl:byte):real;
begin
     if fl = 1 then
        korni:=(-1)*(b1-d1)/2*a1
     else
         korni:=(-1)*(b1+d1)/2*a1;
end;
 
begin
clrscr;
{vvod}
for i:=1 to n do
begin
     writeln('Vvedite nabor #',i);
     for j:=1 to 3 do
     begin
          readln(m[i,j]);
     end;
end;
{reshenie}
for i:=1 to n do
begin
     tmp:=sqr(m[i,2])-4*m[i,1]*m[i,3];
     if tmp>=0 then
     begin
          d:=sqrt({}tmp){};
          str(korni(m[i,1],m[i,2],d,2):5:3,m1[i,1]);
          str(korni(m[i,1],m[i,2],d,1):5:3,m1[i,2]);
     end;
     if tmp<0 then
     begin
          m1[i,1]:='net kornei';
          m1[i,2]:='net kornei';
     end;
end;
{vyvod}
for i:=1 to n do
begin
     for j:=1 to 2 do
     begin
          write(m1[i,j],' ');
     end;
     writeln;
end;
readln;
end.
Добавлено через 20 минут
че та я перемудрил в первой, так проще:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
var i,j,n:integer;
    a:array[1..100,1..3]of real;
 
procedure korni(a,b,c:real;i1:integer);
var d:real;
begin
writeln('Nabor #',i1);
d:=sqr(b)-4*a*c;
if d>0 then
begin
writeln('x1=',(-1)*(b-sqrt(d))/2*a:5:3);
writeln('x2=',(-1)*(b+sqrt(d))/2*a:5:3);
end;
if d=0 then
writeln('x1=x2=',(-1)*(b-sqrt(d))/2*a:5:3);
if d<0 then
writeln('Kornei net');
end;
 
begin
clrscr;
write('Vvedite kol-vo naborov=');readln(n);
for i:=1 to n do
begin
writeln('Nabor #',i);
for j:=1 to 3 do
readln(a[i,j]);
end;
 
for i:=1 to n do
korni(a[i,1],a[i,2],a[i,3],i);
 
readln;
end.
Добавлено через 45 минут
Цитата Сообщение от daNtz Посмотреть сообщение
двухизмерному
Двумерном
1
0 / 0 / 1
Регистрация: 27.11.2011
Сообщений: 10
29.11.2011, 17:49  [ТС] 4
Спасибо большое, очень выручил.
0
29.11.2011, 17:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2011, 17:49
Помогаю со студенческими работами здесь

Элементарная задача на постоянный ток
Здравствуйте! Дана цепочка,в которой в разных комбинациях ставят амперметр и вольтметр. Необходимо...

Элементарная задача распределения трудовых ресурсов
Вобщем, имеется проблема с пониманием задачи распределения ресурсов. Есть n-ое количество домов с...

Найти ln(x) используя разложением в ряд (элементарная задача)
Извините, но я в математике в области логарифмов, диф.уравнений и интегралов тупой как пробка и...

Не сложная элементарная легкая задача с хэдерами,поинтерами и тд
Здравствуйте, ребята! Столкнулась с задачей..времени,как всегда не хватает(( Вообщем, есть задача у...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru