ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Студентам с лабораторными сюда
   
Ответ
Страница 46 из 287 « Первая < 36 42 43 44 45 46 47 48 49 50 5696146 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #451  
Старый 28.04.2008, 16:53
dos999
Познающий
Регистрация: 15.02.2008
Сообщений: 98
Провел на форуме:
183980

Репутация: 50
По умолчанию
Цитата:
Здравствуйте, помогите пожалуйста с задачей по двумерному массиву:
на чём писать то?
 
Ответить с цитированием

Need хелп с паскалем(срочно)
  #452  
Старый 28.04.2008, 21:30
Stern
Познающий
Регистрация: 13.03.2007
Сообщений: 75
Провел на форуме:
268754

Репутация: 13
Talking Need хелп с паскалем(срочно)
Вообщем имеется задачка...

Даны матрицы u(m*n),v(m*n).составить матрицу c(m*n) по правилу:c(ij)=u(ij)+v(ij) для столбцов с четными индексами,c(ij)=u(ij)-v(ij) для столбцов с нечетными инд.исходные данные прочитать из файла.результаты вывести в новый файл

Над сделать...в голове 0 ...а девушка загрузила..)))


зы. паскаля вообще незнаю

De-visible:конечно ниже была тема:Задачи по паскаль
Последний раз редактировалось De-visible; 28.04.2008 в 21:33..
 
Ответить с цитированием

  #453  
Старый 28.04.2008, 21:44
WinTREI
Новичок
Регистрация: 14.03.2008
Сообщений: 28
Провел на форуме:
39192

Репутация: 2
По умолчанию
Цитата:
Сообщение от WinTREI  
De-visible:почему флуд? тема задачи по паскале
я забыл добавить мои задачи ))
De-visible: Ну раз ты создал эту тему, пусть в ней новички задают вопросы по Паскаль, да бы не засорять раздел!
Последний раз редактировалось De-visible; 29.04.2008 в 01:45..
 
Ответить с цитированием

  #454  
Старый 28.04.2008, 21:46
Moscow
Новичок
Регистрация: 21.11.2006
Сообщений: 16
Провел на форуме:
423496

Репутация: 18
По умолчанию
Доброго времени суток.
Нужен простой Браузер на Delphi с рандомным авто заполнением определенной интернет формы из данных в файле.
 
Ответить с цитированием

  #455  
Старый 28.04.2008, 21:49
Catsy
Новичок
Регистрация: 26.04.2008
Сообщений: 12
Провел на форуме:
7573

Репутация: 2
По умолчанию
Цитата:
Сообщение от dos999  
на чём писать то?
паскаль
 
Ответить с цитированием

  #456  
Старый 28.04.2008, 22:00
De-visible
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638

Репутация: 1821


Отправить сообщение для De-visible с помощью ICQ
По умолчанию
Цитата:
Сообщение от WinTREI  
Порядок выполнения контрольной работы:
1. Прочитать текст задания.
2. Определить исходные данные и результат.
3. Придумать тестовый пример (20 элементов массива) и получить для него результат.
4. Задать имена переменных, процедур и функций.
5. Разработать блок-схему основной программы.
6. Разработать блок-схемы подпрограмм.
7. Написать программу и отладить программу.
8. Вывести в окне Watch промежуточные значения
9. Выполнить программу для тестового примера в пошаговом режиме.
10. Оформить отчет.


Требования к выполнение контрольной работы:
1. Каждый пункт меню и вывод текста меню выполняется в подпрограмме.
2. Если в начале работы сразу выбирается пункт ниже первого (массив не задан), получить массив генерацией его элементов в интервале от –100 до 100
3. После выполнения каждого пункта меню (кроме последнего), программа снова возвращается в меню.
4. Вычисление суммы, количества, произведения, минимума или максимума выполняется с помощью функции.
5. При сдаче контрольной работы преподавателю, вывести промежуточные результаты в окне Watch в пошаговом режиме.


Текст задания
Создать программу, обеспечивающую работу следующих пунктов меню.
1. Ввод массива целых чисел.
2. Вывод массива в строку.
3. Найти максимальный элемент. Заменить все положительные элементы, кратные пяти на максимальный элемент.
4. Конец работы.


Ну вот как бы весь текст контрольной



X - Элементов в массиве:

Код:
program labor_1;
const
X=20;
Далее процедура ввода:

Код:
procedure vvod(var a:array of integer);
var
predel:-100..100;
i:integer;
Begin
     RANDOMIZE;
     For i:=1 to X Do a[i]:=random(predel);
End;
Далее процедура вывода:

Код:
procedure print(var a:array of integer);
var
i:integer;
Begin
     Writeln;
     For i:=1 to X Do Write(a[i],' ');
End;

Функция нахождения максимального элемента:

Код:
function max(a:array of integer):integer;
var
i:integer;
buff:integer;
Begin
     buff:=-100;
     For i:=1 to X Do If a[i]>buff then buff:=a[i];
     Result:=buff;
End;
Далее процедура замены:

Код:
procedure zamena(a:array of integer);
var
i:integer;
Begin
	For I:=1 to X Do 
		Begin
			If a[i]>0 then
			If (a[i] mod 5) = 0 then a[i]:=max(a);{используем вышеописанную функцию}
		End;
End;

Затем задаем массив:
Код:
var
a:array [1..X] of integer;

P.S. я расписал процедуры и функции, что не так переделай, ничего сложного здесь нет, код составить теперь труда не составит
Последний раз редактировалось De-visible; 29.04.2008 в 00:32..
 
Ответить с цитированием

  #457  
Старый 28.04.2008, 23:55
l1ght
Reservists Of Antichat - Level 6
Регистрация: 05.12.2006
Сообщений: 195
Провел на форуме:
14023893

Репутация: 2163
По умолчанию
Цитата:
Сообщение от krypt3r  
Omg, вы тут уже несколько страниц решаете простое квадратное уравнение :-d
Garfi, хоть ты и клянешься, что математику хорошо знаешь, эта ссылка (http://www.math.ru/dic/37) + элементарные размышления скажут тебе, что /2*a - неверное переложение формулы на код языка програмирования. Верные - /(2*a), /2/a, /a/2.
Код:
program Sqrt1;

var
  A, B, C, D, X1, X2 : Real;

begin
  Writeln ('Vvedite koificenti kvodratnogo uravnenia ');
  Readln (A, B, C);
  D := B * B - 4 * A * C;
  if A <> 0 then begin
    if D < 0 then
      Writeln ('Kornei net! ')
    else begin
      X1 := (-B + sqrt (D)) / 2 / A;
      X2 := (-B - SQRT (D)) / 2 / A;
      if X1 <> X2 then
        writeln ('X1=', X1 : 8 : 3, ' X2=', X2 : 8 : 3)
      else
        writeln (' Koren ODIN ','X=',X2:8:3)
    end;
  end else
    writeln('Reshenii net');
//Readln;
end.
Смотрите код внимательно, че вы тут написали. Если а не равно нулю, выполнить код, иначе написать "Решений нет"? о_О Если х1 = х2, то корень один? Верно, только не так надо, а сравнивая дискриминант с нулем. Но это мелочь.
Не совсем вижу смысл обрабатывать введенные данные при а = 0, ибо это уже не квадратное уравнение, а линейное, но раз уж просите, то вот код, и без комплексных чисел.
Код:
program Sqrt1;

var
  A, B, C, D, X1, X2 : Real;

begin
  Writeln ('Vvedite koificenti kvodratnogo uravnenia ');
  Readln (A, B, C);
  ///writeln (a : 8 : 3, ' * x^2 ', b : 8 : 3, ' * x ', c : 8 : 3);
  if A <> 0 then begin
    D := B * B - 4 * A * C;
    if D < 0 then
      Writeln ('Kornei net! ')
    else if D > 0 then begin
      X1 := (-B + sqrt (D)) / 2 / A;
      X2 := (-B - SQRT (D)) / 2 / A;
      writeln ('X1=', X1 : 8 : 3, ' X2=', X2 : 8 : 3);
    end
    else
      writeln ('X = ', (-B / 2 / A) : 8 : 3);
  end else
    writeln ('Lineinoe uravnenie. Koren X = ', (-C / B): 8 : 3);

//Readln;
end.
вы не задумывались почему a<>0 ? =) зачем изобретать велосипед, достаточно выполнить основные условия задачи. В частности когда а и б = 0 вылезет ошибка деления на 0 =)
Последний раз редактировалось l1ght; 12.01.2010 в 01:57..
 
Ответить с цитированием

  #458  
Старый 29.04.2008, 06:59
krypt3r
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186

Репутация: 905


По умолчанию
Для варианта b = 0 мне лень стало добавлять код
Цитата:
/ps и // - формат С, в паскале {}
Если брать Turbo Pascal, то там, кроме {}, есть еще и (* *) А делфи и фрипаскаль нормально реагируют на // в качестве начала комментария
 
Ответить с цитированием

  #459  
Старый 29.04.2008, 11:53
BaleHoK
Участник форума
Регистрация: 30.09.2007
Сообщений: 116
Провел на форуме:
140305

Репутация: 14
По умолчанию
выручайте...Имеется непустая последовательность произвольных натуральных чисел (чисел не более 50), за которой следует нуль. Не используя массивов, вывести в строку поряд¬ковые номера максимальных чисел последовательности. Выполнить проверку пра¬вильности ввода информации...

Язык С или С++...только не Vc
 
Ответить с цитированием

  #460  
Старый 29.04.2008, 15:59
Catsy
Новичок
Регистрация: 26.04.2008
Сообщений: 12
Провел на форуме:
7573

Репутация: 2
По умолчанию
Dober'man
спасибо
вот дописала немного, вдруг кому надо
Код:
uses crt;
const x=3; y=4;
var a,b: array[1..x,1..y] of integer;
   i,j,n: integer;
begin
clrscr;
n:=0;
  writeln('Введите двумерный массив: ');
  for i:=1 to x do
    for j:=1 to y do
    begin
      read(a[i,j]);
      b[i,j]:=a[i,j];
      n:=n+a[i,j];
      if a[i,j]=0 then b[i,j]:=n;
      end;
    writeln('Начальный массив: ');
    for i:=1 to x do
    begin
    writeln;
      for j:=1 to y do
      write (a[i,j]:7);
    end;
  readln;
  writeln;
  writeln('Массив после изменений: ');
    for i:=1 to x do
    begin
    writeln;
      for j:=1 to y do
      write (b[i,j]:7);
    end;
  readln;
end.
 
Ответить с цитированием
Ответ
Страница 46 из 287 « Первая < 36 42 43 44 45 46 47 48 49 50 5696146 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сюда выкладываем все проги для фрикринга мобильников, которых знаем! 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)
 


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




ANTICHAT.XYZ