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 базовыми средствами делфи, добавить возможность вывода сообщения об ошибке направленной на введенный адрес сервера... Помогите оч. надо в ближайшие строки... с меня кресты...
Помогите доделать задание на 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.
Паскаль 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