/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 565
от 05.02.2008, 23:05

Вопрос № 120.937

Ребята помагите!Программу надо отладить в паскале! Используя команды пересылки данных,с выполнением арифметических операций,логических и сдиговых операций,составить листинг программы по заданию.Исходные данные указывать произвольно,результат поместить в регистр AX.Программу отладить в паскаль. f= b+c,если 2a=0 a-3c,если 2a>0 Заранее благодарен! Приложение: вот пример label m1,m2,m3; var a,b,c:byte; f:word; begin writeln ('a,b,c'); readln (a,b,c); asm mov al,a mov bl,b mov cl,c cmp al,0 и т.д.

Отправлен: 30.01.2008, 22:55 Вопрос задал: AHAPX (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Nazar__D Здравствуйте, AHAPX! Если я все правильно понял, Вам нужен Ассемблерний код. С моей точки зрения, он должен выглядеть так (если переменные обьявлени как word): DOSSEG .MODEL SMALL .STACK 100h .DATA a dw 3 b dw 1 c dw 2 f dw 0 buf dw 0 bufer dw 0 .CODE mov ax, @data mov ds, ax mov ax, a mov buf,2 mul buf mov buf, ax ;buf<-2*a cmp buf,0 jl EndOfPr jg Greater mov ax,b add ax,c mov f,ax ;f<-b+c ax<-b+c jmp EndOfPr Greater: mov ax,c mov bufer,3 mul bufer mov bufer,ax ;bufer<-3*c mov ax, a sub ax, bufer ;ax<-a-3*c EndOfPr: mov ah,4Ch int 21h end Это целая ассемблерная программа и она работает. Вам, скорее всего нужен только текст от команди .CODE и до end. Все, что после знака ';' - это комментарий. Если же переменние типа byte, то к регистрам следует обращатся не ax, bx..., а al, bl... (к их младшым частям). Вот, пожалуй и все. Если чё - пишите. Помог, чем мог ))) --------- Я - українець!

Ответ отправил: Nazar__D (статус: 2-ой класс) Ответ отправлен: 31.01.2008, 03:32 Оценка за ответ: 5

Отвечает: Зенченко Константин Николаевич Здравствуйте, AHAPX! Смотрите приложение. Удачи! Приложение: program q120937; var a,b,c:byte; f:word; begin {вводим числа} write('A:');readln(a); write('B:');readln(b); write('C:');readln(c); {начинаем ассемблер} asm {загружаем числа} mov al,a mov bl,b mov cl,c {обнуляем старший байт} xor ah,ah xor bh,bh xor ch,ch {запоминаем АХ} push ax {АХ умножаем на два} shl ax,1 {проверяем равно ли АХ нулю} or ax,ax {востанавливаем АХ} pop ax {если АХ=0 переходим} jz @@1 {СХ=-СХ} not cx inc cx {ВХ=СХ} mov bx,cx {СХ=2*СХ} shl cx,1 {суммируем для АХ=0 АХ=АХ+ВХ+СХ=0+В+С=B+C для АХ>0 АХ=АХ+ВХ+СХ=А-С-2*С=A-3*C } @1: add ax,bx add ax,cx {запоминаем результат} mov f,ax end; {выводим результат} writeln('F:',f); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 31.01.2008, 17:15 Оценка за ответ: 5

Вопрос № 121.006

Уважаемые эксперты...помогите пожалуйта перевести программу на языке Паскаль в текст программы на языке Си. Заранее огромное спасибо! С уважением! Текст программы посылаю в пиложении! Приложение: Program Lab5; uses crt; const m=20; n=9; k=2; l=7; var a:array[1..m,1..n,1..l] of char; i1,i2,i3,i4:integer; {gl –множество гласных} cs,ctse,cgl:integer; {cs – количество символов в элементе массива} {ctse –количество 3-x символов элемента} {cgl - количество гласных в элементе} b:array[1..m,1..n] of integer; {b – вспомогательный массив} gl:set of char; ln:byte; omode:integer; begin {заполнение массива} gl:=['A','E','I','O','U','Y']; OMode:=LastMode; TextMode(omode + Font8x8); randomize; textcolor(0); clrscr; textcolor(7); for i1:=1 to m do for i2:=1 to n do begin for i3:=1 to l do a[i1,i2,i3]:=' '; ln:=random(l-k+1)+k; for i3:=1 to ln do a[i1,i2,i3]:=chr(random(26)+ord('A')); end; {формирование вспомогательного массива b} for i1:=1 to n do begin ctse:=0; for i2:=1 to m do begin b[i2,i1]:=0; cs:=0; cgl:=0; for i3:=1 to l do begin if (a[i2,i1,i3]<>' ') then cs:=cs+1; {-счёт пробелов} if (a[i2,i1,i3] in gl) then cgl:=cgl+1; {-cчёт гласных букв} end; if (cs mod 2 = 0) and (cgl>=1) then b[i2,i1]:=1; {-чётное кол-во букв, одна из них гл.} if cs=3 then ctse:=ctse+1; {-в столбце три трёхбуквенных слов} end; if ctse>=3 then begin for i4:=1 to m do begin if b[i4,i1]=1 then b[i4,i1]:=3 {при выполнении условия присваиваются значения 1-1 условие, 2-2условие, 3-1 и 2 условие} else b[i4,i1]:=2; end; end; end; for i1:=1 to m do begin writeln; for i2:=1 to n do begin write(a[i1,i2],' '); end; end; writeln; for i1:=1 to m do begin writeln; for i2:=1 to n do begin write(b[i1,i2],' '); end; end; writeln; writeln; write(#$DA); for i1:=1 to n do begin for i2:=1 to l do write(#$C4); if i1<n then write(#$C2) else writeln(#$BF); end; for i1:=1 to m do begin write(#$B3); {вывод элементов в массив } {начало} for i2:=1 to n do begin textcolor(7); if b[i1,i2]=1 then textcolor(2); if b[i1,i2]=2 then textcolor(4); if b[i1,i2]=3 then textcolor(12); for i3:=1 to l do write(a[i1,i2,i3]); textcolor(7); write(#$B3); end; {конец} { формирование промежуточной сетка между строками } {начало} writeln; if i1<m then write(#$C3) else write(#$C0); for i2:=1 to n do begin for i3:=1 to l do write(#$C4); if i1<m then begin if i2<n then write(#$C5) else writeln(#$B4); end else begin if i2<n then write(#$C1) else writeln(#$D9); end; end; {конец} end; textcolor(2); writeln; write(' ',#$DB,' –выполнение 1-ого условия’); textcolor(7); writeln; textcolor(4); write(' ',#$DB,' –выполнение 2-ого условия’); textcolor(7); writeln; textcolor(12); write(' ',#$DB,' –выполнение 1-ого и 2-ого условия одновременно'); readkey; TextMode(omode); end.

Отправлен: 31.01.2008, 11:54 Вопрос задал: Ибрагимов Роман Александрович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 9)

