Студентам с лабораторными сюда (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by _Great_, 20 Jun 2007.

Thread Status:
Not open for further replies.
  1. WinTREI

    WinTREI Elder - Старейшина

    Joined:
    14 Mar 2008
    Messages:
    31
    Likes Received:
    0
    Reputations:
    0
    я так понел что не бесплатно?
    De-visible: ты напиши точнее задание, а то не все понятно...я поэтому попросил в аську постучать...
     
    #441 WinTREI, 26 Apr 2008
    Last edited by a moderator: 27 Apr 2008
  2. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Что именно тебя интересует?
     
    1 person likes this.
  3. WinTREI

    WinTREI Elder - Старейшина

    Joined:
    14 Mar 2008
    Messages:
    31
    Likes Received:
    0
    Reputations:
    0
    Порядок выполнения контрольной работы:
    1. Прочитать текст задания.
    2. Определить исходные данные и результат.
    3. Придумать тестовый пример (20 элементов массива) и получить для него результат.
    4. Задать имена переменных, процедур и функций.
    5. Разработать блок-схему основной программы.
    6. Разработать блок-схемы подпрограмм.
    7. Написать программу и отладить программу.
    8. Вывести в окне Watch промежуточные значения
    9. Выполнить программу для тестового примера в пошаговом режиме.
    10. Оформить отчет.


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


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


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

    47726573684e New Member

    Joined:
    26 Apr 2008
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    Построить график функции f(x) = cos(x)∙ctgx. Вот и вся задача ... Поверьте и более сложные решал, но как это незнаю эх говрили мне учи математику :)
     
  5. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Здесь про графику написано:) [я пока занят]
    Графика в паскале
    Графика в паскале{Вставки асм}
     
    #445 De-visible, 27 Apr 2008
    Last edited: 27 Apr 2008
  6. krypt3r

    krypt3r Elder - Старейшина

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    Omg, вы тут уже несколько страниц решаете простое квадратное уравнение :-d
    Garfi, хоть ты и клянешься, что математику хорошо знаешь, эта ссылка (http://www.math.ru/dic/37) + элементарные размышления скажут тебе, что /2*a - неверное переложение формулы на код языка програмирования. Верные - /(2*a), /2/a, /a/2.
    Code:
    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, ибо это уже не квадратное уравнение, а линейное, но раз уж просите, то вот код, и без комплексных чисел.
    Code:
    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.
    

    De-visible:Уравнение - я привел самый простой пример:)
     
    #446 krypt3r, 28 Apr 2008
    Last edited by a moderator: 29 Apr 2008
    1 person likes this.
  7. 47726573684e

    47726573684e New Member

    Joined:
    26 Apr 2008
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    Да знаю я графику ! Блин Я незнаю как f(x) = cos(x)∙ctgx нарисовать, ладно бы просто синусойда или косинусойда была а тут хз .... Ну лана помучу сам , извиняюсь за беспокойство....
     
  8. krypt3r

    krypt3r Elder - Старейшина

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    47726573684e, попробуй преобразовать выражение, например, расписать котангенс
     
  9. WinTREI

    WinTREI Elder - Старейшина

    Joined:
    14 Mar 2008
    Messages:
    31
    Likes Received:
    0
    Reputations:
    0
    хватит флудить в моей теме )
    лучше мне б с контрольной помогли :p
    De-visible:почему флуд? тема задачи по паскале
     
    #449 WinTREI, 28 Apr 2008
    Last edited by a moderator: 28 Apr 2008
  10. Catsy

    Catsy New Member

    Joined:
    26 Apr 2008
    Messages:
    14
    Likes Received:
    1
    Reputations:
    0
    Здравствуйте, помогите пожалуйста с задачей по двумерному массиву:

    Дан двумерный массив целых чисел из 4 столбцов и 3 строк. Найти сумму элементов стоящих до первого нуля. Просмотр вести по строкам. Заменить элементы, стоящие после последнего нуля на эту сумму. Вывести массив по строкам до и после замены.
     
  11. dos999

    dos999 Elder - Старейшина

    Joined:
    15 Feb 2008
    Messages:
    137
    Likes Received:
    24
    Reputations:
    0
    на чём писать то?
     
  12. Stern

    Stern Elder - Старейшина

    Joined:
    13 Mar 2007
    Messages:
    75
    Likes Received:
    5
    Reputations:
    0
    Need хелп с паскалем(срочно)

    Вообщем имеется задачка...

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

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


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

    De-visible:конечно ниже была тема:Задачи по паскаль
     
    #452 Stern, 28 Apr 2008
    Last edited by a moderator: 28 Apr 2008
    1 person likes this.
  13. WinTREI

    WinTREI Elder - Старейшина

    Joined:
    14 Mar 2008
    Messages:
    31
    Likes Received:
    0
    Reputations:
    0
    я забыл добавить мои задачи ))
    De-visible: Ну раз ты создал эту тему, пусть в ней новички задают вопросы по Паскаль, да бы не засорять раздел!
     
    #453 WinTREI, 28 Apr 2008
    Last edited by a moderator: 29 Apr 2008
  14. Moscow

    Moscow Member

    Joined:
    21 Nov 2006
    Messages:
    14
    Likes Received:
    5
    Reputations:
    6
    Доброго времени суток.
    Нужен простой Браузер на Delphi с рандомным авто заполнением определенной интернет формы из данных в файле.
     
  15. Catsy

    Catsy New Member

    Joined:
    26 Apr 2008
    Messages:
    14
    Likes Received:
    1
    Reputations:
    0
    паскаль
     
  16. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66



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

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

    Code:
    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;
    Далее процедура вывода:

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

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


    Code:
    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;
    Далее процедура замены:

    Code:
    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;
    

    Затем задаем массив:

    Code:
    var
    a:array [1..X] of integer;

    P.S. я расписал процедуры и функции, что не так переделай, ничего сложного здесь нет, код составить теперь труда не составит:)
     
    #456 De-visible, 28 Apr 2008
    Last edited: 29 Apr 2008
  17. l1ght

    l1ght Elder - Старейшина

    Joined:
    5 Dec 2006
    Messages:
    191
    Likes Received:
    678
    Reputations:
    333
    вы не задумывались почему a<>0 ? =) зачем изобретать велосипед, достаточно выполнить основные условия задачи. В частности когда а и б = 0 вылезет ошибка деления на 0 =)
     
    #457 l1ght, 28 Apr 2008
    Last edited: 12 Jan 2010
    2 people like this.
  18. krypt3r

    krypt3r Elder - Старейшина

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    Для варианта b = 0 мне лень стало добавлять код :)
    Если брать Turbo Pascal, то там, кроме {}, есть еще и (* *) :) А делфи и фрипаскаль нормально реагируют на // в качестве начала комментария
     
  19. BaleHoK

    BaleHoK Elder - Старейшина

    Joined:
    30 Sep 2007
    Messages:
    399
    Likes Received:
    21
    Reputations:
    10
    выручайте...Имеется непустая последовательность произвольных натуральных чисел (чисел не более 50), за которой следует нуль. Не используя массивов, вывести в строку поряд¬ковые номера максимальных чисел последовательности. Выполнить проверку пра¬вильности ввода информации...

    Язык С или С++...только не Vc
     
  20. Catsy

    Catsy New Member

    Joined:
    26 Apr 2008
    Messages:
    14
    Likes Received:
    1
    Reputations:
    0
    Dober'man
    спасибо
    вот дописала немного, вдруг кому надо
    Code:
    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.
     
Thread Status:
Not open for further replies.