Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.05.2012, 22:42   #1
Proskurina
Форумчанин
 
Регистрация: 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.
Proskurina вне форума Ответить с цитированием
Старый 29.05.2012, 22:50   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

я конечно дико извиняюсь, но от нас то чего хотите?
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 30.05.2012, 00:17   #3
Reisch_Helena
 
Регистрация: 30.05.2012
Сообщений: 8
Радость

Просим проверки правильности кода)
Reisch_Helena вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Тестирование и отладка программного продукта. 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