|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.12.2008, 16:22 | #1 |
Пользователь
Регистрация: 09.12.2008
Сообщений: 17
|
Помогите найти ошибку в коде!
Добрый день!
кое как сделал программу, но она не совсем правильно работает. Сколько не ломал голову, но найти ошибку не могу. Ниже будет представлен проблемный (на мой взгляд) код. В чем сама проблема: при вводе n-го количества базовых поверхностей выводит результат n+1 поверхностей, т.е. хрен знает откуда прибавляет еще одну. пример - ввожу 2 поверхности на обработку, а выдает обработку 3-х. Проблемный код: . . . . . . begin writeln('VVedite kolichestvo obrobativaemih ploskostei:'); read(p); k:=0; s:=p+1; for j:= 2 to s do begin k:=k+1; writeln('VVedite tochnost i sherohovatost ',k,' bazovoi poverhnosti'); writeln('7 - 10-12 kv, 20<=Rz<=12,5'); writeln('8 - 8,9 kv, 12,5<=Rz<=6,3'); writeln('9 - 7,8 kv, 6,5<=Rz<=3,2'); read(b); begin if b=7 then a[1,j]:=1; if b=8 then a[2,j]:=1; if b=9 then a[3,j]:=1; end; end; end; . . . . . . P.S.: В ответе ниже представлена сама программа целиком и описание ее работы Последний раз редактировалось alex2008ean; 27.12.2008 в 18:36. |
27.12.2008, 18:31 | #2 |
Пользователь
Регистрация: 09.12.2008
Сообщений: 17
|
Как работает программа:
сначала формирую нулевой массив a[i,j]:=0, т.е. все елементы нули. Пример: 0 0 0 0 0 ... 0 0 0 0 0 ... 0 0 0 0 0 ... ................ Потом путем ввода предлагаемых значений параметров (вводяться в верхней части программы) некоторые елементы массива a[i,j] принимают значения 1. Пример: 0 1 0 0 1 ... 1 0 0 1 0 ... 0 0 0 0 0 ... Потом формируем массив d[i,j], где елементы масива - текстовые строки. Это нижняя часть программы. Масив d[i,j] такой же размерности что и массив a[i,j]. Сама суть: при значении елемента a[i,j]=1 в файл должна записываться текстовая строка, соответствующая аналогичному елементу массива d[i,j]. Пример: если a[1,2]=1, значит в файл должна записываться строка, соответствующая елементу d[1,2] |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите найти ошибку в коде, пожалуйста | Gobl1n | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 30.11.2008 17:44 |
Помогите найти ошибку в коде C++ | Жека:) | Помощь студентам | 15 | 29.10.2008 11:32 |
помогите найти ошибку в коде плиз | Айат | Помощь студентам | 2 | 01.10.2008 17:43 |
помогите найти ошибку в коде | Joker88 | Помощь студентам | 1 | 04.03.2008 12:43 |