Отвечает: Coupler Здравствуйте, Ибрагимов Роман Александрович! Текст программы на C в приложении. Не забудьте, что массивы в С нумеруются с нуля. Также, чтобы вывести элемент массива как строку вот здесь: for (i1=0; i1 { for (i2=0; i2 printf ("%s ",a[i1][i2]); printf (" "); } пришлось увеличить размерность массива (char a[m][n][l+1];) и записывать концевой ноль. Множество заменено строкой, функция для поиска символа в строке - strchr (const char *str, int ch); (возвращает указатель на последнее вхождение младшего байта параметра ch в строку, адресуемую str, если совпадений нет, вернет NULL). Приложение: #include <stdio.h> #include <conio.h> #include <stdlib.h> #include <time.h> #include <string.h> #define m 20 #define n 9 #define k 2 #define l 7 void main() { long t; char a[m][n][l+1]; int i1, i2, i3, i4; int cs, ctse, cgl; /*cs - количество символов в элементе массива*/ /*ctse -количество 3-x символов элемента*/ /*cgl - количество гласных в элементе*/ int b[m][n]; char gl[6]={'A','E','I','O','U','Y'}; int ln; int omode; omode=LASTMODE; textmode (64); srand((unsigned)time(&t)); for (i1=0; i1<m; i1++) for (i2=0; i2<n; i2++) for (i3=0; i3<l; i3++) { a[i1][i2][i3]=' '; ln=rand()%(l-k-1)+k; for (i4=0; i4<ln; i4++) a[i1][i2][i4]=rand()%26+65; a[i1][i2][l]=' } for (i1=0; i1<n; i1++) { ctse=0; for (i2=0; i2<m; i2++) { b[i2][i1]=0; cs=cgl=0; for (i3=0; i3<l; i3++) { if (a[i2][i1][i3]!=' ') cs++; if (strchr (gl,a[i2][i1][i3])!=NULL) cgl++; } if ((cs%2==0) && (cgl>=1)) b[i2][i1]=1; if (cs==3) ctse++; } if (ctse>=3) { for (i4=0;i4<m;i4++) { if (b[i4][i1]==1) b[i4][i1]=3; else b[i4][i1]=2; } } } for (i1=0; i1<m; i1++) { for (i2=0; i2<n; i2++) printf ("%s ",a[i1][i2]); printf (" "); } for (i1=0; i1<m; i1++) { for (i2=0; i2<n; i2++) printf ("%d ",b[i1][i2]); printf (" "); } printf (" xDA"); for (i1=0; i1<n; i1++) { for (i2=0;i2<l;i2++) printf ("xC4"); if (i1<n-1) printf ("xC2"); else printf ("xBF "); } for (i1=0; i1<m; i1++) { printf ("xB3"); for (i2=0;i2<n;i2++) { textcolor (7); switch (b[i1][i2]) { case 1: textcolor(2); break; case 2: textcolor(4); break; case 3: textcolor(12); break; } for (i3=0; i3<l; i3++) cprintf ("%c",a[i1][i2][i3]); textcolor (7); printf ("xB3"); } printf (" "); if (i1<m-1) printf ("xC3"); else printf ("xC0"); for (i2=0;i2<n;i2++) { for (i3=0;i3<l;i3++) printf ("xC4"); if (i1<m-1) { if (i2<n-1) printf ("xC5"); else printf ("xB4"); } else if (i2<n-1) printf ("xC1"); else printf ("xD9"); } printf (" "); } textcolor(2); cprintf (" xDB - viplonenie 1 usloviya "); textcolor(4); cprintf (" xDB - viplonenie 2 usloviya "); textcolor(12); cprintf (" xDB - viplonenie 1 i 2 usloviya odnovremenno "); textmode (omode); getch(); }

Ответ отправил: Coupler (статус: Практикант) Ответ отправлен: 31.01.2008, 18:16

Вопрос № 121.047

Эксперты, помогите, а то уже заманался! препод воще живодер, просит нарисовать ей танк! желательно на пол экрана, остальное я сделаю, только танк, пожалуйсто....а то повешусь :(

Отправлен: 31.01.2008, 16:41 Вопрос задал: SMERT444 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, SMERT444! Программа в приложении (нашел в интернете на форуме) Удачи! Приложение: uses Graph; var grDriver : Integer; grMode : Integer; ErrCode : Integer; begin grDriver:=Detect; InitGraph(grDriver, grMode, ''); Line(200, 100, 230, 100); Line(230, 100, 230, 110); Line(210, 110, 230, 110); Line(200, 100, 200, 130); Line(210, 110, 210, 130); Line(180, 130, 270, 130); Line(180, 130, 180, 160); Line(180, 160, 270, 160); Line(270, 130, 270, 160); Line(140, 160, 310, 160); Line(140, 190, 310, 190); Arc(140, 175, 90, 270, 15); Arc(310, 175, 270, 90, 15); Circle(155, 175, 10); Circle(190, 175, 10); Circle(225, 175, 10); Circle(260, 175, 10); Circle(295, 175, 10); ReadLn; CloseGraph; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Специалист) Ответ отправлен: 31.01.2008, 16:57

Вопрос № 121.072

1.(1 балл) Нарисуйте блок-схему алгоритма ввода элементов в двумерный массив. Укажите назначение каждого блока, используемого при создании блок-схем. 2. (2 балла) В каких случаях используются при программировании процедуры? Как это делается? 3. (3 балла) Треугольник задан координатами вершин: А(0;2), В(2;-2), С(-2;-2). Написать программу, проверяющую принадлежит ли точка М(х,у) этому треугольнику. Приведите тесты для проверки работоспособности программы. 4. (4 балла) Программистами разработана процедура: chis(четность, номер цвета) - генерирует случайное число заданной четности (если четность=1 -генерируется нечетное число, если четность=2, то генерируется четное число) и выводит его на экран заданным цветом. Номер цвета совпадает с последовательностью цветов радуги, при условии, что красный цвет обозначен единицей. Используя эту процедуру, напишите программу, которая рисует орнамент из m строк по п чисел в каждой строке. В орнаменте повторяется следующий рисунок: первая строка состоит из фиолетовых четных чисел, вторая строка - из красных нечетных чисел, третья строка - из голубых четных чисел. Затем строки повторяются. Считайте, что орнамент поместится на экране. 5. (5 баллов) Задан двумерный массив, состоящий из 2 строк и n столбцов. В каждом столбце в первой строке указана длина прямоугольника, а во втором - его ширина, причём используются только две разные ширины. Напишите программу, рисующую два столбика прямоугольников разной ширины. Столбики располагаются вертикально и состоят из прямоугольников, поставленных друг на друга. Считайте, что рисунок полностью поместится на экране. p.s. помогите плиз. завтра сдавать

Отправлен: 31.01.2008, 19:28 Вопрос задал: Vint59 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Vint59! 1.Посмотрите вот эти статьи: Блок-схема Разработка алгоритма. Блок-схема. Структуры алгоритмов 2. Если какая-то часть многократно повторяется в программе, вместо нее используют процедуру/функцию. Подробно почитать можно здесь: http://sesia5.ru/blok/12/d8.htm 3. Программа в приложении. Удачи! Приложение: function check(x, y : real):boolean; begin if (y <= 2*x+2) and (y <= -2*x+2) and (y >= -2) then check := true else check := false; end; var x, y : real; begin Write('X='); ReadLn(x); Write('Y='); ReadLn(y); if check(x,y) then WriteLn('prinadlezhit') else WriteLn('ne prinadlezhit'); ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Специалист) Ответ отправлен: 31.01.2008, 22:51

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.70 от 17.01.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru