#include <iostream>
using namespace std;
bool is_simple_inner(int n, int d)
{
if (d == 1) return true;
if (n % d == 0) return false;
return is_simple_inner(n, d-1);
}
bool is_simple(int n)
{
if (n == 1)
return true;
return is_simple_inner(n, n-1);
}
int main()
{
int n;
cout << "input n: ";
cin >> n;
cout << "is simple? " << (is_simple(n) ? "yes" : "no") << endl;
return 0;
}
const
N = 4;
var
a: array [1..N, 1..N] of integer;
b: array [1..N] of boolean; {вспомогательный массив флагов}
i, j, k, m: integer;
f1, f2: boolean;
begin
{инициализация массива случайными числами}
for i:=1 to N do begin
for j:=1 to N do begin
a[i,j]:=random(3);
end;
end;
{печать массива на экран}
for i:=1 to N do begin
for j:=1 to N do begin
write(a[i, j]:2);
end;
writeln;
end;
writeln;
{ищем совпадения по строчно}
for i:=1 to N do begin
write('строка ', i, ': ');
for j:=1 to N do begin
{саму с собой не проверяем}
if i = j then continue;
{сбросим вспомогательный массив флагов}
for k:=1 to N do begin
b[k]:=false;
end;
f1:=true; {предположим i-я строка равна j-й}
for k:=1 to N do begin
f2:=false; {предположим k-й элемент i-той строки есть в j-й строке }
for m:=1 to N do begin
if (a[i, k] = a[j, m]) and (b[m] = false) then begin
b[m]:=true; {таки есть, отметим это флагом}
f2:=true; {и переходим к след. символу}
break;
end;
end;
if not f2 then begin {символ не найден!}
f1:=false; {строки не равны!}
break;
end;
end;
if f1 = true then begin {строки равны}
write(j:2); {отметим этот факт выводом на экран}
end;
end;
writeln;
end;
writeln;
end.
const
N = 10;
M = 20;
var
a: array [1..N, 1..M] of integer;
b: array [1..N] of integer;
i: integer;
j: integer;
sum: integer;
max: integer;
begin
{инициализируем массив случайными числами}
for i:=1 to N do begin
for j:=1 to M do begin
a[i, j]:=random(100);
end;
end;
{выведем его на экран}
for i:=1 to N do begin
for j:=1 to M do begin
write(a[i, j]:3);
end;
writeln;
end;
writeln;
sum:=0; {начальная инициализация суммы}
write('кол-во элементов кратных пяти: ');
for i:=1 to N do begin
{находим кол-во элементов кратных 5}
b[i]:=0;
for j:=1 to M do begin
if a[i, j] mod 5 = 0 then begin
b[i]:=b[i]+1;
end;
end;
write(b[i]:3); {вывод на экран}
end;
writeln;
max:=b[1];
for i:=2 to N do begin
if b[i] > max then begin
max:=b[i];
end;
end;
writeln('максимальное из них = ', max);
end.
const
N = 10;
M = 20;
var
a: array [1..N, 1..M] of integer;
i: integer;
j: integer;
sum: integer;
max: integer;
begin
{инициализируем массив случайными числами}
for i:=1 to N do begin
for j:=1 to M do begin
a[i, j]:=random(100);
end;
end;
{выведем его на экран}
for i:=1 to N do begin
for j:=1 to M do begin
write(a[i, j]:3);
end;
writeln;
end;
writeln;
sum:=0; {начальная инициализация суммы}
write('max: ');
for i:=1 to N do begin
{находим максимальное значение в строке}
max:=a[i, 1];
for j:=2 to M do begin
if a[i, j] > max then begin
max:=a[i, j];
end;
end;
write(max:3); {вывод на экран}
sum:=sum+max; {накапливаем сумму}
end;
writeln;
writeln('сумма максимальных элементов строк = ', sum);
end.
const
N = 50;
var
A: array [1..N] of integer;
m:=1; {новый размер массива}
f:=false; {признак повторяющихся нулей}
for i:=1 to N do begin
if A[i] = 0 then begin {если это ноль}
if f then begin {и до этого был ноль}
{ничего не делаем - идём дальше}
end else begin {до этого был НЕ ноль}
f:=true; {выставляем признак начала нулей}
A[m]:=A[i]; {один из них оставляем}
m:=m+1;
end;
end else begin {это НЕ ноль}
f:=false; {сбрасываем признак нуля}
A[m]:=A[i]; {заполняем массив}
m:=m+1;
end;
end;for i:=1 to m do begin
temp:=A[1];
for j:=1 to m-i do begin
A[j]:=A[j+1];
end;
A[m-i+1]:=temp;
end;
{прочитаем построчно}
assign(f, 'file'); { associate it }
reset(f); { open it }
while not eof(f) do { read it until it's done }
begin
readln(f, s);
writeln(s);
end;
close(f);
{допишем}
append(f);
writeln(f, 'new stroka');
close(f);
{переименуем}
rename(f, 'new_file');
{удалим}
erase(f);int get_sr(int j)
{
int sr = 0;
for (int i = 0; i < N; i++)
{
sr += C[j][i];
}
return sr / N;
}
int max_sr;
int nomer_max_sr;
int min_sr;
int nomer_min_sr;
nomer_max_sr = nomer_min_sr = 0;
max_sr = min_sr = get_sr(0);
for (int j=1; j < N; j++)
{
int sr = get_sr(j);
if (sr < min_sr)
{
min_sr = sr;
nomer_min_sr = j;
continue;
}
if (sr > max_sr)
{
max_sr = sr;
nomer_max_sr = j;
continue;
}
}
for (int i=0; i < N; i++)
{
int temp = C[nomer_min_sr][i];
C[nomer_min_sr][i] = C[nomer_max_sr][i];
C[nomer_max_sr][i] = temp;
}
...
{делим элементы К-ой строки на диагональный элемент}
for i:=1 to N do begin
if a[i,i] = 0 then begin
writeln('внимание! деление на 0!');
break;
end;
a[K, i]:=round(a[K, i]/a[i,i]); {округляем до целого}
end;
...
function is_russia(c: char): boolean;
begin
case c of
{лень перечислять все буквы...}
'a','б','в','г': is_russia:=true;
'А','Б','В','Г': is_russia:=true;
else is_russia:=false;
end;
end;
for i:=1 to length(s) do begin
if is_russia(s[i]) then begin
count:=count+1;
end;
end;
...
{инициализация счётчика}
count:=0;
{переберём все символы строки}
for i:=1 to length(s) do begin
if s[i] = '{' then begin
count:=count+1; {увеличим счётчик скобок}
continue;
end;
if s[i] = '}' then begin
count:=count-1;{уменьшим счётчик скобок}
continue;
end;
end;
...
#include<dos.h>
#include<graphics.h>
#include<conio.h>
main()
{
//инициализация графики
int gd = 0, gm;
initgraph(&gd, &gm,"c:\tc\bgi");
//зададим 6 значений описывающих наш треугольник
int x1 = 10;
int y1 = 10;
int x2 = 200;
int y2 = 30;
int x3 = 200;
int y3 = 200;
//рисуем исходный треугольник
line(x1, y1, x2, y2);
line(x2, y2, x3, y3);
line(x3, y3, x1, y1);
//находим ширину экрана
int x = getmaxx();
//рисуем разделяющую экран линию
line(x/2, 0, x/2, getmaxy());
// находим симетричные середине координаты x, y - не меняется
x1 = x - x1;
x2 = x - x2;
x3 = x - x3;
//рисуем симметричный треугльник
line(x1, y1, x2, y2);
line(x2, y2, x3, y3);
line(x3, y3, x1, y1);
getch(); //не выходим пока не нажмём кнопку
}
const
N = 10;
var
a: array [1..N] of integer;
i: integer;
x: integer;
found: boolean;
begin
{съэмулируем такой массив как у тебя в задании}
for i:=1 to N do a[i]:=5*i+random(5);
{выведем его на экран}
for i:=1 to N do write(a[i]:4);
writeln; {перевод строки}
write('input x ');
readln(x);
found:=false;
for i:=1 to N do begin
if a[i]=x then begin
found:=true;
break;
end;
end;
write('found ', x, '? ');
if found then writeln('yes') else writeln('no');
end.
var
s: string;
i, j: integer;
f: boolean;
begin
s:='122345.33'; {проверьте еще '11133'}
f:=true;
for i:=1 to length(s) do begin
if (ord(s[i]) < ord('0')) or (ord(s[i]) > ord('9')) then begin
f:=false;
break;
end;
end;
write('is ', s, ' integer? ');
if f then writeln('yes') else writeln('no');
end.
for i:=1 to 15 do a[i]:=random(200)-100;
first_minus:=0; for i:=1 to 15 do begin if a[i] < 0 then begin first_minus:=i; break; end; end;
if first_minus = 0 then writeln('нет отрицательного числа в массиве!');last_plus:=0; for i:=15 downto 1 do begin if a[i] > 0 then begin last_plus:=i; break; end; end;
if last_plus = 0 then writeln('нет положительного числа в массиве!');temp:=a[first_minus]; a[first_minus]:=a[last_plus]; a[last_plus]:=temp;
const
N = 10;
var
a: array [1..N] of integer;
i: integer;
first_minus: integer;
last_plus: integer;
temp: integer;
begin
{init random}
for i:=1 to N do a[i]:=random(100)-50;
write(' начальные данные: ');
for i:=1 to N do write(a[i]:4);
writeln;
first_minus := -1;
for i:=1 to N do begin
if a[i] < 0 then begin
first_minus:=i;
break;
end;
end;
if first_minus = -1 then begin
writeln('нет отрицательных элементов');
exit;
end;
last_plus := -1;
for i:=N downto 1 do begin
if (a[i] > 0) then begin
last_plus:=i;
break;
end;
end;
if last_plus = -1 then begin
writeln('нет положительных элементов');
exit;
end;
temp:=a[first_minus];
a[first_minus]:=a[last_plus];
a[last_plus]:=temp;
write('после перестановки: ');
for i:=1 to N do write(a[i]:4);
writeln;
end.начальные данные: 29 3 28 -7 -3 40 -44 46 6 -14 после перестановки: 29 3 28 6 -3 40 -44 46 -7 -14
#include <iostream>
using namespace std;
#define N 5
#defien M 6
int main()
{
int a[N][M];
int b[N];
/* тут задаёшь массив как ты делал */
/* получаем массив с отрицательными числами */
for (int j=0; j < M; j++)
{
for (int i=0; i < N; i++)
{
if (a[N-i-1][j] < 0)
{
b[j] = a[N-i-1][j];
break;
}
}
}
/* сортируем массив методом пузырька */
for (int i=0; i < N-1; i++)
{
for (int j=i+1; j < N; j++)
{
if (b[j] < b[i])
{
int puzyr = b[j];
b[j] = b[i];
b[i] = puzyr;
}
}
}
/* выводим на экран */
for (int i=0; i < N; i++)
{
cout << b[i] << endl;
}
return 0;
}
const
N = 20;
procedure insert(var a: array [1..N] of integer; var last: integer; pos: integer; value: integer);
var
i: integer;
begin
{смещаем относительно pos часть массива на одну позицию}
for i:=last downto pos do begin
a[i+1]:=a[i];
end;
a[pos]:=value; {теперь вставка нашего элемента}
last:=last+1; {изменяем значение индекса последнего элемента в нашем массиве}
end;
var
a: array [1..N] of integer;
i: integer;
last: integer;
begin
{предположим у нас в массиве 10 чисел}
last:=10;
{заполняем массив числами по порядку}
for i:=1 to last do a[i]:=i;
{выведем значения массива для контроля}
for i:=1 to N do write(a[i]:3);
writeln; {перевод строки}
{вставить '44' в массив 'a' на место второго элемента,
где последний элемент с индексом '10'}
insert(a, last, 2, 44);
{выведем значения массива для контроля}
for i:=1 to N do write(a[i]:3);
writeln; {перевод строки}
end.
В заданном тексте удалить лишние пробелы, оставляя только по одному пробелу между словами.
var
i: integer;
f: boolean;
s: string;
new_s: string;
begin
{инициализация переменных}
s:='More protests are expected in Tehran after the main presidential challenger urges supporters to observe a day of mourning.';
new_s:='';
f:=false; {флаг который говорит о том что пробелы начались}
for i:=1 to length(s) do begin
if s[i] = ' ' then begin
if f then begin
{ничего не делаем}
end else begin
f:=true; {начались пробелы}
new_s:=new_s+s[i]; {один пробел все таки оставим}
end;
end else begin
if f then f:=false; {если был до этого пробел сбросим флаг}
new_s:=new_s+s[i];
end;
end;
writeln(new_s); {и вот результат}
end.
/* ctime example */
#include
#include
int main ()
{
time_t rawtime;
time ( &rawtime );
printf ( "The current local time is: %s", ctime (&rawtime) );
return 0;
}
var
f: text; {переменная описывающая входной текстовый файл}
s: string; {переменная под текущую строку}
i: integer; {переменная текущего символа строки}
delim: string; {здесь будем хранить набор пробельных символов}
j: integer; {переменная тукущего пробельного символа}
n_bukv: integer; {букв в строке}
n_slov: integer; {слов в строке}
is_delimiter: boolean; {признак пробельного символа}
is_slovo: boolean; {признак слова}
Begin
delim := ' ,.;:!?"''&'; {наши пробельные символы}
Assign(f, 'readme.txt'); {откроем файл}
Reset(f); {установим указатель считывания на начало файла}
Repeat
Readln(f, s); {прочитали строку из файла}
{инициализация данных}
is_slovo:=false;
n_bukv:=0;
n_slov:=0;
{определяем является ли текущий символ пробельным}
for i:=1 to Length(s) do begin
is_delimiter:=false; {сначала полагаем что это не пробельный символ}
for j:=1 to Length(delim) do begin
if delim[j] = s[i] then begin
is_delimiter:=true; {если текущая i-я буква пробельный символ - ставим флаг}
break; {и дальше не ищем}
end;
end;
if is_slovo then begin {если было слово}
if is_delimiter then begin {и встретился пробельный символ}
is_slovo:=false; {ставим флаг - признак того что слово закончилось}
end else begin {и это тоже буква}
n_bukv:=n_bukv+1; {увеличиваем счётчик букв строки}
end;
end else begin {до этого был пробельный символ}
if is_delimiter then begin {и это тоже пробельный}
{продолжается пробельный символ - идём дальше}
end else begin {появилась буква!}
n_bukv:=n_bukv+1; {увеличиваем колво букв строки}
n_slov:=n_slov+1; {увеличиваем кол-во слов строки}
is_slovo:=true; {и помечаем что это таки началось слово}
end;
end;
end;
if n_slov <> 0 then begin {если это была не пустая строка}
writeln(s); {печатаем саму строку}
{и результаты наших вычислений}
writeln('bukv=', n_bukv, ' slov=', n_slov, ' avg=', n_bukv div n_slov);
end;
until Eof(f); {читаем пока не конец файла}
Close(f);
End.
DECLARE SUB BufInput (StringVar$, Limit%)
'NOTE: DECLARE не поддерживается Microsoft
' Quick Basic версии 3.0 или более ранней версией и может быть удалено
CLS
Limit% = 10 ' Число символов для ввода
' приглашение для ввода строки
LOCATE 10, 5
PRINT "Введите строку из 10 символов: ";
COLOR 0, 7: PRINT SPACE$(Limit%)
LOCATE 10, 46
' ввести строку в буффер
CALL BufInput(a$, Limit%)
COLOR 7, 0
CLS
' вывести результат
LOCATE 10, 10
PRINT "Вы ввели: ";
COLOR 0, 7
PRINT a$
COLOR 7, 0
END
SUB BufInput (StringVar$, Limit%)
BackSp$ = CHR$(8)
Enter$ = CHR$(13)
Length% = 0
' Цикл ожидания ввода. ENTER завершает процедуру
WHILE char$ <> Enter$
char$ = INKEY$
IF char$ <> "" THEN
IF (Length% < Limit%) OR (char$ = BackSp$) THEN
SELECT CASE char$
CASE " " TO "~" ' Ввод только печатных символов
StringVar$ = StringVar$ + char$
PRINT char$;
Length% = Length% + 1
CASE BackSp$ ' если BackSpace - то удалять
IF Length% <> 0 THEN
Length% = Length% - 1
StringVar$ = LEFT$(StringVar$, Length%)
CurrX% = CSRLIN
CurrY% = POS(0) - 1
LOCATE CurrX%, CurrY%
PRINT " "
LOCATE CurrX%, CurrY%
END IF
END SELECT
ELSE
PLAY "o1AL32"
END IF
END IF
WEND
END SUB
#include <iostream>
using namespace std;
int main()
{
cout << "input decimal number: ";
int n;
cin >> n;
cout << "decimal: " << n << endl;
// печатаем двоичное число с предшевствующими нулями
cout << "binary : ";
for (int i=31; i>=0; i--)
{
int bit = ((n >> i) & 1);
cout << bit;
}
cout << endl;
return 0;
}
[boot loader]timeout=30default=multi(0)disk(0)rdisk(0)partition(1)\WINDOWS[operating systems]multi(0)disk(0)rdisk(0)partition(1)\WINDOWS="Microsoft Windows XP Professional RU" /execute /fastdetect
var
text: string;
i: integer;
count: integer;
slovo: string;
max_count: integer;
max_slovo: string;
c: char;
begin
{наш текст}
text := 'An emergency WHO meeting on swine flu prompts rumours a pandemic will be declared, as Hong Kong shuts primary schools.';
{проверяемый символ}
c:='e';
{начальное значение наших счётчиков}
slovo:='';
max_count:=0;
for i:=1 to length(text) do begin
if text[i] <> ' ' then begin
if text[i] = c then count:=count + 1;
slovo:=slovo+text[i];
end else begin
if count > max_count then begin
max_count:=count;
max_slovo:=slovo;
end;
count:=0;
slovo:='';
end;
end;
writeln('word "', max_slovo, '" has maximum(', max_count, ') of char "', c, '"');
end.
.8087
text segment byte
assume cs:text,ds:text
org 100h
begin:
; Форматируем
mov ax,1Ah ; 0666
call GetDecimalStr
; Выводим на печать
mov dx,offset DecNum
mov ah,09h
int 21h
ret
GetDecimalStr:
; Пусть в ax будет число, которое надо вывести как десятичное
; Форматируем его, результат записываем в строку
mov cx,10000 ; Начальный делитель
mov di,offset DecNum ; Адрес приемника
cld ; Флаг направления для команды stosb
@@GetDec:
xor dx,dx
div cx ; dx:ax / cx -> ax, остаток в dx
add al,'0' ; Приводим к ASCII
stosb ; Записываем в выходную строку
push dx ; Запоминаем остаток
xor dx,dx
mov ax,cx
mov cx,10
div cx ; Делим делитель на 10
mov cx,ax
pop ax ; Вспоминаем делимое
test cx,cx ; Делитель стал равен 0 ?
jnz @@GetDec
ret
DecNum db '??????',13,10,'$'
text ends
end begin
const
N = 10;
var
a: array [1..N] of integer;
i: integer;
imin: integer;
imax: integer;
begin
{заполняем случайными числами}
for i:=1 to N do a[i]:=random(100);
{печатаем на экран, то что мы имеем вначале}
write('before: ');
for i:=1 to N do write(a[i]:3);
writeln;
{начальные значения - просто предположим}
imax := 1;
imin := 1;
for i:=2 to N do begin
if a[i] < a[imin] then imin := i;
if a[i] > a[imax] then imax := i;
end;
{выводим то что мы нашли}
writeln('min is a[', imin, '] = ', a[imin]);
writeln('max is a[', imax, '] = ', a[imax]);
{обнуляем остальные елементы}
for i:=1 to N do if (i <> imin) and (i <> imax) then a[i]:=0;
{печатаем на экран результат}
write('after: ');
for i:=1 to N do write(a[i]:3);
writeln;
end.
const n = 3; { размерность матрицы }
type matr = array[1..n, 1..n] of longint;
procedure GetMatr(a:matr; var b:matr; m,i,j:integer);
{ Вычеркивание из матрицы строки и столбца }
var ki,kj,di,dj:integer;
begin
di:=0;
for ki:=1 to m-1 do
begin
if (ki=i) then di:=1;
dj:=0;
for kj:=1 to m-1 do
begin
if (kj=j) then dj:=1;
b[ki,kj]:=a[ki+di,kj+dj];
end;
end;
end;
Function Determinant(a: matr; n: integer) : longint;
{ Вычисление определителя матрицы }
var i,j,d,k:longint;
b:matr;
begin
d:=0; k:=1;
if (n<1) then
begin
writeln('Determinant: Cann''t run. N=',n); halt;
end;
if (n=1)
then d:=a[1,1]
else if (n=2)
then d:=a[1,1]*a[2,2]-a[2,1]*a[1,2]
else { n>2 }
for i:=1 to n do
begin
GetMatr(a,b,n,i,1);
{writeln('i=',i,' a[',i,',1]=',a[i,1]);
PrintMatr(b,n-1);}
d:=d+k*a[i,1]*Determinant(b,n-1);
k:=-k;
end;
Determinant:=d;
end;
var
a: matr;
b: array [1..n] of integer;
i, j, dt: longint;
temp: integer;
x: real;
begin
{ Заполнение матриц }
a[1, 1]:=2; a[2, 1]:= 5; a[3, 1]:=4; b[1]:=30;
a[1, 2]:=1; a[2, 2]:= 3; a[3, 2]:=2; b[2]:=150;
a[1, 3]:=2; a[2, 3]:= 10; a[3, 3]:=9; b[3]:=110;
{ Вычисление определителя }
dt := Determinant(a, n);
for i:=1 to n do begin
{меняем местами b с текущим стоблцом матрицы a}
for j:=1 to n do begin
temp := b[j];
b[j] := a[i, j];
a[i, j] := temp;
end;
x:=Determinant(a, n) / dt;
writeln('x(', i, ') = ', x:3:0); {поменяйте на нужный формат вывода}
{назад: меняем местами b с текущим стоблцом матрицы a}
for j:=1 to n do begin
temp := b[j];
b[j] := a[i, j];
a[i, j] := temp;
end;
end;
end.
void task()
{
unsigned int i;
int x;
int y;
int r;
printf("Input x: ");
scanf("%d", &x);
printf("Input y: ");
scanf("%d", &y);
if (y = 0)
{
r = 1;
}
else
{
r = x;
for (i = 1; i < y; i++)
{
r = r * x;
}
}
printf("x^y=%d\n", r);
}
const
X = 50;
var
a: array [0..X-1] of integer;
i: integer;
plus: integer;
minus: integer;
begin
{инициализируем массив случайными числами от -50 до 49}
for i:=0 to X-1 do a[i]:=random(100)-50;
{инициализируем начальное число счётчиков}
plus:=0;
minus:=0;
for i:=0 to X-1 do
if a[i] < 0
then
minus:=minus+1
else
plus:=plus+1;
if minus > plus then
writeln('отрицательных (', minus, ') больше чем положительных (', plus, ')')
else
writeln('положительных (', plus, ') больше чем отрицательных (', minus, ')');
end.
const
N = 5;
M = 6;
var
a: array [0..N-1, 0..M-1] of integer;
sum: array [0..N-1] of integer; {тут будут храниться суммы строк}
temp: array [0..M-1] of integer; {тут будем хранить }
i: integer;
j: integer;
k: integer;
begin
{инициалицируем массив случайными числами}
for i:=0 to N-1 do
for j:=0 to M-1 do
a[i, j] := random(100);
{подсчитываем суммы строк}
for i:=0 to N-1 do begin
sum[i] := 0; {сначала сумма равна нулю}
for j:=0 to M-1 do sum[i] := sum[i] + a[i, j];
end;
{выводим на экран начальные данные}
for i:=0 to N-1 do begin
for j:=0 to M-1 do write(a[i, j]:3);
writeln(': ', sum[i]:3);
end;
writeln;
{сортируем массив по суммам сетодом пузырька}
for i:=0 to N-1-1 do begin
for j:=i+1 to N-1 do begin
if sum[j] < sum[i] then begin
{меняем местами строки посредством temp - наш пузырёк}
for k:=0 to M-1 do temp[k] := a[i, k];
for k:=0 to M-1 do a[i, k] := a[j, k];
for k:=0 to M-1 do a[j, k] := temp[k];
{меняем местами суммы в массиве sum посредством k - лень заводить новую переменную}
k := sum[i];
sum[i] := sum[j];
sum[j] := k;
end;
end;
end;
{выводим на экран результат}
for i:=0 to N-1 do begin
for j:=0 to M-1 do write(a[i, j]:3);
writeln(': ', sum[i]:3);
end;
writeln;
end.
push AX
push BX
push CX
push DX
my_proc proc
; заполним регистры соотв. значениями
pop DX
pop CX
pop BX
; и вернём их назад, кроме DX
push BX
push CX
; тут будем сдвигать
mov AX, BX
; в CX уже значение счётчика
loop:
shl AX, 1
jnc loop
; и вместо DX теперь занёсем в стек AX
push AX
ret
my_proc endp
call my_proc
pop DX
pop CX
pop BX
pop AX
procedure init(var x: our_array_type);
var
i: integer;
begin
for i:=0 to N-1 do x[i] := random(100);
end;
function minimum(x: integer; y: integer) : integer;
begin
if x < y then minimum := x else minimum := y;
end;
while n < N*N do
begin
if h <> 0 then begin {горизонтальное движение}
if h > 0 then begin {прямо}
if (i + 1 > N - 1) or (A[i + 1, j] <> -1) then begin {вылезли за пределы матрицы или уже заполненое значением поле}
h := 0; v := +1; {меняем направление движения по часовой стрелке}
end;
end else begin {назад}
if (i - 1 < 0) or (A[i - 1, j] <> -1) then begin
h := 0; v := -1;
end;
end;
end else begin {вертикальное движение}
if v > 0 then begin {вниз}
if (j + 1 > N - 1) or (A[i, j + 1] <> -1) then begin
v := 0; h := -1;
end;
end else begin {вверх}
if (j - 1 < 0) or (A[i, j - 1] <> -1) then begin
v := 0; h := +1;
end;
end;
end;
A[i, j] := n;
i := i + h;
j := j + v;
n := n + 1;
end;
2. выделяем например то что хотим оставить
5. по пути заполним нужные поля (если надо конечно) и жмём Ok
По информатике задали задачку и дали образец листинга. Так на этот образец сам QBasic ругается... В чем ошибка? Он пишет, что Else без IF...
По информатике задали задачку и дали образец листинга. Так на этот образец сам QBasic ругается... В чем ошибка? Он пишет, что Else без IF...
Input "U=", u
if u<5 then i=0.55*u+3.75
else if u<7 then i=-0.1*u+7
else if u<11 then i=-1.05*u+13.65
else if u<13 then i=-0.4*u+6.2
else i=0.5*u-5.5
End if
Print "I=",i
mov al, 1010b
shl al, 1
inc al
mov al, 1010b ;инициализируем al нашим числом
mov ah, al ;сохраним значение al в ah
mov cx, 0 ;обнуляем счётчик
; подсчитываем кол-во значащих разрядов в нашем числе путём сдвига
m1:
shr al, 1
jz m2 ; если флаг ZF выставлен - то значение al = 0, следовательно выходим
inc cx
jmp m1
m2:
inc cx ; увеличим ещё на один - чтобы единичка стала красной ;-)
; теперь двигаем на cx-раз 1 влево
m3:
mov al, 1
shl al, 1
dec cx
jnz m3
; тут думается что al = 10000b
; тут OR-им, т.е. накладывает нашу единичку
or al, ah
; тут подразумеваем что al уже в виде 11010b
if f < a then begin
if f < s then begin
writeln('f = ', f);
end;
end else begin
if a < s then begin
writeln('a = ', a);
end else begin
writeln('s = ', s);
end;
end
var max_counter: integer;
begin counter := 1; max_counter := 1; ...
if counter > max_counter then max_counter := counter
var
n: integer;
begin
for n:=1000 to 9999 do
begin
{тут что-то делать с n-тым числом}
end;
end.
for i:=0 to 9 do
begin
if counters[i] >2 then writeln(...);
end;
