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

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

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

    ben1991 New Member

    Joined:
    29 Oct 2008
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    Привет всем...можете написать следующие программы на АСМ...Я незнаю алгоритма построения программ...
    1)Составить ассемблер-программу кодирования и раскодирования произвольной текстовой строки по произвольной кодирующей таблице. Вывести на экран исходную, колированную и раскодированную строки.
    2)Сбросить биты 1, 4, 5, 10, 12, 15 заданного слова ОП.
    3)Через сдвиг быстро умножить заданное слово ОП на 30.
    4)Копировать из заданного массива слов в другой массив только отрицательные числа.
    5)Создайте произвольное собственное прерывание и занесите его в любое место таблицы векторов прерывания.
     
  2. seowayder

    seowayder New Member

    Joined:
    21 Feb 2010
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Помогите сделать пожалуйста - очень срочно! Заранее благодарен!

    http://clip2net.com/clip/m0/1270670451-clip-3kb.png?nocache=1
     
    #2582 seowayder, 7 Apr 2010
    Last edited: 8 Apr 2010
  3. NTFF

    NTFF New Member

    Joined:
    9 Dec 2009
    Messages:
    23
    Likes Received:
    0
    Reputations:
    0
    Помогите с реализацией двухсвязного списка в паскале

    может есть вариант как-то преобразовать существующий список если это возможно то вот код:

    Если нет то вот условие
    Разработать справочник пассажирских поездов с полями: номер поезда, станции отправления и назначения, время в дороге, категория поезду. Реализовать подпрограммы поиска: 1) по станциям отправления и назначения, 2) по категории поезду.

    program Records;
    uses
    crt, strings;
    const
    max = 100;
    type

    Ttrain = record
    Otpravlenie : string[40];
    Pribitie : string[40];
    Category : string[10];
    Time : string[10];
    Number : string[10];
    end;

    Ttrains = array [1..max] of Ttrain;


    procedure SngWindow(x1,y1,x2,y2,tc,c : byte);
    begin
    window(x1,y1,x2,y2);
    textbackground(c); textcolor(tc);
    clrscr;
    end;


    procedure DblWindow(x1,y1,x2,y2,tcolor, c1, c2 : byte);
    begin
    window(x1,y1,x2,y2);
    textbackground(c1);
    clrscr;
    window(x1+1,y1+1,x2-1,y2-1);
    textbackground(c2);
    textcolor(tcolor);
    clrscr;
    end;


    function Menu : byte;
    var
    punkt : byte;
    er : integer;
    s : string;
    begin

    SngWindow(1,1,80,25,WHITE,BLACK);

    SngWindow(1,6,80,25,WHITE,BLUE);

    repeat

    DblWindow(1,1,80,5,YELLOW,MAGENTA,BLUE);
    writeln;
    write(' 1.ADD 2.DELETE 3.PRINT 4.SEARCH 5.EXIT');
    readln(s);
    val(s,punkt,er);
    until (er=0) and (punkt>=1) and (punkt<=5);
    Menu := punkt;
    end;

    function SubMenu : byte;
    var
    punkt : byte;
    er : integer;
    s : string;
    begin

    SngWindow(1,1,80,25,WHITE,BLACK);
    SngWindow(1,6,80,25,WHITE,BLUE);
    repeat

    DblWindow(1,1,80,5,YELLOW,MAGENTA,BLUE);
    writeln;
    write(' 1.Otpravlenie 2.Pribitie 3.Number 4.Exit');
    readln(s);
    val(s,punkt,er);
    until (er=0) and (punkt>=1) and (punkt<=4);
    SubMenu := punkt;
    end;

    procedure AddRecord(var mas : Ttrains; var n : byte; size : byte);
    var
    s : String;
    er : integer;
    begin

    if (n+1 <= size) then
    begin
    inc(n);

    write('Point of otpravlenie =>'); readln(mas[n].Otpravlenie);
    write('Point of pribitie =>'); readln(mas[n].Pribitie);
    write('Category of train =>'); readln(mas[n].Category);
    write('Time in the way =>'); readln(mas[n].Time);
    write('Number of train =>'); readln(mas[n].number);

    writeln('Record is saving....');
    end
    else writeln('ERROR record is lost');
    end;

    procedure PrintRecord(var mas : Ttrains; i : integer);
    begin
    write(i:3);
    with mas do
    begin
    write(Otpravlenie:23); write(Pribitie:20);
    write(Category:10); write(Time:10);
    write(Number:12);
    writeln;
    end;
    end;

    procedure Print(var mas : Ttrains; n : integer);
    var
    i : integer;
    begin
    writeln('#':3,'Otpravlenie':23,'Pribitie':20,'Cate gory':10,'Time':10,'Number':12);
    for i:=1 to n do
    PrintRecord(mas,i);
    end;

    procedure DelRecordByotpr(var mas : Ttrains; var n : byte; botpr : string);
    var
    i,j : integer;
    begin
    writeln('#':3,'Otpravlenie':23,'Pribitie':20,'Cate gory':10,'Time':10,'Number':12);
    for i:=1 to n do
    begin
    with mas do

    if (Otpravlenie = botpr) then
    begin
    PrintRecord(mas,i);

    for j:=i+1 to n do
    mas[j-1] := mas[j];
    dec(n);
    end;
    end;
    end;

    procedure FindByotpr(var mas : Ttrains; n : integer; botpravlenie : string);
    var
    i : integer;
    begin
    writeln('#':3,'Otpravlenie':23,'Pribitie':20,'Cate gory':10,'Time':10,'Number':12);

    for i:=1 to n do
    with mas do

    if otpravlenie=botpravlenie then PrintRecord(mas,i);
    end;

    procedure FindByCat(var mas : Ttrains; n : integer; ba, bst : string);
    var
    i : integer;
    begin
    writeln('#':3,'Otpravlenie':23,'Pribitie':20,'Cate gory':10,'Time':10,'Number':12);

    for i:=1 to n do
    with mas do

    if (pribitie=ba) and (Category=bst) then PrintRecord(mas,i);
    end;

    procedure FindBynum(var mas : Ttrains; n : integer; bnumber : string);
    var
    i : integer;
    begin writeln('#':3,'Otpravlenie':23,'Pribitie':20,'Cate gory':10,'Time':10,'Number':12);

    for i:=1 to n do
    with mas do

    if number=bnumber then PrintRecord(mas,i);
    end;

    var
    b : Ttrains;
    n : byte;
    punkt : byte;
    subpunkt : byte;
    trainotprav,
    a,
    st : string;
    y : string;
    s : string;
    er : integer;
    begin
    n := 0;
    SngWindow(1,1,80,25,WHITE,BLACK);
    repeat
    punkt:= Menu;
    case (punkt) of
    1:begin
    SngWindow(1,6,80,25,WHITE,BLUE);
    writeln(' ADD train');
    AddRecord(b,n,max);
    readkey;
    end;
    2:begin
    SngWindow(1,6,80,25,WHITE,BLUE);
    writeln(' Delete by otpravlenie');

    write('Otpravlenie =>');
    readln(trainotprav);

    DelRecordByotpr(b,n,trainotprav);
    readkey;
    end;
    3:begin
    SngWindow(1,6,80,25,WHITE,BLUE);
    writeln(' Catalog of trains');
    Print(b,n);
    readkey;
    end;
    4:begin
    repeat
    subpunkt := SubMenu;
    case (subpunkt) of
    1:begin
    SngWindow(1,6,80,25,WHITE,BLUE);
    writeln(' Train by otpravlenie ');
    write('Otpravlenie =>');
    readln(trainotprav);
    findbyotpr(b,n,trainotprav);
    readkey;
    end;
    2:begin
    SngWindow(1,6,80,25,WHITE,BLUE);
    writeln(' Train by pribitie and category ');

    write('Pribitie =>');
    readln(a);

    write('Category =>');
    readln(st);
    findByCat(b,n,a,st);
    readkey;
    end;
    3:begin
    SngWindow(1,6,80,25,WHITE,BLUE);
    writeln(' Train by number ');
    write('number =>');
    readln(y);
    findbynum(b,n,y);
    readkey;
    end;
    end;
    until (subpunkt = 4);
    end;
    end;
    until (punkt = 5);
    SngWindow(1,1,80,25,WHITE,BLACK);
    end.
     
  4. Robobit

    Robobit New Member

    Joined:
    16 Mar 2010
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    Программирование алгоритмов циклической структуры

    Здравствуйте!
    Пожалуйста помогите выполнить лабораторную работу на любом языке...
    Тема:Программирование алгоритмов циклической структуры
    1:
    [​IMG]
    2:
    [​IMG]
     
  5. cel1697i845

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

    Joined:
    22 Nov 2008
    Messages:
    618
    Likes Received:
    396
    Reputations:
    80
    C#

    Robobit (1)
    Если правильно я понял, то вот:
    Code:
    using System;
    using System.Collections.Generic;
    using System.Linq;
    using System.Text;
    
    namespace Robobit_1
    {
        class Program
        {
            static void Main(string[] args)
            {
                double Summa = 0;
                for (double i = 1; i <= 20; i++)
                {
                    Summa += Math.Pow(i + 2, 2);
                }
                Console.WriteLine(Summa);
                Console.ReadKey();
            }
        }
    }
    
    
    Deposit Files
    RapidShare
    letitbit
     
  6. mozgpanic

    mozgpanic New Member

    Joined:
    9 Mar 2010
    Messages:
    6
    Likes Received:
    2
    Reputations:
    0
    Python

    Robobit
    Немного быдлокода на питоне
    1:
    Code:
    S, i = 0, 0 
    while(i<20):    
       i=i+1     
       S=S+(i+2)*(i+2)
    print (S)
    
    2:
    Code:
    import math
    a=3.5
    X=0.5
    t=0
    x=0
    def factorial(z):
        if z == 0:
            return 1
        else:
            return z * factorial(z - 1)
    n=input('Введите n:')
    n=float(n)
    while(x<=40):
        t=t+math.pow(math.log(a),n)*math.pow(X,n)/factorial(n)
        Y=math.pow(a,x)
        x=x+1
    S=1+t
    print ("S=",S)
    print ("Y=",Y)
    if (S>=Y):
        print("S>=Y")
    else:
        print ("S<Y")
    
    P.S. на счет второго могу и ошибаться :rolleyes:
     
    #2586 mozgpanic, 8 Apr 2010
    Last edited: 8 Apr 2010
  7. a_pap

    a_pap New Member

    Joined:
    8 Apr 2010
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Может кто-нибудь помочь написать или найти готовый код предельно простого арканоида на Delphi? Без наворотов, требуется только выпадение бонусов и счетчик очков.
     
  8. Nition

    Nition New Member

    Joined:
    6 Dec 2009
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    Ребят помогите сделать задачку

    Создать класс для обработки комплексных чисел, полями которого будет являться действительные и мнимые части числа, а методами – сложение, вычитание, умножение, деление двух комплексных чисел, а также нахождение модуля комплексного числа и вывода результатов на экран.
    Исходные данные и результаты расчетов хранить:
    - в текстовых файлах;
    - в бинарных файлах.
     
  9. KrabKN

    KrabKN New Member

    Joined:
    21 Jan 2010
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    помогите програма нехочет подсчитівать средний бал

    файл fia.h
    struct grupa
    {
    char FIO[101];
    int vik;
    float bal;
    char gru[20];
    };
    extern "C" void vvod(grupa &spisok);
    extern "C" void vivod(grupa spisok);
    extern "C" void asa (grupa spisok);


    файл fia.cpp
    #include<iostream.h>
    #include<string.h>
    #include<conio.h>
    #include "fia.h"
    void vvod(grupa &spisok)
    {
    cout << "Vvedite predlogaemie paramitri ";
    cout << "\nFIO: "; cin>>spisok.FIO;
    cout << "Vik: "; cin>>spisok.vik;
    cout << "Sredni bal: "; cin>>spisok.bal;
    cout << "Grupa: "; cin>>spisok.gru;
    }
    void vivod(grupa spisok)
    {
    cout << "FIO: " <<spisok.FIO<<"\n";
    cout << "Vik: " <<spisok.vik<<"\n";
    cout << "Sredni bal: " <<spisok.bal<<"\n";
    cout << "Grupa: " <<spisok.gru<<"\n\n";
    }
    void asa(grupa spisok)
    {
    char a[10];
    float m=0;
    int n=0;
    cout<<"\nVvedite nomer grupy\n"; cin>>a;
    for(int i=0;i<3;i++)
    {
    if(a==spisok.gru)
    {
    n++;
    m=n+spisok.bal;
    }
    }
    m=m/n;
    cout<<"Bal= "<<m;
    }


    #include<iostream.h>
    #include<string.h>
    #include<conio.h>
    #include "fia.cpp"
    void main()
    {
    int vibor;
    grupa spisok[4];

    grupa* kn = (grupa*)spisok;
    kn++;

    while(vibor!=4)
    {
    cout<<"\nSpisok grupy\n1.Sozdanie spiska grupy\n2.Prosmotr grupy\n3.Pods4et srednego bala\n4.Exit\n";
    cin>>vibor;

    switch(vibor)
    {
    case 1:
    for(int i=0;i<3;i++)
    vvod(spisok);break;

    case 2:
    for(int i=0;i<3;i++)
    vivod(spisok);break;
    case 3:
    for(int i=0;i<3;i++)
    asa(spisok);break;
    case 4:
    cout<<"\nbye =)";break;
    default:cout<<"\n Sorry Error!!!\n";break;
    }
    }
    getch();
    }
     
  10. Porrter

    Porrter New Member

    Joined:
    24 Aug 2009
    Messages:
    0
    Likes Received:
    2
    Reputations:
    -10
    Срочно нужно сделать задачку. Завтра сдавать.

    Спроектировать и разработать программу позволяющую создавать процессы и
    управлять уже созданными. Программа должна обладать следующим набором
    возможностей:
    В интерактивном режиме запускать указанные процессы.
    Уничтожать указанный процесс (уничтожаться могут только процессы запущенные
    программой). Уничтожаемый процесс указывается либо его описателем, либо
    выбирается в интерактивном режиме.
    Показать список всех процессов (а также своих копий) запущенных программой.
    Программа должна знать о всех своих запушенных копиях.
    Программа должна уметь обмениваться со своими копиями списками порождённых
    процессов.
    При закрытии программы она должна уничтожить все порождённые ею процессы.

    Примечания:
    Новый процесс запускается функцией CreateProcess и уничтожается функцией
    TerminateProcess.
    Запускаемый процесс указывается именем своего исполняемого файла.
    Для обмена данными между копиями программы можно использовать переменные
    окружения. Для работы с переменными окружения используются следующие функции:
    GetEnvironmentVariable, SetEnvironmentVariable.
    В случае реализации программы в консольном варианте для обработки попыток
    закрытия программы необходимо использовать функцию SetConsoleCtrlHandle.
    Описание необходимых функций можно посмотреть в MSDN Library.
    Пользовательский интерфейс может быть реализован в любом варианте (текстовый,
    графический).
     
  11. ntldr

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

    Joined:
    4 Dec 2007
    Messages:
    367
    Likes Received:
    140
    Reputations:
    23
    Внезапно - http://forum.antichat.ru/forum57.html
     
    #2591 ntldr, 9 Apr 2010
    Last edited: 9 Apr 2010
    1 person likes this.
  12. -slim-

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

    Joined:
    25 May 2007
    Messages:
    99
    Likes Received:
    12
    Reputations:
    0
    Нарисовать на форме график функции y=sin(x) в диапазоне x=0 - 180 с шагом 10 Обсчитать площадь под графиком и вывести на форму в компонент Tedit. Высота формы 1.5, длина формы 3.

    Попрошу Вас, с пояснениями в комментариях. Очень надо.

    Delphi
     
  13. -Straniks-

    -Straniks- Member

    Joined:
    11 Aug 2009
    Messages:
    0
    Likes Received:
    6
    Reputations:
    0
    Помогите написать задачи на Си. Компилятор gcc от Linux (Ubuntu 8.04)
    1. Найти номер максимального элемента таблицы a[1...10]
    2. Найти наименьшее однозначное число x удовлетворяющее условию x*x*x-x*x=n
    2. Составить программу, подсчитывающую число удалений в каждой команде при игре в хоккей. После каждого
    удаления выводить на экран фамилию хоккеиста, время, на которое он удаляется с поля, и суммарное число
    удалений в каждой команде. После окончания игры выдать итоговое сообщение.
    3. Информация о хранящихся на складе товарах состоит из: 1) инвентаризационного номера; 2) наименование
    товара; 3) количества в штуках; 4) цены; 5) даты поставки. Напишите структуру, описывающую эту
    информацию на языке Си.
    4. Написать программу формирования базы данных результатов соревнований по тяжелой атлетике. Запись
    содержит: стартовый номер, фамилию, имя, отчество, название спортивного клуба, результаты по двум
    упражнения (рывок, толчок), номер занятого места. Последнее поле заполнить, определив занятое место по
    сумме результатов в двух упражнениях.

    буду очень благодарен кто решит...
     
  14. IgrikX

    IgrikX New Member

    Joined:
    13 Aug 2009
    Messages:
    114
    Likes Received:
    1
    Reputations:
    -3
    Вот не могу никак сделать задание, уже несколько дней.
    Задание.
    Вариант задания реализовать в виде функции, использующей для работы со строкой только указатели и операции вида *p++, p++ и т.д. Если функция возвращает строку или ее фрагмент, то это также необходимо сделать через указатель.
    Функция находит в строке пары одинаковых фрагментов и возвращает указатель на первый. С помощью функции найти все пары одинаковых фрагментов.
    Что я смог сделать))
    PHP:

    #include <stdio.h>
    #include <string.h>
    #include <conio.h>

    const int minlen 3;

    char *find(char *pchar *qint len){
        for(;*
    p!='\0';p++){
        
    int i;
        for(
    i=0;(q[i]!='\0')&&(q[i]==p[i]);i++)
            if(
    i==len)
            return 
    p;
        }
        return 
    NULL;
    }

    void allfind(char *str){
        for(
    int len=minlenlen<strlen(str); len++){
        for(
    int i=0i<strlen(str)-leni++){
            
    char *sub find(strstr+len+ilen);
            if(
    sub!=NULL)
            
    puts(sub);
        }
        }
    }

    int main()
    {
    clrscr();
        
    allfind("aaabbbcccaaa");
        
    getch();
        return 
    0;
    }

    Кто поможет, +1))
     
  15. X-FRITS

    X-FRITS Elder - Старейшина

    Joined:
    24 Jun 2007
    Messages:
    57
    Likes Received:
    81
    Reputations:
    7
    Помогите сделать лаб.работу на Делфи:

    [​IMG]
     
  16. EndLeSSDre@M

    EndLeSSDre@M Banned

    Joined:
    18 Jul 2009
    Messages:
    142
    Likes Received:
    99
    Reputations:
    -5

    эм.. я бы сделал если бы на русском написано было... а так ниче не понятно :(
     
  17. Colkru

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

    Joined:
    13 Jan 2007
    Messages:
    100
    Likes Received:
    69
    Reputations:
    9
    Нужно сделать на СИ под Linux. Помогите кто, чем может))))
     
    #2597 Colkru, 12 Apr 2010
    Last edited: 12 Apr 2010
  18. Colkru

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

    Joined:
    13 Jan 2007
    Messages:
    100
    Likes Received:
    69
    Reputations:
    9
    Вот Нашел похоже то задание)
     
    1 person likes this.
  19. 7on

    7on New Member

    Joined:
    13 May 2008
    Messages:
    23
    Likes Received:
    1
    Reputations:
    -1
    помогите решить систему в VB 6

    { V+sin*V; V<-1
    U={arcsin(0.7*V+0.26); -1<=V<=0.5
    { (V+(cos*V+(e^V)^0.5; 0.5<V
     
    #2599 7on, 12 Apr 2010
    Last edited: 12 Apr 2010
  20. X-FRITS

    X-FRITS Elder - Старейшина

    Joined:
    24 Jun 2007
    Messages:
    57
    Likes Received:
    81
    Reputations:
    7
    [​IMG]
     
Thread Status:
Not open for further replies.