|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.04.2008, 00:28 | #11 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
program prinerpenl;
const n=17; type mas1= array [1..n] of integer; const An :mas1=(1,5,7,8,5,3, ...);// n цифр и в 3-х других тоже Bv: mas1=(цифры); Cn: mas1=(цифры); Dv: mas1=(цифры); Var d,b : mas1; I :integer; Min :word; t: text; Begin Min:=65535; For i:=1 to n do begin B[i]:=An[i]+Bv[i]; {этого я не пойму - почему складываем нефть и воду} Write(‘1u2=’ ,b[i],' '); End; writeln;//для красоты For i:=1 to n do begin d[i]:=Cn[i]+Dv[i]; Write(‘3u4=’ ,d[i],' '); End; for i:=1 to n do If B[i]<min then min:=B[i]; Writeln ( 'min znachenie = ', min); assign(t, 'file_name.txt'); rewrite(t); for I := 1 to n do writeln(t, B[i]); writeln(t, 'min znachenie = ',min); close(t); readln End. Последний раз редактировалось eoln; 27.04.2008 в 00:30. |
27.04.2008, 12:08 | #12 | |
Форумчанин Подтвердите свой е-майл
Регистрация: 22.01.2008
Сообщений: 161
|
to eoln: используй пожалста тег для кода.
Цитата:
2) после readln нужна точка с запятой: Код:
|
|
27.04.2008, 12:13 | #13 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
|
27.04.2008, 13:29 | #14 |
Пользователь
Регистрация: 26.04.2008
Сообщений: 12
|
|
27.04.2008, 13:55 | #15 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Подсчёт воды и нефти во всех скважинах и вывод на экран.
В файл пишем общие данные о воде и нефти в обоих скважинах и минимальное значение в первой скважине Код:
|
27.04.2008, 14:33 | #16 |
Пользователь
Регистрация: 26.04.2008
Сообщений: 12
|
Спасибо большое! я наконец то понял и разобрался с этой задачей
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите доделать задачу | motaro | Фриланс | 3 | 09.06.2008 19:59 |
Помогите доделать задачу!!!! | Vincenzo | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 11.05.2008 09:35 |
помогите доделать задачу по массиву | braza | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 06.05.2008 09:37 |
помогите доделать(исправить) задачу по массиву | braza | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 29.04.2008 19:54 |
Помогите доделать задачу на класс | molodzo | Общие вопросы C/C++ | 2 | 20.11.2007 09:31 |