УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, сейчас доступен на antichat.xyz.

		Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Студентам с лабораторными сюда

Страница 41 из 287

« Первая

141

Последняя »

Опции темы

Поиск в этой теме

Опции просмотра

#401

24.04.2008, 00:33

VERte][

Moderator - Level 7

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

Сообщений: 220

Провел на форуме:
3013539

Репутация: 441

Код:

program ebaat;
var a,b,c,d: real;
begin
write('Input abc:');
read(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln('Fuck you')
else begin writeln('x1=',(-b+sqrt(d))/(2*a));
writeln('x2=',(-b-sqrt(d))/(2*a)) end
end.

чет типа того)

Последний раз редактировалось De-visible; 29.04.2008 в 15:29.. Причина: теги [code] для кого придумали?

#402

24.04.2008, 06:52

krypt3r

Познавший АНТИЧАТ

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

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 905

Цитата:

writeln('x1=',(-b+sqrt(d))/2*a)

Гг, должно быть так

Код:

writeln('x1=',(-b+sqrt(d))/(2*a))

Если дискриминант меньше нуля, это не значит, что корней нет, это значит, что корни комплексные
Учим матчасть

ЗЫ. А хотя какие в школе комплексные числа

ЗЗЫ.

Код:

program equation;

procedure GetCoeff (var a : real; var b : real; var c : real);
begin
  write ('Vvedite koefficienty cherez probel: ');
  readln (a, b, c);
  writeln (a : 0 : 3, 'x^2 + ', b : 0 : 3, 'x + ', c : 0 : 3);
end;

function GetDiscriminant (a, b, c : real) : real;
var
  d : real;
begin
  d := b * b - 4 * a * c;
  GetDiscriminant := d;
end;

var
  a, b, c, d, x1, x2 : real;

begin
  GetCoeff (a, b, c);
  d := GetDiscriminant (a, b, c);
  if d > 0 then begin
    x1 := (-b - sqrt (d)) / (2 * a);
    x2 := (-b + sqrt (d)) / (2 * a);
    writeln ('x1 = ', x1 : 0 : 3);
    writeln ('x2 = ', x2 : 0 : 3);
  end
  else if d = 0 then begin
    x1 := -b / (2 * a);
    writeln ('x = ', x1 : 0 : 3);
  end
  else begin
    x1 := -b / (2 * a);
    x2 := sqrt (abs (d)) / (2 * a);
    writeln ('x1 = ', x1 : 0 : 3, ' - i * ', x2 : 0 : 3);
    writeln ('x2 = ', x1 : 0 : 3, ' + i * ', x2 : 0 : 3);
  end;
end.

Последний раз редактировалось krypt3r; 24.04.2008 в 07:38..

#403

24.04.2008, 08:47

}I{ek

Новичок

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

Сообщений: 12

Провел на форуме:
64407

Репутация: 2

Помогите плз с лабой....а то ваще не секу.......
Разреженный массив на основе статического массива указателей
Массив на основе указателей используется для хранения разреженных массивов, эле-менты которых имеют размер намного больший, чем размер указателя.
Максимальный размер массива задается глобальной константой. Тип элементов раз-реженного массива данных - структура с полями: регистрационный номер, ФИО, ад-рес, ИНН.
Данные. Размер массива, массив указателей на данные.
Операции. Конструктор с параметром, инициализирующий размер массива и запол-няющий все элементы массива указателей значением 0. Установка значения элемента с индексом i. Получение значения элемента по его индексу. Подсчет количества непус-тых элементов в массиве данных. Вывод элементов массива. Операции инициализации размера массива и доступа к элементам массива по индексу должны выполняться с проверкой допустимости размера массива и индекса элемента

#404

24.04.2008, 16:03

WinTREI

Новичок

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

Сообщений: 28

Провел на форуме:
39192

Репутация: 2

а можно переделать программы чтоб было ни через рандом, а по средствам ввода?
например сначало вывидиться *Введите кол-во элементов массива Х*, вводим кол-во, потом *Введите элементы:* вводим элементы, далее со вторым массивом так же и в конце выводится результат

з.ы. я еще не понел почему numel - 1 объясните пожалуйста)

Последний раз редактировалось WinTREI; 24.04.2008 в 16:10..

#405

24.04.2008, 16:13

~~De-visible~~

Banned

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

Сообщений: 904

Провел на форуме:
4037638

Репутация: 1821

Отправить сообщение для De-visible с помощью ICQ

Процедура ввода,(ввод каждого элемента через Enter):

Код:

procedure FillMassive (numel : integer; var a : TMassive);
var
  i : integer;
begin
  writeln('Введи элементы массива');//
  for i := 0 to numel - 1 do
    readln(a[i]);{Можешь заменить на read}
end;

Цитата:

з.ы. я еще не понел почему numel - 1 объясните пожалуйста)

Потому что numel - это всего элементов, а мы начинаем с нуля.....
Можно записать вот так
(for i := 1 to numel do)

=============

P.S.

Цитата:

Не судьба не много книжки почитать?

Плюс ко всему:

Цитата:

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

(c)By _Great_
Прочитать правила >>

Последний раз редактировалось De-visible; 24.04.2008 в 16:38..

#406

24.04.2008, 16:46

WinTREI

Новичок

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

Сообщений: 28

Провел на форуме:
39192

Репутация: 2

во второй задаче ругаетсяна эту строчку

Цитата:

function DropNulls (numel : integer; a : TMassive) : TMassive;

что не существует типа TMassive, хотя он задан

#407

24.04.2008, 16:55

WinTREI

Новичок

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

Сообщений: 28

Провел на форуме:
39192

Репутация: 2

Плюс ко всему:

(c)By _Great_
Прочитать правила >>[/QUOTE]
извените, я потом заметил эту тему, не удаляйте пожалуйста, еще не все вопросы решили

#408

24.04.2008, 23:28

VERte][

Moderator - Level 7

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

Сообщений: 220

Провел на форуме:
3013539

Репутация: 441

Цитата:

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

Гг, должно быть так

Код:

writeln('x1=',(-b+sqrt(d))/(2*a))

ЗЗЫ.

Код:

program equation;

procedure GetCoeff (var a : real; var b : real; var c : real);
begin
  write ('Vvedite koefficienty cherez probel: ');
  readln (a, b, c);
  writeln (a : 0 : 3, 'x^2 + ', b : 0 : 3, 'x + ', c : 0 : 3);
end;

function GetDiscriminant (a, b, c : real) : real;
var
  d : real;
begin
  d := b * b - 4 * a * c;
  GetDiscriminant := d;
end;

var
  a, b, c, d, x1, x2 : real;

begin
  GetCoeff (a, b, c);
  d := GetDiscriminant (a, b, c);
  if d > 0 then begin
    x1 := (-b - sqrt (d)) / (2 * a);
    x2 := (-b + sqrt (d)) / (2 * a);
    writeln ('x1 = ', x1 : 0 : 3);
    writeln ('x2 = ', x2 : 0 : 3);
  end
  else if d = 0 then begin
    x1 := -b / (2 * a);
    writeln ('x = ', x1 : 0 : 3);
  end
  else begin
    x1 := -b / (2 * a);
    x2 := sqrt (abs (d)) / (2 * a);
    writeln ('x1 = ', x1 : 0 : 3, ' - i * ', x2 : 0 : 3);
    writeln ('x2 = ', x1 : 0 : 3, ' + i * ', x2 : 0 : 3);
  end;
end.

Да ты конечно крут, но комплексные корни (по крайней мере в универе) кроме как в жордановой форме в каноничском базисе или в нахождении инвариантных пространств оператора больше нигде не нужны...

#409

25.04.2008, 05:54

ForNeVeR

Участник форума

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

Сообщений: 216

Провел на форуме:
287212

Репутация: 62

Ну, мы на 2-м курсе политеха вовсю ими пользуемся... И по математике, и по электротехнике.

#410

25.04.2008, 12:17

WinTREI

Новичок

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

Сообщений: 28

Провел на форуме:
39192

Репутация: 2

вот задачка:
для данного числа a > 0 найти такое натуральное n, для которого n! < a и (n+1)! > a

Страница 41 из 287

« Первая

141

Последняя »

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сюда выкладываем все проги для фрикринга мобильников, которых знаем!	nigger	Сотовый фрикинг	5	11.04.2009 11:15
Американским студентам запретили пользоваться Skype	KPOT_f!nd	Мировые новости	1	28.09.2006 03:47
Любителям квестов сюда!!	FoX's	Болталка	10	25.01.2005 20:42

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход