06.09.2013р.
Типи моделювання.
9 апреля 2013
Для самостоятельной работы:
Задача : Дано 100 целых чисел. Распечатать их в обратном порядке по 6 чисел в строке.
9 апреля 2013
Для самостоятельной работы:
Задача : Дано 100 целых чисел. Распечатать их в обратном порядке по 6 чисел в строке.
решения задачи с использованием массивов Паскаля:
ВідповістиВидалити- даны два n -мерных вектора. Найти сумму этих векторов.
1
Видалити2
for i:=1 to n do
a[i]:=x[i]+y[i];
не правильно
ВидалитиАвтор видалив цей коментар.
ВидалитиProgram summa;
ВидалитиVar
a, b, c: array [1..100] of integer;
I, n: byte;
Begin
Write (‘введите размерность массивов:’);
Readln(n);
For i:=1 to n do
Readln (a[i]); { ввод массива a}
For i:=1 to n do
Readln (b[i]); { ввод массива b}
For i:=1 to n do
C[i]:=a[i]+b[i]; { вычисление суммы массивов }
For i:=1 to n do
write (c[i],’ ‘); { вывод массива с }
end.
Галушко Влад 11-а. шк 87
Задача:
ВідповістиВидалитиВ однородном массиве, состаящем из N вещественных элементов, найти максимальный по модулю элемент массива.
const n = 50;
ВідповістиВидалитиvar
arr: array[1..n] of real;
max: real;
i,j,k: byte;
begin
randomize;
max := 0;
for i:=1 to n do begin
arr[i] := random()-0.50;
write(arr[i]:7:2);
if abs(arr[i]) > abs(max) then
max := arr[i]
end;
writeln;
writeln(max:7:2);
readln;
end.
Задача № 2 снята с обсуждения
ВидалитиЗадача № 3:
ВідповістиВидалитиКакая сумма элементов массива больше – с первого до элемента с номером К или от элемента с номером К+1 до последнего.
подсказка:Алгоритм решения задачи:
Ввод элементов массива.
Ввод значения k.
Подсчет суммы элементов массива от 1-го до элемента с номером k включительно.
Подсчет суммы элементов массива от элемента с индексом k+1 до последнего.
Сравнение сумм.
const N = 10;
ВідповістиВидалитиvar arr: array[1..N] of integer;
i, k: byte;
sum1, sum2: integer;
begin
writeln('Enter the ten elements of the array:');
for i:=1 to N do {1}
read(arr[i]);
write('k = '); {2}
readln(k);
sum1 := 0;
for i:=1 to k do {3}
sum1 := sum1 + arr[i];
sum2 := 0;
for i:=k+1 to N do {4}
sum2 := sum2 + arr[i];
if sum1 > sum2 then {5}
writeln('sum1 > sum2')
else
if sum1 < sum2 then
writeln('sum1 < sum2')
else
writeln('sum1 = sum2');
readln;
end.
const N = 10;
Видалитиvar arr: array[1..N] of integer;
i, k: byte;
sum1, sum2: integer;
begin
writeln('Enter the ten elements of the array:');
for i:=1 to N do {1}
read(arr[i]);
write('k = '); {2}
readln(k);
sum1 := 0;
for i:=1 to k do {3}
sum1 := sum1 + arr[i];
sum2 := 0;
for i:=k+1 to N do {4}
sum2 := sum2 + arr[i];
if sum1 > sum2 then {5}
writeln('sum1 > sum2')
else
if sum1 < sum2 then
writeln('sum1 < sum2')
else
writeln('sum1 = sum2');
readln;
end.
Света , эта задача уже решена Зиной
Видалитиconst N = 10;
Видалитиvar arr: array[1..N] of integer;
i, k: byte;
sum1, sum2: integer;
begin
writeln('Enter the ten elements of the array:');
for i:=1 to N do {1}
read(arr[i]);
write('k = '); {2}
readln(k);
sum1 := 0;
for i:=1 to k do {3}
sum1 := sum1 + arr[i];
sum2 := 0;
for i:=k+1 to N do {4}
sum2 := sum2 + arr[i];
if sum1 > sum2 then {5}
writeln('sum1 > sum2')
else
if sum1 < sum2 then
writeln('sum1 < sum2')
else
writeln('sum1 = sum2');
readln;
end.
const N = 10;
Видалитиvar arr: array[1..N] of integer;
i, k: byte;
sum1, sum2: integer;
begin
writeln('Enter the ten elements of the array:');
for i:=1 to N do {1}
read(arr[i]);
write('k = '); {2}
readln(k);
sum1 := 0;
for i:=1 to k do {3}
sum1 := sum1 + arr[i];
sum2 := 0;
for i:=k+1 to N do {4}
sum2 := sum2 + arr[i];
if sum1 > sum2 then {5}
writeln('sum1 > sum2')
else
if sum1 < sum2 then
writeln('sum1 < sum2')
else
writeln('sum1 = sum2');
readln;
end.
Var
ВідповістиВидалитиA : array [1..10] of integer ;
I : byte ; {переменная I вводится как индекс массива}
Begin
For i:=1 to 10 do
Readln (a[i]); { ввод i- го элемента производится с клавиатуры }
это о чем?
ВидалитиProgram summa;
ВидалитиVar
a, b, c: array [1..100] of integer;
I, n: byte;
Begin
Write (‘введите размерность массивов:’);
Readln(n);
For i:=1 to n do
Readln (a[i]); { ввод массива a}
For i:=1 to n do
Readln (b[i]); { ввод массива b}
For i:=1 to n do
C[i]:=a[i]+b[i]; { вычисление суммы массивов }
For i:=1 to n do
write (c[i],’ ‘); { вывод массива с }
end.
http://justenglishh.blogspot.com/
ВідповістиВидалитиhttp://iloveukraine.blogspot.com
ВідповістиВидалитиhttp://morgan-tra-ta-ta.blogspot.com/
ВідповістиВидалитиhttp://raspberry374.blogspot.com/
ВідповістиВидалити