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)
первое что в голову пришло D
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)
мне бы желательно полностью,а не отрывками smile ...с началом: program

4. Саня (17.05.2010 / 16:43)
Да забей ты... в 10 класе то.

5. Михаил (17.05.2010 / 16:46)
D ....если бы эта оценка не влияла на годовую, забил бы...

6. Neformat (17.05.2010 / 17:03)
Сейчас напишу.

7. Антон (17.05.2010 / 17:06)
Дельфями пойдет?D

8. Андрей (17.05.2010 / 17:07)
3. EZHIK, ууууу.... как всё запущено D
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)
Дельфями пойдет?D
не
РжаЧНыЙ НэКО (Сегодня / 17:07)
if A[i]>=C and A[i]<=D then bedin
bedin - это че? очепятка?

10. Александр (17.05.2010 / 17:32)
Полтора года назад такие задачи писал в школе. Сейчас всё забыл из-за ненадобности smile

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)
Блин. Неужели такую фигню в следущем году буду проходитьsad

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)
Дельфями пойдет?D
Синтаксис делфи чем то от паскаля отличается? Ну конечно если грубо сравнивать только простые вычисления и работу с массивами.

20. Михаил (17.05.2010 / 18:50)
Neformat (Сегодня / 18:23)
Или наименьших в каком то интевале?
Наименьших в каком-то интервале...
Neformat (Сегодня / 18:23)
С тебя магарыч
это че? :-D?

21. Антон (17.05.2010 / 18:54)
10, как так? это основы программирования!smile

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, исправил ошибки smile
о_О ! Ну спасибо. smile
компилировал ?

Добавлено через 01:26 сек.
32. sabbath, не за что. Обращайся.

Добавлено через 06:35 сек.
Ой, а может это и не мне, извиняюсь, если что.

32. Tegos (21.09.2013 / 15:36)
ZiGR (21 Сентября 2013 / 12:22)
33. ZZZZZZ, ага. Да мы вообще на парах код на листочках пишем, а потом препод в уме проверяет D
на парах ?

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