Заполните два массива n [1..15] и m [1..15] случайными числами в диапозоне от -15 до 20ю подсчитайте в каждом ммассиве количество положительных и отрицательных значений. программа должна быть на pascale, желательно на завтра.
Program pr; uses crt; Var N,M:array[1..15] of integer; i,kNp,kMp,kNo,kMo:integer; Begin kNp:=0; kMp:=0; kNo:=0; kMo:=0; Writeln('mas(N)'); for i:=1 to 15 do Begin N[i]:=random(36)-15; Write(N[i],';') end; Writeln; Writeln('mas(M)'); for i:=1 to 15 do Begin M[i]:=random(36)-15; Write(M[i],';') end;
for i:=1 to 15 do Begin if N[i]>=0 then kNp:=kNp+1 else kNo:=kNo+1; if M[i]>=0 then kMp:=kMp+1 else kMo:=kMo+1; end; Writeln; Writeln('Кол-во положительных массива N=',kNp); Writeln('Кол-во отрицательных массива N=',kNo); Writeln('Кол-во положительных массива M=',kMp); Writeln('Кол-во отрицательных массива M=',kMo); readln; end.
1.В Древней Индии писали на камне и листьях пальмы. Листья пальмы высушивали и нарезали длинными, узкими пластинами. 2.На большей части территории Индии чернила получали из черной сажи или древесного угля, а писали тростниковым пером. 3.Примерно как традиционная тибетская (от Индии и заимствованная) . Исконно индийский писчий материал - пальмовые листья. Книги представляли собой стопку прямоугольных листов (формата нашей закладки) не скреплённые, и укладывались в футляр. Свитки появились позднее. 4.арабские цифры 5.Арабские цифры возникли в Индии, не позднее V века. 6.Китайская письменность, как это ни странно, больше имеет сходство с письменностью острова Юкотан - индейской 7.В КНР стандартом грамотности считается освоение 1500 знаков (в сельской местности) или 2000 знаков (в городах, а также для рабочих и служащих на селе). 3000 иероглифов достаточно для чтения газет и неспециализированных журналов. Большие однотомные толковые или двуязычные словари включают, как правило, 6000—8000 иероглифов. Среди этого объёма уже немало весьма редко используемых иероглифов, например, используемые в названиях ритуальных предметов древности или медикаментов традиционной китайской медицины. 8.Традиционно китайцы писали сверху вниз, а столбцы шли справа налево. В некоторых случаях (например, на вывесках) использовалось горизонтальное письмо справа налево. Позже стал использоваться также «европейский письма — горизонтально слева направо. 9.В Древнем Китае было налажено изготовление бамбуковых книг. Тонко выструганные пластинки бамбука скреплялись вместе металлическими скобами в виде современной раздвижной оконной шторы. На такой книге-шторке, так же как и на изобретенном позднее шелке, китайцы рисовали свои иероглифы кисточками, используя для этого тушь. 10.Современные ученые, занимающиеся исследованиями в области косметологии, обнаружили, что аминокислоты, входящие в состав протеинов шелка, оказывают эффективное увлажняющее действие и делают кожу гладкой и упругой, устраняют ощущение стянутости, разглаживают мелкие морщинки, создают непередаваемое ощущение нежности. Эти свойства нашли широкое применение в производстве лечебной и декоративной косметики. Наиболее широко применяются три вида производных шелка: аминокислоты шелка, гидролизованный протеин шелка и шелковый порошок или пудра. 11.Китайские летописи сообщают, что бумага была изобретена в 105 году н. э. Цай Лунем (подробнее см. четыре великих изобретения) . Однако в 1957 году в пещере Баоця северной провинции Китая Шаньси обнаружена гробница, где были найдены обрывки листов бумаги. Бумагу исследовали и установили, что она была изготовлена во II веке до нашей эры. 12.Примерно в 105 году н. э. , китайский сановник Цай Лунь, изобрел первый промышленный изготовления бумаги. Вначале, приготавливалась волокнистая масса, которая зачерпывалась специальной формой-сеткой. Вода, которая находилась в этой массе, просачивалась сквозь отверстия в сетке, оставляя лишь ровный слой будущей бумаги. В качестве материала для бумажной массы, использовалась измельченная и сваренная в чанах с клейким веществом древесина и другой растительный материал. 13.Технологическая схема производства бумаги (картона) состоит из следующих процессов: приготовления бумажной массы, включающего операции по массному размолу волокон, проклейке, наполнению и крашению массы; аккумулирования бумажной массы; разбавления массы водой до необходимой концентрации; очистки от посторонних включений и узелков; изготовления бумаги (картона) на бумагоделательной (картоноделательной) машине, включающего отлив бумажного (картонного) листа, его прессование, сушку, отделку и намотку в рулон; отделки и переработки бумаги (картона) , включающих суперкаландрирование, перемотку, резку и упаковку. 14.Потому что китайцы держали в строжайшей тайне секреты производства бумаги, шелка и пр.Секрет китайской бумаги, через арабов, попал в Европу.
//перевод числа из системы исчисления //с основанием от 2 до 9 в десятичную #include <iostream> #include <cstdlib> #include <cstring> using namespace std; int pss(char sr[80], int i, int osn) { static int s; char ch=sr[i-1]; if (i==strlen(sr)) s=1; s=s*osn; if (1<i) return (atoi(&ch)+pss(sr,i-1,osn)*osn); else return (atoi(&ch)); } int main(int argc, char** argv) { int osn=0; char st[80]; cout<<" задайте основание (от 2 до 9) "; cin>>osn; cout<<endl; cout<<"число: "; cin>>st; cout<<endl; cout<<"в десятичной системе: " <<pss(st,strlen(st),osn); return(0); }
Program pr;
uses crt;
Var N,M:array[1..15] of integer;
i,kNp,kMp,kNo,kMo:integer;
Begin
kNp:=0;
kMp:=0;
kNo:=0;
kMo:=0;
Writeln('mas(N)');
for i:=1 to 15 do Begin N[i]:=random(36)-15; Write(N[i],';') end;
Writeln;
Writeln('mas(M)');
for i:=1 to 15 do Begin M[i]:=random(36)-15; Write(M[i],';') end;
for i:=1 to 15 do Begin
if N[i]>=0 then kNp:=kNp+1
else kNo:=kNo+1;
if M[i]>=0 then kMp:=kMp+1
else kMo:=kMo+1;
end;
Writeln;
Writeln('Кол-во положительных массива N=',kNp);
Writeln('Кол-во отрицательных массива N=',kNo);
Writeln('Кол-во положительных массива M=',kMp);
Writeln('Кол-во отрицательных массива M=',kMo);
readln;
end.