Проверьте программы представленных задач, исправьте ошибки. 1. Напишите программу, которая выводит на экран 10 строк следующего содержания: «**++==++**».
Решение:
program for1;
var a:integer
begin
for i:=1 to 5 do
writeln('**++==++**');
end.

2. Напишите программу вывода квадратов первых десяти натуральных чисел.
Решение:
program for2;
var i, x: integer;
begin
for i:=1 to 10
begin
x:=x*x*x;
writeln( ' x ' );
end;
end.

3. Напишите программу нахождения суммы 1 + 1/2 + 1/3 +...(N слагаемых).
Решение:
program for3;
var i, n: integer;
s: string;
begin
write('n='); readln(n);
s:=10;
i:=1 to n
s:=s+1/i;
writeln('s=', s);
end.

//на vs 2010 решается так, в других средах разработки может нужно к заголовкам добавить .h или убрать подключение пространства имен std : (console application)

 

#include < iostream> #include < stdlib.h> #include < time.h> #include < conio.h> using namespace std; void print(int m, int ** matr)  // функция печати матрицы на экран{ for(int i = 0; i< m; i++) { for(int j = 0; j< m; j++) { cout.width(4); cout< < matr[i][j]; } cout< < endl; }}void search_and_print(int x, int **m) //функция поиска элементов с их сортировкой и выводом на экран{ int razmer = ((x*x) - x)/2; int *mas = new int [razmer]; int y = x - 1; float srednee = 0; int index = 0; for (int j = 0; j< y; j++) { for(int i = 0; i< (x-1); i++ ) { mas[index] = m[i][j]; index++; } y--; } for(int i = 0; i< (razmer-1); i++) //сортировка методом выбора. x-1 раз ищем наименьший элемент. { //принимаем за наименьший первый элемент из расматриваемых: int min = i; //поиск минимального элемента из : for(int j = i+1; j< razmer; j++) { //если нашли меньший элемент, запминаем его номер: if(mas[j]< mas[min]) min = j; } //обмен элементов: int a = mas[i]; mas[i] = mas[min]; mas[min] = a; } cout< < "\nuporyado4enniy massiv: \n"; //вывод и суммирование элементов отсортированного массива для среднего for(int i = 0; i< razmer; i++) { cout< < mas[i]< < ends; srednee += mas[i]; } //поиск арифметичесгоко реднего} srednee = srednee/razmer; cout< < "\nsrednee: "< < srednee; delete [] mas; }void main(){srand ((unsigned)time(null)); int x; cout< < "vveditrazmer matritsi po gorizontaly i po vertikaly: \n"; cin> > x; int** matr; matr = new int* [x];     //безопасный способ for(int i = 0; i< x; i++)  // динамического {  matr[i] = new int[x]; // двумерного массива. for(int j =0; j< x; j++)  //заполняем матрицу {      matr[i][j] = rand()%10-5; } //числами от -5 до 5 } cout< < "ishodnaya matritsa: \n"; print(x,matr); search_and_print(x,matr); _getch(); delete [] matr; }

1) ра, ии, та (тэ) и ро (эр). в египетском языке слово «рот» звучало как «эр», и они стали иероглифом обозначать не только слово «рот», но и согласный звук «р». точно так же иероглиф «хлеб» употреблялся для обозначения звука «т», потому что по-египетски «хлеб» — «тэ», и так далее. 2) в египетском письме более семисот иероглифов. 3) в древнем египте наряду со значками , обозначавшими целые понятия и слова, существовали и другие знаки, обозначавшие слоги и даже отдельные звуки . потребность в таких знаках очевидна, так как не все можно выразить в виде изображений (прежде всего, это касается личных имен). в этих случаях египтяне превращали слова иероглифы в буквы иероглифы, из которых и составлялись слова, подлежащие передаче на письме согласно их звучанию. например иероглиф «хт» — изображение дома — сделался двухбуквенным иероглифом, обозначающим звук [хт], иероглиф «мн» — изображение шахматной доски — стал иероглифом, обозначающим два звука [мн] и т.д. на первых порах значение фонетических иероглифов было , но со временем их роль все более возрастала, и в последние века существования египетской письменности значение фонетических иероглифов стало господствующим. но к чисто фонографическому письму (то есть такому, где каждый знак обозначает отдельный звук или букву) египтяне так и не перешли . это важное усовершенствование было сделано в письме других народов. 4) вообще-то, само понятие иероглиф не подразумевает передачу каких либо букв или звуков, они "значение" слова. это не алфавит или азбука, а набор знаков для записи определенных понятий, т.е. слов целиком хотя, в иероглифических системах существуют знаки для передачи именно одной буквы или слога 5) лингвисты того времени не знали как могут звучать какой то конкретный иероглиф и является ли он "буквой" или же обозначает целое понятие. после находки розеттского камня, с текстами на 3х языках (древнеегип-м, египетском (демотическое письмо) и древнегреческом) шампальон начал изучать его и сопоставлять тексты друг другу. отыскав имена правителей (александра, клеопатры выяснил, что иероглифы являются как бы "буквами", т.е. имеют какое то чтение, пишутся в основном согласные, хотя некоторые гласные (а, и также присутствуют. некоторые иероглифы читаются одним звуком, а некоторые двумя или тремя 6) египтяне, как и некоторые другие народы, не писали гласных. поэтому после слова, написанного звуковыми знаками, ставился определитель - знак, поясняющий читающему общее значение слова. например, иероглиф, напоминающий "яму с водой", обозначал в одном случае слово “колодец”, в другом – сочетание двух согласных “хм”, а в третьем тот же знак не читался, а лишь подсказывал, что речь в тексте идет о воде - прудах, болотах и т.п.

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

 

или

 

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.