Ru-Board.club
← Вернуться в раздел «Прикладное программирование»

» помогите с задачей pascal abc.net

Автор: Roys51
Дата сообщения: 18.03.2012 17:17
вобщем дан массив из 99 случайных элементов, найти наибольшее и убрать его из массива, вывести новый массив
я почти разобрался...у меня почему то не корректно выводит номер элемента (


Код:
var
a: array of integer;
max,i,num:integer;
begin
setlength(a,100);
writeln('Элементы массива: ');
for i:=1 to 99 do
begin
a[i]:=Random(100);
write(a[i],' ');
end;
max:=a[1]; num:=1;
for i:=1 to 99 do
begin
if a[i]>max then max:=a[i]; num:=i;
end;
writeln;
writeln('максимальный элемент массива А[',num,'] = ',max);
Автор: A1exSun
Дата сообщения: 18.03.2012 17:26
Roys51

Код: if a[i]>max then begin
max:=a[i];
num:=i
end;
Автор: Roys51
Дата сообщения: 18.03.2012 17:26
ой блин хД разобрался...всем спасибо

Добавлено:

Код: for i:=1 to 99 do
if a[i]>max then
begin
max:=a[i]; num:=i;
end;
Автор: krew
Дата сообщения: 15.03.2013 12:53
Помогите с задачкой:

Написать программу вывода на экран 2-значных чисел, кратных 7.
С использованием циклов: 1.For, 2.While и 3.Repeat.
Автор: miwa
Дата сообщения: 15.03.2013 20:36
krew
Задачка на две строчки:


Код: var i: integer;
begin
for i := 10 to 99 do
if (i mod 7 = 0) then writeln(i, ' кратно 7');
end.
Автор: krew
Дата сообщения: 16.03.2013 11:58
miwa

Проверил. Работает. Класс


Цитата:
С остальными как - тоже написать, или сам по аналогии попробуешь?


Если не сложно, напишите пожалуйста.

Добавлено:
Вот еще вот такая, буду очень благодарен.

Вывести на экран в 2 столбика список чисел от 1 до N.
Автор: Corsairs
Дата сообщения: 16.03.2013 19:29
Да уж...

Это типа вот так:
1 2
3 4
5 6
надо сделать?


Код: for i:=1 to n do
begin
write(i);
if i mod 2 = 1
then
write(' ')
else
writeln;
end;
Автор: miwa
Дата сообщения: 16.03.2013 21:56
krew

Цитата:
Если не сложно, напишите пожалуйста.

Написать не сложно, дело в другом - после этих задач на две строчки будут другие, сложнее. Их неизвестному форумчанину решать будет в лом. А у тебя не будет необходимых навыков, которые ты должен был приобрести на решении простых задач. Но это - твои будущие проблемы, не мои


Код:
var i: integer;
begin
i := 10;
while (i <= 99) do
begin
if (i mod 7 = 0) then writeln(i, ' кратно 7');
inc(i);
end;
end.

var i: integer;
begin
i := 10;
repeat
if (i mod 7 = 0) then writeln(i, ' кратно 7');
inc(i);
until i > 99;
end.
Автор: Corsairs
Дата сообщения: 16.03.2013 22:18
miwa
Как это - не заработает? Или имеется в виду, что это не весь код? Ну да, я же привел фрагмент кода, и там нету описания переменных, нету и запроса (или определения) начальных значений...

А так - вполне рабочий код...

krew
Присоединяюсь к мнению miwa - подобные задачки надо решать самому... И набираться опыта.

Ну и вообще - есть же тема для задач по Паскалю (ну и что, что она называется "Задачи на Turbo Pascal 7.0"), лучше спрашивать там...
Автор: miwa
Дата сообщения: 16.03.2013 23:09
Corsairs

Цитата:
Как это - не заработает? Или имеется в виду, что это не весь код?

Нет, я просто запутался, прошу меня извинить. Если учесть отсутствие "шапки", код - рабочий.
Автор: krew
Дата сообщения: 16.03.2013 23:46
Большое вам спасибо добрые люди
Автор: krew
Дата сообщения: 14.04.2013 21:26
Вот тут еще девушке накинули задачек, помогите кто сможет, сам я в программировании не бум-бум.

[more=Примеры задач]1. Сформировать и вывести на экран последовательность из n элементов, заданных датчиком случайных чисел на интервале [-23, 34].

Program posled;
Var a: array[1..100] of integer;
i, n: integer;
Begin
Write ('Сколько элементов? '); Readln (n);
For i=1 to n do
begin
a[i]:=Random(58)-23;
end;
End.

2. Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.

Program proisveden;
Var a: array[1..100] of integer;
i, n, p: integer;
Begin
Write ('Сколько элементов? '); Readln (n);
p:=1;
For i=1 to n do
begin
write ('введите число'); readln (a[i]);
p:=p*a[i];
end;
writeln('произведение: ',p);
End.

3. Найти сумму элеметов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры.

Program summa;
Var a: array[1..100] of real;
i, n:integer;
s: real;
Begin
Write ('n='); Readln (n);
s:=0;
For i:=1 to n do
begin
write ('введите число'); readln (a[i]);
s:=s+a[i];
end;
writeln('сумма элементов равна ',s);
End.

4. Задан массив A, состоящий из n чисел. Найти средне арифметическое его элементов. Элементы вводятся с клавиатуры.

Program srednee;
Var a: array[1..100] of real;
i, n: integer;
s,sred:real;
Begin
Write ('n='); Readln (n);
s:=0;
For i:=1 to n do
begin
write ('введите число'); readln (a[i]);
s:=s+a[i];
end;
sred:=s/n;
writeln('среднее арифметическое элементов: ',s);
End.

5. Найти сумму элементов массива с четными номерами, содержащего N элементов. Элементы вводятся с клавиатуры.

Program sumshet;
Var a: array[1..100] of real;
i, n: integer;
s,sred: real;
Begin
Write ('n='); Readln (n);
s:=0;
For i:=1 to n do
begin
write ('введите число'); readln (a[i]);
if i mod 2 = 0 then s:=s+a[i];
end;
writeln('сумма элементов с четными номерами: ',s);
End.

6. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-19, 26] (размер произвольный). Найти произведение элементов с нечетными номерами.

Program proisvednechet;
Var a: array[1..100] of integer;
i, n, p: integer;
Begin
Write ('Сколько элементов? '); Readln (n);
P:=1;
For i=1 to n do
begin
a[i]:=Random(46)-19;
writeln (a[i]),'');
if i mod 2 <> 0 then P=P*a[i];
end;
Writeln('Произведение элементов с нечетными номерами:',P);
End.

7. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-56, 47] (размер произвольный). Найти произведение элементов с нечетными номерами, которые превосходят некоторое число t.

Program proisvedchetbolt;
Var a: array[1..100] of integer;
i, n, p, t: integer;
Begin
Write ('Сколько элементов? '); Readln (n);
P:=1 to n do
begin
a[i]:=Random(104)-56; writeln (a[i],'');
if (i mod 2 =0) and (a[i]>t) then P=P*a[i];
end;
Writeln('Произведение элементов с четными номерами, превосходящими число t:',P);
End.

8. Найти наименьший элемент одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.

Program minim;
Var a: array[1..100] of real;
i, n: integer;
min: real;
Begin
Write ('n='); Readln (n);
For i:=1 to n do
begn
write('a[',i,']='); readln (a[i]);
end;
min:=a[1];
For i:=2 to n do
If a[i]< min then min:=a[i];
Writeln('наименьшее число: ',min);
End.

9. Найти номер наименьшего элемента в массиве, заданного датчиком случайных чисел на интервале [-20, 25]. Размер произвольный.

Program numberminim;
Var a: array[1..100] of integer;
i, n, num, min: integer;
Begin
Write ('n='); Readln (n);
For i=1 to n do
begin
a[i]:= Random(46)-20;
writeln (a[i]);
end;
min:=a[1];
num:=1;
For i:=2 to n do
If a[i]< min then
begin
min:=a[i];
num:=i;
end;
Writeln('номер наименьшего элемента: ',num);
End.

10. В заданном одномерном массиве, состоящем из n чисел, подсчитать количество нулей.

Program kolv0
Var a: array[1..100] of integer;
i, n, k: integer;
Begin
Write ('n='); Readln (n);
For i:=1 to n do
begin
Write('a[',i,']='); readln (a[i]);
if a[i]=0 then k:=k+1;
end;
Writeln('количество 0 равно ',k);
end.

11. В заданном одномерном массиве, состоящем из n чисел, подсчитать количество четных элементов.

Program kolvcchet
Var a: array[1..100] of integer;
i, n, k: integer;
Begin
Write ('n='); Readln (n);
For i:=1 to n do
begin
Write('a[',i,']='); readln (a[i]);
if a[i] mod 2=0 then k:=k+1;
end;
Writeln('количество четных элементов ',k);
end.

12. Найдите среднее арифметическое элементов массива, состоящего из 10 чисел, которые превышают по величине число C. Элементы вводятся с клавиатуры.

Program sredarifment;
Var a: array[1..10] of real;
i, k: integer;
C, S, sred: real;
Begin
For i:=1 to 10 do
begin
write ('a[',i,']='); readln (a[i]);
end;
write('введите C: '); readln (C);
For i:=1 to 10 do
begin
If a[i]>C then
begin S=S+a[i]; K=K+1; end;
end;
sred=S/k;
Writeln('среднее арифметическое чисел, превосходящих ',C,' равно ',sred);
End.

13. Найти произведение элементов целочисленного одномерного массива с четными номерами, состоящего из n элементов. Элементы вводятся с клавиатуры.

Program proizved_chet;
Var a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
write ('n='); readln (n);
for i:=1 to n do
begin
write ('a[',i,']='); readln (a[i]);
if i mod 2=0 then p:=p*a[i];
end;
Writeln ('произведение элементов массива с четными номерами равно ',p);
End.

14. Массив A вводится с клавиатуры. Сформировать новый массив B, состоящий из четных элементов массива A. Элементы вводятся с клавиатуры. Размер n.

Program newmasiv;
Var a: array[1..100] of integer;
b: array[1..100] of integer;
n, i, k: integer;
Begin
kol:=0, k:=0;
write ('n='); readln (n);
For i:=1 to n do
begin
write('a[',i,']='); readln (a[i]);
if a[i] mod 2=0 then
begin
k:=k+1; b[k]:=a[i]; kol:=kol+1;
end;
if kol=0 then writeln('четных элементов нет') else
for k:=1 to kol do write('b[',k,']=',b[k]);
end.[/more]

[more=Задачи]1. Массив A вводится с клавиатуры. Найти сумму его элементов. Размер произвольный.
2. Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]. Размер произвольный.
3. Массив A вводится с клавиатуры. Найти среднее арифметическое его элементов с нечетными номерами. Размер произвольный.
4. Массив A вводится с клавиатуры. найти сумму его элементов с четными номерами, произведение отрицательных элементов, количество нечетных элементов. Размер произвольный.
5. Найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. Размер произвольный.
6. Найти среднее арифметическое элементов последовательности, превосходящих некоторое число C. Массив задан датчиком случайных чисел на интервале [-44, 35]. Размер произвольный. Значение C вводится с экрана.
7. Массив A вводится с клавиатуры. Вывести только нечетные элементы. Размер произвольный.
8. Упорядочить данную последовательность по убыванию. Элементы вводятся с клавиатуры. Размер произвольный.
9. Упорядочить данную последовательность по убыванию. Массив задан датчиком случайных чисел на интервале [54, 33]. Размер произвольный.
10. Массив A вводится с клавиатуры. Сформировать новый массив B, состоящий из положительных элементов массива A. Размер произвольный размер.
11. Массив задан датчиком случайных чисел на интервале [-31, 45]. Сформировать новый массив B, состоящий из нечетных элементов массива A. Размер произвольный.
12. Массив A вводится с клавиатуры. Сформировать новый массив B, состоящий из положительных элементов массива A и найти в нем наибольший элемент. Размер произвольный.
13. Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти наименьший нечетный элемент. Размер произвольный.[/more]

Страницы: 1

Предыдущая тема: Криптостойкость 0% у любой программы


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.