|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.05.2012, 22:42 | #1 |
Форумчанин
Регистрация: 27.05.2012
Сообщений: 109
|
Тестирование и отладка программного продуктаРазработана программа, позволяющая искать заданное число в имеющемся массиве и выдава
1. Разработана программа, позволяющая искать заданное число в имеющемся массиве и выдавать номер найденного элемента.
Program Example1; const n=10; Var a: Array[1..n] Of Integer; x, i : Integer; begin For i:=1 to n Do Readln(a[i]); Writeln('введите х='); Readln(x); i:=0; While (i<=n) and (a[i]<>x) Do Begin i:=i+1; End; If (i<=n) and (i>1)then Writeln ('найден элемент на ', i,'месте') Else Writeln('такого элемента нет'); End. |
29.05.2012, 22:50 | #2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
я конечно дико извиняюсь, но от нас то чего хотите?
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
30.05.2012, 00:17 | #3 |
Регистрация: 30.05.2012
Сообщений: 8
|
Просим проверки правильности кода)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Тестирование и отладка программного продукта. | Proskurina | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 27.05.2012 20:34 |
Тестирование и отладка программного продукта. исправить ошибки, чтобы программа работала. | Proskurina | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 27.05.2012 18:22 |
Разработка, отладка, тестирование и документирование программ на Паскале | Химия | Помощь студентам | 0 | 18.12.2011 23:19 |
программа находит наибольшее чётное число в данном одномерном массиве целых чисел | katya111 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 18.05.2011 15:35 |
Программа, которая отгадывает заданное число | vakich | Помощь студентам | 7 | 24.02.2009 19:13 |