1) задано натуральное число n. составить программу для вычисления факториала n. 2) подсчитать количество четных отрицательных элементов в матрице размером мхn, элементы которой вводятся с клавиатуры. турбо !
Var F:real; N:integer; Begin Write('N = '); ReadLn(N); F:=1; For N:= 1 to N do F:=F*N; WriteLn(N,'! = ',F); End.
2)
Const M = 3; N = 4; Var A:array[1..M,1..N] of integer; i,j,k:integer; Begin k:=0; WriteLn('Введите массив(',M,',',N,'):'); For i:= 1 to M do For j:= 1 to N do Begin Read(A[i,j]); if (A[i,j] < 0)and(A[i,j] mod 2 = 0) then k:=k+1 End; WriteLn('k = ',k); End.
Для перевода в любую счислительную систему из десятичной нужно число делить на 2, 8 и 16 соответственно системам. Остаток при делении отмечаешь (если число делится нацело то отмечаешь остаток как ноль). Затем частное от первого деления снова делишь на 2, 8 или 16 соответственно системе счисления. Отмечаешь остаток. И так далее пока не останется в частном то, что уже нельзя делить. Отмечаешь последнее частное. А потом задом наперед (справа на лево) выписываешь последнее частное и за ним все остатки. Это и будет перевод числа в данную систему счисления. 2. a) b) 3. a) b) 4. a) --> 4 единицы в записи b) --> 2 единицы в записи. 5. a) --> 4 нуля в записи b) --> 2 нуля в записи
*.Что общего у пиктограммы и символа? В чем между ними различия? Общее - оба являются небольшими графическими объектами Различия - пиктограмма или иконка используется как растровый графический объект и страдает от маштабирования, но при этом может иметь много цветов. Обычно используется как подсказка на кнопку с некой командой (напр. сохранить, копировать, вставить) Символ является частью некого шрифта и потому нарисован в векторной графике, не искажается при маштабировании, но может быть лишь одного цвета. Может иметь несколько вариантов начертания - курсив, жирный и тд. Используется так же как текст В последнее время микрософт ввели новый шрифт для пиктограм, окончательно сроднив оба элемента.
*. Что такое знаковая система? Попытайтесь описать русский язык как знаковую систему? Опишите десятичную систему счисления как знаковую систему. Знаковая система - это система определения неких определенных знаков как определенные понятия. Язык - знаковая система сама по себе. Например есть обьект красно-желтый, сладкий, для него придумали название "яблоко". Доугой назвали "абрикос" и тд. Тут все легко, сложнее с абстрактными понятиями и действиями, чувствами. Еще примечательно что оперировать можно лишь внутри понятий определенных языком. Весьма трудно увидель то чего нет в языке. Это уже часть управления С десятичной системой думаю и так все ясно. Два яблока это "2", семь это "7". Просто так обозначили
*. К какому типу письменности (буквенно-звуковому, слоговому, идеографическому) относится письменность англичан; немцев; французов; испанцев? Каждый звук обозначается неким символом, потому буквенно-звуковомуНо не смотря на это не редко бывает что слово произносится не так как пишется. Особенно касается французкого. Так что впринцепе можно слово считать целым символом обозначающим определенное понятие
--> 4 единицы в записи
--> 2 единицы в записи.
--> 4 нуля в записи
--> 2 нуля в записи
Var
F:real;
N:integer;
Begin
Write('N = ');
ReadLn(N);
F:=1;
For N:= 1 to N do
F:=F*N;
WriteLn(N,'! = ',F);
End.
2)
Const
M = 3;
N = 4;
Var
A:array[1..M,1..N] of integer;
i,j,k:integer;
Begin
k:=0;
WriteLn('Введите массив(',M,',',N,'):');
For i:= 1 to M do
For j:= 1 to N do
Begin
Read(A[i,j]);
if (A[i,j] < 0)and(A[i,j] mod 2 = 0) then k:=k+1
End;
WriteLn('k = ',k);
End.