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

Ну может поможет кто? плиззззз

 

Code:

function CheckNumber(Number: string): boolean;
var
  i: integer;
begin
  Result := false;
  for i := 1 to length(Number) do
    case Number[i] of
      '0','1':;
      else
        exit;
    end;
  Result := true;
end;


function BinaryAdd(N1, N2: string): string;
var
  tmp1, tmp2:   byte;
  i:            integer;
  flag:         boolean;
begin
  // зададим начальные параметры
  Result := '';
  flag := false;

  // если в строках не только 0 и 1
  if (not(CheckNumber(N1))) or (not(CheckNumber(N2))) then
    exit;

  // сделаем обе строки одинаковой длины, дополнив одну из них нулями
  tmp1 := length(N1);
  tmp2 := length(N2);

  if (tmp1 > tmp2) then
    for i := 1 to (tmp1 - tmp2) do
      N2 := '0' + N2;

  if (tmp1 < tmp2) then
    for i := 1 to (tmp2 - tmp1) do
      N1 := '0' + N1;

  // будем посимвольно обрабатывать строки
  for i := length(N1) downto 1 do
    begin
      tmp1 := StrToInt(N1[i]) + StrToInt(N2[i]);;
      if flag then
        inc(tmp1);

      tmp2 := tmp1 mod 2;
      Result := IntToStr(tmp2) + Result;

      tmp2 := tmp1 div 2;
      if (tmp2 = 0) then
        flag := false
      else
        flag := true;
    end;

  // если осталась неперенесенная единица
  if flag then
    Result := '1' + Result;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  tmp: string;
begin
  tmp := BinaryAdd(edit1.Text, edit2.Text);
  ShowMessage(tmp);
end;

 

пацаны, выручайте. Нужно написать программу на низкоуровневом языке. (В данном случае язык не важен, он описан В ЗАДАЧЕ!)

 

Добрые люди, помогите пожалст решить две задачки...
Сделайте плз кто умеет.
На паскале.

1)

Code:

Используя рекуррентную формулу вычислить сумму ряда

Code:

с точностью
1) e=0,01 
2) е=0,001
Определить количество элементов ряда, включенных в сумму.

2)

Code:

Составить программы с помощью которых:
- сформировать текстовый файл из строк, 
которые должны быть введены с клавиатуры;

- вывести на экран строки с наибольшим количеством слов

50 wmr дам за задачу...
Больше финансы не позволяют

 

Написать примитивный TFTP Server or Client базовыми средствами делфи,
добавить возможность вывода сообщения об ошибке направленной на введенный адрес сервера...
Помогите оч. надо в ближайшие строки... с меня кресты...

 

Кому они нужны сейчас, скажи?

 

а я ебу... у меня больше нет нихера.... разве что нафотошопить че могу...

 

о вот на ВМУ кошельке 1грн 72коп. ))))))))))))

 

Помогите доделать задание на Java.... вот само задание :
Создать класс Data для работы с датами в формате "день.месяц.год". Дата представляется структурой с 3-мя полями типа INT для дня , месяца и года. Класс должен включать функции инициализации : числами , датой , строкой вида (12.07.2005). Нужны методы вычисления даты через заданное количество дней, вычитание заданного количества дней из даты, определение высокосности года , сравнение дат(равно , до , после), вычисление количества дней между датами.

Вот то что я сделал :

Code:

/**
 * Created by IntelliJ IDEA.
 * User: User
 * Date: 19.10.2009
 * Time: 12:05:23
 * To change this template use File | Settings | File Templates.
 */

import java.util.Calendar;
import java.util.Date;
import java.text.SimpleDateFormat;
import static java.lang.Math.floor;

public class MyDate {
    Calendar cal = Calendar.getInstance();
    int y;
    int m;
    int d;

    /*
    */
    public MyDate() {
       // cal.setTime(new Date());
       // System.out.println(new Date());
        y = cal.get(Calendar.YEAR);
        m = cal.get(Calendar.MONTH)+1;
        d = cal.get(Calendar.DAY_OF_MONTH);
    }

    /*
    */
    public void out_date(int y, int m, int d) {
        System.out.println("Year  : " + y);
        System.out.println("Month : " + m);
        System.out.println("Day   : " + d);
    }

    /*
    */
    public int get_hight_year_is(int y) {
        return (((y % 4 == 0) && (y % 100 != 0)) || (y % 400 == 0)) ? 1 : 0;
    }
    /*
     */
    public void set_my_date() {
        int year = 2008;
        int month = 11;
        int day = 21;
        System.out.println("Input Year");
        System.out.println("Input Month");
        System.out.println("Input Day");
        MyDate data = new MyDate();
        cal.set(Calendar.YEAR, year);
        cal.set(Calendar.MONTH, month);
        cal.set(Calendar.DAY_OF_MONTH, day);
        data.y = cal.get(Calendar.YEAR);
        data.m = cal.get(Calendar.MONTH);
        data.d = cal.get(Calendar.DAY_OF_MONTH);
        System.out.println("Your setting date is :");
        data.out_date(data.y, data.m, data.d);
    }

    /*
    */
    public static void main(String[] args) {
        MyDate data = new MyDate();
        int y = data.y;
        int m = data.m;
        int d = data.d;
        int nod;
        data.out_date(y, m, d);
        data.set_my_date();
        if (data.get_hight_year_is(y) == 1) {
            System.out.println("The Year Is Leap");
        } else {
            System.out.println("The Year Is Normal");
        }
    }
}  

 

уважаемы программеры прошу вашей помощи помоги разделить двоичные числа на С++ ! зарание спасибо

 

фортран 77 или 90

Program s3
print*,'vedite kytovuy skorost'
read*,w
t=1200
n=(w*t)/(2*3.14)
if n<10000 then
print 10,n
10 Format(a0,f6,0)
else if n>=10000 then
print 11,n
11 Format(a0,f5,1)
end if
end

вот код ошибка в строках
if n<10000 then
else if n>=10000 then

че ему по синтаксу не нравиться?((
и если не сложно обясниет на счет оператотора формат а то не оч его понял


пс я делфи кодер( ненавижу фортран(((

 

Фортран не знаю, но может быть условия надо заключать в скобки?

 

привет, кто знаком с алгоритмом шифровки Эль-Гамаля, заинтересовал вопрос у каждого символа должен быть свой код? шифруем символ кодом, шифруем этот код алгоритмом Эль-Гамаля и получаем на выходе (R,E), передаем клиенту, а потом расшифровываем (R,E) на выходе получаем код символа?...

 

В двумерном целочисленном массиве размером 5*5 определить средне арифметическое значение каждой строки сформировать из них одномерный массив , записать его в файл.txt а затем считать его и вывести в окно результатов.
Что неправильно?

Code:

Program lab10; 
uses crt; 
type mas=array[1..5,1..5] of integer; 
var f:text; 
a:mas; sred:real; 
s:string; 
i,j,:integer; 
b,c:array[1..5] of real; 
Procedure 1 (var a:mas); 
Var i,j:integer; 
Begin 
randomize; 
for i:=1 to 5 do 
for j:=1 to 5 do 
a[i,j]:=random(27); 
for i:=1 to 5 do 
begin 
for j:=1 to 5 do 
write (a[i,j]:5); 
writeln; 
end; 
begin 
clrscr; 
assign (f,'C:\stud\120891\lab10.txt'); 
1(a); 
For i:=1 to 5 do 
begin 
sred:=a[i,j]; 
for j:1 to 5 do 
begin 
sum:=0; sum:=sum+a[i,1]; 
sred:=sum/5; 
b:=sred; 
end; 
end; 
rewrite(f); 
for i:=1 to 5 do 
write (f, b:5); 
close(f); 
reset(f); 
for i:=1 to 5 do 
read (f,c); 
close(f); 
for i:=1 to 5 do 
write(c); 
repeat until keypressed; 
end; 
end.

 

2 ss88, никто ничего не путал и нужно С++.)

 

Нужна игра змейка в С++.
Кто сможет=_)

 

Паскаль
20, Написать программу которая из суммы пар элементов заданного массива формирует новый массив. Например если задан массив а1,а2,...ан. то элементы нового массива будут вычисляться следующим образом в1=а1+а2; в2=а3+а4 и т.д.

25. Написать программу которая упорядочивает по убыванию ту чаасть последовательности , кот находится после минимального элемента этой последовательности.

Написать программу, которая меняет местами максимальный и минимальный элементы массива

Написать программу которая из заданного масиива формирует 2 массива, один с элементами с чётными номерами, другой с нечётными

Заранее спасибо

 

Хм... где же в условии хоть одно слово о классах, методах и т.д?

 

Ну-у-у... Слова не было, но лабораторная то с темой "С++"
И игрушку "змейку" тоже в с++ нужно.=_)

 

Если кто может помочь разобраться с программой на ассемблере, буду премного благодарен. Язык к сожалению знаю хуже некуда. В общем программа обрабатывает заданный в командной строке файл таким образом, что все прописные латинские буквы преобразуются в заглавные. Ниже собствено код, кто может плиз откомментируйте построчно ну или насколько хватит терпения. Заранее благодарен.

Code:

CODE SEGMENT
ASSUME CS:CODE, DS:CODE
ORG 100H
BEGIN:
JMP BEG
TEXT1 DB 'Нет параметров.',13,10,'$'
TEXT2 DB 'Файл не найден.',13,10,'$'
PATH DB 80 DUP(O) ;путь к файлу
BUF DB 160 DUP(?) /буфер для чтения файла
BEG:
;блок анализа командной строки
XOR SI,SI
XOR DI,DI
MOV DL,1
LOO:
CMP BYTE PTR [81H+SI],ODH
JZ NO_PAR
MOV AL,[81H+SI]
CMP AL,' '
JZ SPACE
XOR DL,DL
MOV [PATH+DI],AL
INC DI
JMP SHORT L001
SPACE:
OR DL,DL ;если DL=0 тогда первый параметр закончился
JZ NO_PAR
L001:
INC SI
JMP SHORT LOO
NO_PAR:
OR SI,SI ;был ли параметр
JNZ CONT
/сообщение, затем выходим
MOV DX,OFFSET TEXT1
MOV AH,9
INT 21H
JMP EXIT
/теперь открытие и преобразование файла
CONT:
/открыть файл
LEA DX,PATH
MOV AX,3D02H
INT 21H
JNC NORM
MOV DX,OFFSET TEXT2
MOV AH,9
INT 21H
JMP EXIT
NORM :
MOV BX,AX
XOR DI,DI ;в DI будет хранится начало считываемого участка
POVT:
;читать участок файла в буфер
LEA DX,BUF
MOV АН,3FH
MOV CX,160 /размер буфера
INT 21H
MOV AH,AL
LEA SI,BUF
CMP AL,0
;просматриваем буфер и преобразуем латинский шрифт
L02 :
JZ ZER
CMP BYTE PTR [SI],97
JB L01
CMP BYTE PTR [SI],122
JA L01
SUB BYTE PTR [SI],32
L01:
INC SI
DEC AL
JMP SHORT L02
ZER:
PUSH AX
;перемещаем указатель файла назад
MOV AX,4200H
XOR CX,CX
MOV DX,DI /указатель начала считанного участка
INT 21H
; пишем буфер на диск
;количество записанных байт может, вообще говоря,
;быть больше 160
MOV АН,40Н
POP СХ
PUSH СХ
MOV CL,CH
XOR CH,CH
LEA DX,BUF
INT 21H ' .
;проверяем, не достигнут ли конец файла
POP AX
MOV AL,AH
XOR АН,АН
ADD DI,АХ
CMP AL,160 ;сравниваем с размером буфера
JZ POVT
;закрыть файл
MOV АН,ЗЕН
INT 21H
EXIT:
RET
CODE ENDS
END BEGIN