Pascal
1.
Михаил (17.05.2010 / 14:12)
Здраствуйте, учусь в 10 классе, задали 5 задачек решить и не получается что-то.. вот собственно и они:
1. Составить программу нахождения натурального наибольшего среди тех элементов массива, что лежат в интервале от C по D (интервал я задаю сам)
2. СП вычисления суммы массива встречающихся в этом массиве 2 раза.
3. СП вычисления разности между max и min элементом массива.
4. СП замены в массиве нулевых элементов массива на квадрат певого элемента
5. СП подсчёта чисел наименьших по модулю элементов массива.
Заранее спасибо...
2.
Андрей (17.05.2010 / 16:07)
первое что в голову пришло
1)
q:=0;
for i:=1 to N do begin
if A[i]>=C and A[i]<=D then bedin
if A[i]>=q then A[i]:=q;
end;
end;
writeln('Max = ',q);
4)
for i:=1 to N do begin
if A[i]=0 then A[i]:=A[1]*A[1];
end;
3.
Михаил (17.05.2010 / 16:15)
мне бы желательно полностью,а не отрывками
...с началом: program
4.
Саня (17.05.2010 / 16:43)
Да забей ты... в 10 класе то.
5.
Михаил (17.05.2010 / 16:46)
....если бы эта оценка не влияла на годовую, забил бы...
6.
Neformat (17.05.2010 / 17:03)
Сейчас напишу.
7.
Антон (17.05.2010 / 17:06)
Дельфями пойдет?
8.
Андрей (17.05.2010 / 17:07)
3.
EZHIK, ууууу.... как всё запущено
1)
program visavi;
var N,C,D,q,i:integer;
A:array [1..100] of integer;
begin
write('Введите количество элементов в массиве: ');
readln(N);
for i:=1 to N do begin
writeln('Введите ',i,'-й элемент массива: ');
readln(A[i]);
end;
q:=0;
for i:=1 to N do begin
if A[i]>=C and A[i]<=D then bedin
if A[i]>=q then q:=A[i];
end;
end;
writeln('Max = ',q);
readln;
end.
остальные по такомуже типу...
PS не проверял... давно паскалем не занимаююсь...
9.
Михаил (17.05.2010 / 17:25)
Neformat (Сегодня / 17:03)
Сейчас напишу
давай жду)
Делфи (Сегодня / 17:06)
Дельфями пойдет?
не
РжаЧНыЙ НэКО (Сегодня / 17:07)
if A[i]>=C and A[i]<=D then bedin
bedin - это че? очепятка?
10.
Александр (17.05.2010 / 17:32)
Полтора года назад такие задачи писал в школе. Сейчас всё забыл из-за ненадобности
11.
Neformat (17.05.2010 / 17:44)
4. СП замены в массиве нулевых элементов массива на квадрат певого элемента
program visavi;
uses CRT;
var
q,n,i:integer;
A:array [1..100] of integer;
begin
clrscr;
write('Введите количество элементов в массиве: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,'-й элемент массива: ');
readln(A[i]);
end;
writeln;
q:= A[1]*A[1];
writeln('Старый массив:');
for i:=1 to n do
begin
write(A[i], ', ');
end;
writeln;
for i:=1 to n do
begin
if A[i]=0 then A[i]:=q;
end;
writeln('Новый массив:');
for i:=1 to n do
begin
write(A[i], ', ');
end;
readln;
end.
12.
Удаленный (17.05.2010 / 17:44)
3 программка) паскаль не проходил , напишу на С++, если не дуб то сможешь взять алгоритм и переделать)
void main () {
int A[50],i,j,max.min;
for (i=0;i<50;i++;)
cin<<A[i]; //ввод
max=A[0];
min=A[0];
for (i=1;i<50;i++;) {
if (A[i]>max)
max=A[i];
if (A[i]<min)
min=A[i]; } ///нашли max min
cout<<max-min;
}
13.
chiper (17.05.2010 / 17:47)
Блин. Неужели такую фигню в следущем году буду проходить
14.
Удаленный (17.05.2010 / 17:48)
13 ниче сложного, так кажется
15.
Neformat (17.05.2010 / 17:57)
3. СП вычисления разности между max и min элементом массива.
program visavi;
uses CRT;
var
z,p,q,n,i:integer;
A:array [1..100] of integer;
begin
clrscr;
write('Введите количество элементов в массиве: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,'-й элемент массива: ');
readln(A[i]);
end;
writeln;
q:=A[1];
for i:=2 to n do
begin
if A[i]>q then q:=A[i];
end;
p:=A[1];
for i:=2 to n do
begin
if A[i]<p then p:=A[i];
end;
writeln('Максимум: ',q);
writeln('Минимум: ',p);
z:=q-p;
writeln;
writeln('Результат: ',z);
readln;
end.
16.
Vova (17.05.2010 / 18:00)
13,я тоже
17.
Neformat (17.05.2010 / 18:20)
1. Составить программу нахождения натурального наибольшего среди тех элементов массива, что лежат в интервале от C по D (интервал я задаю сам)
program visavi;
uses CRT;
var
q,c,d,n,i,j:integer;
A:array [1..100] of integer;
B:array [1..100] of integer;
begin
clrscr;
write('Введите количество элементов в массиве: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,'-й элемент массива: ');
readln(A[i]);
end;
write('Введите C: ');
readln(c);
write('Введите D: ');
readln(d);
j:=0;
for i:=1 to n do
begin
if (A[i]>=C) and (A[i]<=D) then
begin
j:=j+1;
B[j]:=A[i];
end;
end;
writeln;
writeln('Массив элементов из интервала CD:');
for i:=1 to j do
begin
write(B[i], ', ');
end;
writeln;
q:=B[1];
for i:=2 to j do
begin
if B[i]>q then q:=B[i];
end;
writeln('Максимум в интевале CD: ',q);
readln;
end.
18.
Neformat (17.05.2010 / 18:23)
EZHIK (Сегодня / 14:12)
5. СП подсчёта чисел наименьших по модулю элементов массива.
Наименьших по модулю, что значит наименьших? 10 самых наименьших? Или наименьших в каком то интевале?
---
С тебя магарыч, второе задание накидаю, как домой прийду.
19.
Neformat (17.05.2010 / 18:24)
Делфи (Сегодня / 17:06)
Дельфями пойдет?
Синтаксис делфи чем то от паскаля отличается? Ну конечно если грубо сравнивать только простые вычисления и работу с массивами.
20.
Михаил (17.05.2010 / 18:50)
Neformat (Сегодня / 18:23)
Или наименьших в каком то интевале?
Наименьших в каком-то интервале...
Neformat (Сегодня / 18:23)
С тебя магарыч
это че? :-D?
21.
Антон (17.05.2010 / 18:54)
10, как так? это основы программирования!
22.
Михаил (17.05.2010 / 18:56)
Спасибо за помошь, еще бы 2 и 5 задачку)
23.
Neformat (17.05.2010 / 19:59)
EZHIK (Сегодня / 18:56)
Спасибо за помошь, еще бы 2 и 5 задачку)
Магарыч
Наименьший элемент в интервале найти? Интервал так же с клавиатуры вводится?
24.
Михаил (17.05.2010 / 20:07)
Ну да, интервал абсолютно любой =)
P.S Мне еще до 150 КЦ, как до китая раком =(
25.
Neformat (17.05.2010 / 20:22)
5. СП подсчёта чисел наименьших по модулю элементов массива.
program visavi;
uses CRT;
var
q,c,d,n,i,j:integer;
A:array [1..100] of integer;
B:array [1..100] of integer;
begin
clrscr;
write('Введите количество элементов в массиве: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,'-й элемент массива: ');
readln(A[i]);
end;
write('Введите C: ');
readln(c);
write('Введите D: ');
readln(d);
j:=0;
for i:=1 to n do
begin
if (A[i]>=C) and (A[i]<=D) then
begin
j:=j+1;
B[j]:=A[i];
end;
end;
writeln;
writeln('Массив элементов из интервала CD:');
for i:=1 to j do
begin
write(B[i], ', ');
end;
writeln;
q:=abs(B[1]);
for i:=2 to j do
begin
if abs(B[i])<q then q:=B[i];
end;
writeln('Наименьшее значение по модулю в интевале CD: ',q);
readln;
end.
26.
sabbath (20.09.2013 / 20:50)
Дабы не создавать отдельную тему, спрошу здесь.
Помогите написать задачи, не очень дружу с паскалем.
1. составить программу нахождения суммы чисел от 1 до 10.
2. создать массив от n случайного числа, подсчитать их среднее арифметическое max и min значение.
27.
sabbath (20.09.2013 / 21:09)
1 решил так:
program pr;
var
s, n : integer;
begin
s:=0;
for n:=1 to 10 do s:=s+n;
writeln(s);
end.
правильно?
28.
sabbath (21.09.2013 / 00:59)
Срочно нужно, прошу помощи, особенно со второй задачей.
29.
Tegos (21.09.2013 / 02:41)
program tegos;
var s,n,i:integer;
min, max, sum, r: real;
mas:array [100] of integer;
begin
randomize;
n:=random (100);
for i:=1 to n do
mas[i]:=random(99);
min:=mas[1]; max:=mas[1];
for i:=2 to n do
begin
if min>mas[i] then min:=mas[i];
if max<mas[i] then max:=mas[i];
end;
s:=0;
for i:=1 to n do
s:=s+mas[i];
r:=s/n;
write ('Min ->',min);
write ('Max ->', max);
write ('Avarange -> ', r);
end.
Добавлено через 01:43 сек.
П.С. На Паскале давно ничего не писал.
+ писал по памяти и с тлфна.
Добавлено через 04:10 сек.
Эмм, ну еще было бы хорошо вывести данный массив.
Ну думаю с этим справишься сам.
30.
sabbath (21.09.2013 / 03:02)
Благодарю за помощь
31.
Tegos (21.09.2013 / 04:16)
ZiGR (20 Сентября 2013 / 23:55)
30. ZZZZZZ, исправил ошибки
о_О ! Ну спасибо.
компилировал ?
Добавлено через 01:26 сек.
32.
sabbath, не за что. Обращайся.
Добавлено через 06:35 сек.
Ой, а может это и не мне, извиняюсь, если что.
32.
Tegos (21.09.2013 / 15:36)
ZiGR (21 Сентября 2013 / 12:22)
33. ZZZZZZ, ага. Да мы вообще на парах код на листочках пишем, а потом препод в уме проверяет
на парах ?
33.
Tegos (21.09.2013 / 18:38)
36.
ZiGR, а где ты учишься ?
34.
Tegos (21.09.2013 / 18:56)
И на кого ?
35.
sabbath (22.09.2013 / 23:46)
помогите еще с паскалем, есть рисунок с блок-схемой
http://rghost.ru/48909728.view
по этой схеме нужно написать программу. А это
http://rghost.ru/48909814.view задания к вариантам, в данном случае смотрим вариант 5.
36.
sabbath (23.09.2013 / 00:43)
Изображения показываются некорректно, перезалил.
http://files.mail.ru/6881E0C9A1CF45B896D5E4D7BBFABC12?t=1
37.
sabbath (23.09.2013 / 02:08)
Нужно к завтрашнему дню, срочно.
URL:
https://visavi.net/topics/9487