сервис вопросов и ответов1. напишите подробный комментарий к каждой строке 2. Ответьте на вопрос: «Какую задачу решает
5-9 класс|
|
этот алгоритм?».
Var N, I, J, K, Pr : Integer; A : Array [1..30] Of Integer;
Begin
Write('Введите количество элементов: '); ReadLn(N);
For I := 1 To N Do
Begin
Write('Введите A[', I, '] '); Readln(A[I]);
End; WriteLn;
For I := 1 To N - 1 Do
Begin
K := I;
For J := I + 1 To N Do If A[J] <= A[K] Then K := J;
Pr := A[I]; A[I] := A[K]; A[K] := Pr;
End;
For I := 1 To N Do Write(A[I], ' ');
End.
антон99
07 окт. 2014 г., 13:19:54 (9 лет назад)
Deny1995
07 окт. 2014 г., 14:50:40 (9 лет назад)
Var {начало объявления переменных}
N, I, J, K, Pr : Integer; {переменные целочисленного типа}
A : Array [1..30] Of Integer; {массив целочисленного типа}
Begin {нанало кода знаменуется ключевым словом begin}
Write('Введите количество элементов: '); {вывод строки в скобках на экран с переходом на следующую строку}
ReadLn(N); {считывание значения с клавиатуры}
For I := 1 To N Do {цикл с шагом 1}
Begin {код цикла}
Write('Введите A[', I, '] '); {вывод строки без переноса}
Readln(A[I]); {считывание значения с клавиатуры}
End;{конец кода цикла}
WriteLn; {переход на следующую строку}
For I := 1 To N - 1 Do {цикл с шагом 1}
Begin {код цикла}
K := I; {присваивание значения одной переменной к другой}
For J := I + 1 To N Do {цикл с шагом 1}
If A[J] <= A[K] Then {оператор условия}
K := J;{присваивание значения одной переменной к другой}
Pr := A[I];{присваивание значения одной переменной к ячейке массива}
A[I] := A[K];{присваивание значения одной ячейки массива к другой}
A[K] := Pr;{присваивание значения ячейки массива к переменной}
End;{конец кода цикла}
For I := 1 To N Do {цикл с шагом 1}
Write(A[I], ' '); {вывод значения ячейки i массива A(в строчку)}
End.{конец кода}
Ответить
Другие вопросы из категории
Читайте также
1)Текст занимает 200 страниц,в каждой строке 300 символов.Мощность алфавита - 128 символов.Сколько необходимо памяти в
Мб?
2)Сообщение состоит из 3-ех страниц и занимает в памяти 12 Кбайта,на каждой странице по 32 строки,в каждой строке по 256 символов.Какая мощность используемого алфавита?
ОЧЕНЬ ПРОШУ ПОМОЧЬ!СРОЧНО НУЖНО!
Реферат, набранный на компьютере, содержит 16 страниц текста и помимо этого еще 32 рисунка. На каждой текстовой странице 50 строк, в каждой строке 64
символа. Для кодирования символов используется кодировка Unicode, при которой каждый символ кодируется 16 битами. Определите информационный объём всего реферата, если информационный объем каждого рисунка составляет 6240 байт.
Объясните как решать
помогите ответить на вопросы пожалуйста буду очень благодарна:* 1)сколько цветов будет содержать палитра,если каждый базовый цвет кодировать
двумя битами?
2)что такое электронные словари?
3)какие дополнительные проблемы возникают при переводе текстов?
4)что отличает систему перевода текста от электронного словаря?
5)почему отсканированный текст нельзя сразу обрабатывать текстовым редактором?
6)что такое распознавание текста?
1)Статья, набранная на комп., содержит 16 страниц, на каждой странице 40 строк, а в каждой строке 64 символа. Определите информационный объём статьи,
если документ представлен в кодировке КОИ-8(каждый символ занимает 8 бит памяти)
2) Сколько памяти( в Кбайтах) требуется для сохранения 64-цветного изображения размером 32*64 пикселей.
3)Сообщение, записанное буквами 64-символьного алфавита, содержит 480 символов. Какое кол-во инф. в байтах оно несёт?
4) Информационное сообщение объемом 2000 битов состоит из 250 символов. Какова мощность алфавита, с помощью которого оно записано?
Даже если что то не знаете напишите хотябы свои предположения, или только что можете решить.
Напишите комментарии на каждую строку Program line; uses graphABC,CRT; Var x0,y0,x,y:Integer; Begin X0:=300;
y:=400;
x:=20;
Writeln('Введите координату точки Y0');
Readln(Y0);_________________________________________________________
Moveto(x0,y0);______________________________________________________
while x<610 Do
Begin
line(x0,y0,x,y);______________________________________________________
x:=x+10;___________________________________________________________
End;
End.
Укажите тип цикла используемое в программе _________________
Вы находитесь на странице вопроса "1. напишите подробный комментарий к каждой строке 2. Ответьте на вопрос: «Какую задачу решает", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.