|
Информатика.массивы..помогите срочно..завтра сдавать нужно=(
| |
| minttomedia | Дата: Воскресенье, 2010-11-21, 8:25 PM | Сообщение # 16 |
Академик
Группа: Проверенные
Сообщений: 1147
Репутация: 451
Замечания: 20%
Статус: Offline
Город: Одинцово
| Кузяя, вот у нас есть массив [3,9,7,22,0,-5]
Пишем что хотим удалить второй элемент ( m = 2)
и в цикле начинаем менять
[3,7,7,22,0,-5]
[3,7,22,22,0,-5]
[3,7,22,0,0,-5]
[3,7,22,0,-5,-5] И как я писал, что никак нельзя изменить длину массива, мы получаем что в конце два одинаковых элемента. И по-этому выводим элементы все, кроме последнего и у нас получается желаемый результат ( [3,7,22,0,-5] ) Конечно, я написал алгоритм, то что быстрее в голову пришло, возможно есть что-то получше
|
| |
| |
| Кузяя | Дата: Воскресенье, 2010-11-21, 8:27 PM | Сообщение # 17 |
Аспирант
Группа: Проверенные
Сообщений: 346
Репутация: 1763
Замечания: 0%
Статус: Offline
| описание массива
а: array[1..N] 0f Real;
Саша, отредактируй программку в своем посте Добавлено (2010-11-21, 8:27 PM)
---------------------------------------------
я поняла как переписываем, просто там второй цикл до N-1 program bugaga;
const N=10;
var m,i: Integer;
а: array[1..N] 0f Real; BEGIN
for i:=1 to N do readln(a[i]);
writeln('Введите значение m');
for i:=m to N-1 do a[i]=a[i+1]; for i:=1 to (N-1) do writeln(a[i]); END.
Это решение считать верным 
Сообщение отредактировал Кузяя - Воскресенье, 2010-11-21, 8:42 PM |
| |
| |
| katja123 | Дата: Воскресенье, 2010-11-21, 8:34 PM | Сообщение # 18 |
Студент
Группа: Пользователи
Сообщений: 33
Репутация: 0
Замечания: 0%
Статус: Offline
Город: Екб
| аааааааа......спасибо огромное... а 1 ая также делается?
Что мыслимо - то возможно, что возможно - то мыслимо. /Г. Лейбниц/
|
| |
| |
| porto211 | Дата: Воскресенье, 2010-11-21, 8:41 PM | Сообщение # 19 |
Доцент
Группа: Проверенные
Сообщений: 596
Репутация: 482
Замечания: 20%
Статус: Offline
| Эх, я это всё уже даавно забыл 
Никогда не поздно начать все сначала)
РГАИС-1из5,РУДН-1из3)))
http://www.fantlab.ru/
КППР
|
| |
| |
| minttomedia | Дата: Воскресенье, 2010-11-21, 8:43 PM | Сообщение # 20 |
|
Академик
Группа: Проверенные
Сообщений: 1147
Репутация: 451
Замечания: 20%
Статус: Offline
Город: Одинцово
| program bugaga;
const N=10,max=-32000;
var i,j : Integer;
а: array[1..N,1..N] 0f Real; BEGIN
for i:=1 to N do
for j:=1 to N do readln(a[i]); for i:=1 to N do
for j:=(i+1) to N do
if a[i,j]>max then max=a[i,j]; writeln(max);
END.
Сообщение отредактировал minttomedia - Воскресенье, 2010-11-21, 9:00 PM |
| |
| |
| katja123 | Дата: Воскресенье, 2010-11-21, 8:47 PM | Сообщение # 21 |
|
Студент
Группа: Пользователи
Сообщений: 33
Репутация: 0
Замечания: 0%
Статус: Offline
Город: Екб
| А minttomediaю....извините конечно...я мало в этом понимаю.....но вот пример псевдокода , который нам училка давала....а у меня немного другой получится. 1. Формулировка задания
В двумерном массиве А (4x4) заменить все 1 на 0. Вывести новый массив. 2. Псевдокод
1. Для i = 1,4,1 и j = 1,4,1
1.1. Ввод aij.
2. Для i =1,4,1 и j =1,4,1 повторить
2.1. ЕСЛИ aij = 1, ТО aij = 0
3. Для i = 1,4,1 и j = 1,4,1
3.1. Вывод aij.
4. Конец.
Что мыслимо - то возможно, что возможно - то мыслимо. /Г. Лейбниц/
|
| |
| |
| katja123 | Дата: Воскресенье, 2010-11-21, 8:53 PM | Сообщение # 22 |
|
Студент
Группа: Пользователи
Сообщений: 33
Репутация: 0
Замечания: 0%
Статус: Offline
Город: Екб
| ага...хорошо!!!
Что мыслимо - то возможно, что возможно - то мыслимо. /Г. Лейбниц/
|
| |
| |
| Кузяя | Дата: Воскресенье, 2010-11-21, 8:53 PM | Сообщение # 23 |
|
Аспирант
Группа: Проверенные
Сообщений: 346
Репутация: 1763
Замечания: 0%
Статус: Offline
| katja123, в программе первую часть до бегин не пишешь, это описания. А после
вместо for i:=1 to N пишешь для i от 1 до N
вместо Read или Readln ======= Ввод
Вместо Write или Writeln======= Вывод
Вместо а[i,j] пишешь =========aij
Вместо a[i] ================ ai
|
| |
| |
| minttomedia | Дата: Воскресенье, 2010-11-21, 8:57 PM | Сообщение # 24 |
|
Академик
Группа: Проверенные
Сообщений: 1147
Репутация: 451
Замечания: 20%
Статус: Offline
Город: Одинцово
| katja123, Потом скажешь, что поставила училка и мы эту оценку на троих поделим ;D
|
| |
| |
| Кузяя | Дата: Воскресенье, 2010-11-21, 9:00 PM | Сообщение # 25 |
|
Аспирант
Группа: Проверенные
Сообщений: 346
Репутация: 1763
Замечания: 0%
Статус: Offline
| minttomedia, katja123, я отказываюсь от своей трети в пользу Кати  , все я спать
|
| |
| |
| minttomedia | Дата: Воскресенье, 2010-11-21, 9:01 PM | Сообщение # 26 |
|
Академик
Группа: Проверенные
Сообщений: 1147
Репутация: 451
Замечания: 20%
Статус: Offline
Город: Одинцово
| Кузяя, Спокойной ночи, katja123, последний абгрейд для первой проги /forum/6-30626-667615-16-1290361388
|
| |
| |
| katja123 | Дата: Воскресенье, 2010-11-21, 9:03 PM | Сообщение # 27 |
|
Студент
Группа: Пользователи
Сообщений: 33
Репутация: 0
Замечания: 0%
Статус: Offline
Город: Екб
| всем сладких снов!!!!!!!!!!!!!!!!!!!!!!!спасибо огромное!!!!!!!!!
Что мыслимо - то возможно, что возможно - то мыслимо. /Г. Лейбниц/
|
| |
| |
| Кузяя | Дата: Воскресенье, 2010-11-21, 9:05 PM | Сообщение # 28 |
|
Аспирант
Группа: Проверенные
Сообщений: 346
Репутация: 1763
Замечания: 0%
Статус: Offline
| katja123, все спать еще рано, а мне давно пора. Я тут просто лишнее кое-что удалила. Теперь уже точно спать.
|
| |
| |
| katja123 | Дата: Пятница, 2010-12-03, 6:50 PM | Сообщение # 29 |
|
Студент
Группа: Пользователи
Сообщений: 33
Репутация: 0
Замечания: 0%
Статус: Offline
Город: Екб
| вы очень мне помогли...всех благодарю....пока всем!!!!!!! Добавлено (2010-12-03, 6:49 PM)
---------------------------------------------
я сдала на 5 ......!!! СПАСИБО ВАМ ОГРОМНОЕ!!!!!!!!! Добавлено (2010-12-03, 6:50 PM)
---------------------------------------------
а СМОЖЕТЕ МНЕ ЕЩЁ ПОМОЧЬ??!!! пожалуйста.... Мне нужно составить программу в PascalABC, которая показывала бы какой-нибудь очень клёвый..сложный рисунок...графику в общем...=)
Что мыслимо - то возможно, что возможно - то мыслимо. /Г. Лейбниц/
Сообщение отредактировал katja123 - Пятница, 2010-12-03, 6:51 PM |
| |
| |
| first | Дата: Пятница, 2010-12-03, 9:47 PM | Сообщение # 30 |
Доцент
Группа: Проверенные
Сообщений: 554
Репутация: 517
Замечания: 0%
Статус: Offline
Город: Уфа
| katja123, вот например, прога с библиотекой graphic, выводит график функции. з.ы. кодил не я.
program graphic;
uses graph;
var driver, mode, errorcode : integer; xm,ym,i,j : integer;
pi,pi300,x1,y1,x2,y2, sc : real;
st1,st2,st3 : string;
function f(x:real) : real;
begin
f:=sin(x)+sin(2*x)+sin(3*x)-1-cos(x)-cos(2*x);{ функция для построения}
end; {графика}
begin
st1:='x';st2:='y';
st3:=' Press ENTER';
sc:=50;
driver:=9; {egavga}
mode:=2; {640х480 пикселей}
initgraph(driver,mode,'d:\bp\bgi'); {инициализация графического режима }
errorcode:=graphresult;
if errorcode<>grok then {ошибка }
begin
writeln('Error init Graph');
closegraph;
halt;
end;
xm:=getmaxx div 2;
ym:=getmaxy div 2;
{ xm=320;ym=240;центр экрана}
line(xm,20,xm,460);{ось y}
line(20,ym,620,ym);{ ось x}
outtextxy(630,ym,st1); {маркировка оси х}
outtextxy(xm,10,st2); {маркировка оси у}
pi:=3.1415926; pi300:=pi/300;
x1:=-pi;
for i:=0 to 24 do {разметка оси х вертикальными черточками}
begin
line(xm+round(80*x1),230,xm+round(80*x1),250);
x1:=x1+pi300*25;
end;
x1:=-pi; {собственно построение графика отрезками прямых}
while x1<pi do
begin
y1:=f(x1);x2:=x1+pi300;
y2:=f(x2);
line(xm+round(80*x1), ym-round(sc*y1),
xm+round(80*x2), ym-round(sc*y2));
x1:=x2;
end;
outtextxy(270,470,st3);
readln;
closegraph;
end.
Я бы изменил мир, но Бог не дает исходники…
|
| |
| |
|
|
|
RSS: