1. Что такое программа?
1) Список команд
2) Запись алгоритма на языке программирования
3) Другое название приложения
2. Почему язык Паскаль является универсальным языком программирования?
1) Он может применяться для решения разных задач
2) Он совместим с любой операционной системой
3) Он используется в разных странах
3. Как в языке Паскаль называются цепочки символов, рассматриваемых, как
единые смысловые элементы с фиксированным значением?
1) Зарезервированные имена
2) Служебные символы
3) Служебные слова
4. С каких символов в языке Паскаль могут начинаться имена?
1) С буквы или цифры
2) С буквы или символа подчёркивания
3) С цифры или символа подчёркивания
5. Каково значение служебного слова var?
1) Вариант
2) Повторять
3) переменная
6. Какой тип данных в языке Паскаль обозначается как char?
1) Символьный
2) Строковый
3) вещественный
7. Какой знак ставится после имени программы?
1) Точка
2) Точка с запятой
3) Знак подчёркивания
8. Какой общий вид имеет в языке Паскаль оператор присваивания?
1) <Имя переменной>=<Выражение>
2) <Имя переменной>:=<Выражение>
3) <Имя переменной>==<Выражение>
9. Какой оператор используется для вывода данных на экран?
1) Write
2) Do
3) begin
10. Для чего используется оператор read?
1) Для вывода на экран полного текста программы
2) Для ввода информации с клавиатуры
3) Для открытия файла справки
//Pascal
const m = 1000
var
arr: array[1..m] of integer;
n,i, j, k: integer;
begin
readln(n);
write ('Исходный массив: ');
for i := 1 to n do begin
readln(arr[i]);
end;
//сортировка методом пузырька
for i := 1 to n-1 do
for j := 1 to n-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to n do
write (arr[i]:4);
end.
Алгоритм сортировки на классическом языке программирования С
# define SWAP(A,B) {A=A^B;B=A^B;A=A^B;}
void bubblesort(int A[], int n)
{
int i, j;
for(i = n-1 ; i > 0 ; i--)
{ for(j = 0 ; j < i ; j++)
{
if( A[j] > A[j+1] ) SWAP(A[j],A[j+1]);
}
}
}
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969