Embedded Files
Пример
Пример
Составить программу, которая формирует массив из 12 случайных целых чисел, при- надлежащих промежутку [–20, 20], заменяет отрицательные числа на –1 и выводит значения элементов массива до и после замены.
//Для PascalABC, PascalABC Net
//Для PascalABC, PascalABC Net
Program Primer8_3;
Var A: array[1..12] of integer;
B: array[1..12] of real;
i: integer;
Begin
for i:=1 to 12 do begin
A[i]:=random(41)-20; {Формирование массива}
write (A[i]:8); {Вывод элементов исходного массива}
end;
writeln;
{Замена отрицательных чисел на –1 и запись их в массив B}
for i:=1 to 12 do begin
if A[i]<0 then B[i]:=-1
else B[i] := A[i];
write (B[i]:8:2); {Вывод элементов полученного массива}
end;
End.
//Только для PascalABC Net
//Только для PascalABC Net
program Primer8_3;
var A: array[1..12] of integer;
B: array[1..12] of real;
i: integer;
begin
for i := 1 to 12 do
A[i] := random(41) - 20; {Формирование массива}
print(a); {Вывод элементов исходного массива}
writeln;
{Замена отрицательных чисел на –1 и запись их в массив B}
for i := 1 to 12 do
if A[i] < 0 then B[i] := -1
else B[i] := A[i];
print(b) {Вывод элементов полученного массива}
end.
Задания
Задания
Задание 1
Задание 1
Скопировать текст, представленной ниже программы 1 в среду PascalABC Net.
Отформатировать ее до рабочего состояния.
Доработать программу, добившись решения задачи.
Программа 1
Программа 1
ProgramArray16;usesPT4;vara:array[1..100]ofreal;n:integer;beginTask('Array16');read(n);forvari:=1tondiv2dobeginwrite(a[i],a[n-i+1]);end;end.
Сохраните программу в файле с именем по образцу 9Б_ФИ_Prg_8_1.pas.
Задание 2
Задание 2
Задача 1
Задача 1
Составьте программу, которая формирует массив из пятнадцати случайных целых чисел от –20 до 20 и:
а) отрицательные числа возводит в квадрат;
б) четные числа делит на два, а нечетные — умножает на три;
в) увеличивает в 2 раза числа, кратные 5, а остальные уменьшает в 2 раза;
г) меняет местами значения первого и последнего элементов массива.
На экран выводятся исходные и преобразованные значения.
При решении каждого пункта
Google Sites
Report abuse