|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
14.06.2007, 23:16 | #11 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
-=9=-
const A=10; B=11; C=8; var FA:array[1..A]of string; FB:array[1..B]of string; FC:array[1..C]of string; i:integer; ind:boolean; begin {ищем ньютона} ind:=false; i:=1; while i<= A do begin if FA[i]='Ньютон' then begin ind:=true;{показываем, что нашли} writeln('Ньютон на позиции №',i); end; i:=inc(i); end; if ind=false then writeln('Ньютон в списке нет!!!'); {ищем Винера} ind:=false; i:=1; while i<= B do begin if FB[i]='Винер' then begin ind:=true; writeln('Винер на позиции №',i); end; i:=inc(i); end; if ind=false then writeln('Винера в списке нет!!!'); {ищем Бора} ind:=false; i:=1; while i<= C do begin if FC[i]='Бор' then begin ind:=true; writeln('Бор на позиции №',i); end; i:=inc(i); end; if ind=false then writeln('Бора в списке нет!!!'); end.
Life is too short, play more...
Как правильно задавать вопросы |
14.06.2007, 23:24 | #12 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
-=5=-
var x,i:integer; y:extended; {отдельно посчитаем факториал} procedure Fact(f:integer):longint; begin fact:=1; for i:=1 to f do fact:=fact*i; end; begin writeln('X = '); ReadLN(X); y:=0; for i:=1 to 10 do begin y:=Fact(i)*(x^i/i)+y; end; Writeln('Y = ',y); end.
Life is too short, play more...
Как правильно задавать вопросы |
15.06.2007, 14:45 | #13 |
Регистрация: 14.06.2007
Сообщений: 7
|
Alex, еще раз большое спасибо!
может и с остальными поможешь? а то чем дальше, тем сложней Последний раз редактировалось rant; 15.06.2007 в 14:50. |
15.06.2007, 18:22 | #14 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
-=7=-
Код:
Life is too short, play more...
Как правильно задавать вопросы |
15.06.2007, 18:38 | #15 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
-=8=-
Код:
Life is too short, play more...
Как правильно задавать вопросы |
15.06.2007, 18:50 | #16 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
-=10=- -=11=- -=12=- Слишком уж утомительно, ищите готовые примеры.
-=11=- - типизированные файлы -=12=- - работа с графикой, геометрия движения. P.S.: Поиск по форуму
Life is too short, play more...
Как правильно задавать вопросы |
15.06.2007, 20:38 | #17 |
Регистрация: 14.06.2007
Сообщений: 7
|
Alex, нет слов, спасибо )) выручил это мягко сказанно )
буду остальные искать. Хотя чего-то поиск не работал последний раз у меня... надо еще раз попробывать |
19.04.2010, 21:11 | #18 |
Регистрация: 19.04.2010
Сообщений: 8
|
задача
народ, помогите кто-нибудь с задачей.
Дан массив D(n). Удалите из массива все элементы, равные миниальному. Выведите на экран исходный и полученный массивы. очень срочно. не успеваю (так как +2 задачи есть ещё) |
19.04.2010, 21:44 | #19 |
Форумчанин
Регистрация: 02.02.2010
Сообщений: 305
|
min = a[1];
for i := 2 to n do if a[i]<min then min := a[i]; j:=1; for i := 1 to n do if a[i] > min then begin b[j] := a[i]; inc(j); end; for i := 1 to n do writeln(a[i]); for i := 1 to j do writeln(b[i]);
Skype: CODERua
|
19.04.2010, 21:54 | #20 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Код:
にんじゃ
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Две задачи на массивы. | Nadi | Помощь студентам | 4 | 25.04.2011 16:58 |
Помогите переделать 2 задачи под динамические массивы (Паскаль) | mpegable | Помощь студентам | 2 | 27.05.2008 17:32 |
Паскаль. Задачи на массивы | pr1mat | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 26.05.2008 15:04 |
Задачи на массивы и указатели в СИ | D@rk_Spirit | Общие вопросы C/C++ | 3 | 29.12.2007 08:01 |