| Типы программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Этюды программистов, Решение Параметры передовае...., как передать параметры в программу? Как избежать мирцания?, Panel ? найти сокровище Задания по Паскалю!!HELP, Спасите Люди добрые, помогите, кто, чем может, помощь бедному студенту! задача, пилообразная последовательность Как перевести приложение на asm, Как перевести приложение на asm Задача по работе с файлом, нужно отредактировать Срочно помогите решить задачу!, Ну очень срочно 5 задач Паскаль проверка на наличие конкретных символов, задача (программа) на языке Pascal Ввод чисел Расположение и размеры окна, Запуск чужой программы Нахождение критического пути на орграфе, Модифицированный метод Форда Метод Якоби, Решение СЛАУ ВЫзов Фукнкции, помогите высзвать функцию TPyacc, нужна инфа Как Вы относитесь к курящим девушкам? Задача по процедурам и функциям Задача на треугольники., Срочно!!! расшифрование, расшифровать сообщение Афинные преобразование в плоскости, Паскаль Квадратное уравнение 2 Звук, Как переделать песню Аналоги процедур Делимость на 3 Числа 1 и 0 време компиляции проги в паскале, вопрос Паскаль не запускается, в полноэкранном режиме Интересная задача., Точнее её решение. Pascal, полезные ссылки Хэлп! Объединить отрезки!, Горит курсовая, помогите кто чем! Нужна ошибка String, где он? Как Вы относитесь к курящим девушкам? проблемы с запуском паскаля, не могу запустить! Помогите пожалуйста Задача на массив!!! Функция, Написать программу, используя функцию library, экспорт DLL в делфи x в степени n?функция? Как в Паскале скрыть курсор Очень простая задача, :) Создание контекстного меню, Вопрос TurboPascal Listbox and Textfile, kak infu skinut' iz Listbox v Textfile?? LPT порт, вопрос Помогите, пожалуйста, решить задачу! спасайте!!! решите задачу, задача с окончаниями Возведение в степень Присваивание чисел массиву, Проблема в синтаксисе... Площадь, найти площадь фигуры Модули, Вопрос Программирование: Pascal, Вопрос Помогите решить задачу, использование табуляции Решить программу, Во таткую Delphi и Adobe, В Adobe Page Maker разработчики не сдела Проверка своих сил, Задача Турбо Паскаль глючит под ХП Помогите аписать программу на паскале файлы помогите с задачей, задачка про маршруты Как Вы относитесь к курящим девушкам? Кубический корень Как узнать директорию WIndows ?, Как узнать директорию WIndows в Паскале КВадратное уравнение, обычная программа с дискриминантом Вопрос по командной строке Помогите!!! Вопрос ламера |
Платные хостинги Раскрутка сайта Книги по программированию 5 задач Паскаль
- http://forum.vingrad.ru/index.php?showforum=25 - Akina не понимаю твою ссылку!Кы! Держи прги!1.1) Дано натуральное число N (N>9) определить количество нулей в цифровой записи числа, кроме нулей в младших разрядах. Пример: N=10025000 - количество нулей = 2. Код: Program Skuka; Var i: longint; N: integer; begin write('input Nomber, pleeeaaase: '); readln(i); N:= 0; while ((i mod 10) = 0) do begin i:= i div 10 ; end;; while (i <> 0) do begin if (i mod 10) = 0 then inc(N); i:= i div 10; end; writeln(' N of 0 = '), N; readln; end; 4) Код: program SomeProgram; var i,n,summ:integer; a:array[1..150] of integer; begin readln(n); {ввод размерности массива} for i:=1 to n do readln(a[i]); {ввод массива} summ:=0; {обнулим сумму на всякий случай} for i:=1 to n do {собственно поиск суммы} if a[i]=i then {коли номер элемента равен элементу, то...} summ:=summ+a[i]; {...прибавить к сумме значение элемента} Writeln('Сумма:',summ); end. Ну, коли так, то получи ещё одну 2) Код: program TheSecond; var a:array[1..20,1..20] of real; m,n,i,j,Jmin:integer; begin readln(m,n); {вводим размерность матрицы} for i:=1 to m do for j:=1 to n do readln(a[i,j]); {вводим матрицу пострчно} for i:=1 to m div 2 do {это шобы брать не все строки} begin Jmin:=1; {предположим, что именно первый элемент строки - наименьший} For j:=2 to n do {А потом переберём оставшуюся часть строки...} if a[2*i,j]<a[2*i,Jmin] {...и если это не самый малый элемент,...} then Jmin:=j; {...то запомнить номер "более меньшего элемента"} Writeln('Минимальный элемент в ',2*i,'-й строке: ',a[2*i,Jmin]); end; Writeln('The END!'); end. 5) Дан массив целых чисел. Найти в этом массиве минимальный элемент m и максимальный элемент M. Получить в порядке возростания все целые числа из интервала (n;M), которые не входят в данный массив. Код: program Proga5; type massive=array[1..50] of integer; var mas,rez:massive; n,i,max,min,nRez:integer; procedure GetMinAndMax(m:massive;n:integer; var max,min:integer); var i:integer; begin max:=m[1]; min:=m[1]; for i:=2 to n do begin if m[i]>max then max:=m[i]; if m[i]<min then min:=m[i] end; end; function Check(a:integer; m:massive; n:integer):boolean; var b:boolean; i:integer; begin b:=false; for i:=1 to n do if m[i]=a then begin b:=true; break end; check:=b; end; begin writeln('------------------------------------------------'); writeln('Vvedite kolichestvo elementov v massive, PLS:'); write('n=');readln(n); writeln('vvedite znacheniya elementov massiva:'); for i:=1 to n do begin write('Massive[',i,']='); readln(mas[i]) end; writeln('------------------------------------------------'); GetMinAndMax(mas,n,max,min); nRez:=0; for i:=min+1 to max-1 do if not check(i,mas,n) then begin nrez:=nrez+1; rez[nrez]:=i end; writeln('OTVET:'); for i:=1 to nrez do write(rez[i],' '); end. Надеюсь, ты не на программиста учишься? А то как-то стыдно не решить такие задачи... Если не не программиста, то тогда понимаю. Хотя, в любом случае, это - для меня лишний повод окунуться в ностальгию (сто лет не открывал Паскаль, все Делфи, да Делфи....) - МVoventus юзайте теги [code=delphi][/code] для оформления кода...  |