Образцы программ автора на Делфи Delphi+SQL к базам данных с исходниками

Сайт в состоянии разработки

Социальная сеть

РЕШЕНИЕ ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ НА PASCAL,DELPHI,FOXPRO,PHP и других языках Часть задачи или одна из задач если несколько будет решена вперед Опишите задачу в книге заказов, желательно оставить телефон,email чтобы знать чья оплата После получения первой части перекинете по 10 грн на телефон 38 0969507784 за 1 задачу, Для России перевод по 40 руб за задачу по адресу или на карточку Приватбанка Размещая заказ или сообщая ник,дату и тему на сайте gogle где вы разместили задание Вы согласны на оплату. Время выполнения 1 задачи около полчаса. pascaldelphi@rambler.ru

Дано натуральне число: - знайти суму його цифр; - чи правильно, що число починається і закінчується однією і тією самою цифрою?

program pr1(input,output); var N,l,i,cc,ccc:integer; s,c,c1:string; sum:integer; begin writeln('Введіть натуральне число'); readln(n); str(n,s);{перетворюємо цифру в строку } l:=length(s);{довжина числа} writeln('Довжина числа ',n:9,' дорівнює',l:9); sum:=0;{сума цифр} for i:=1 to l do begin c:=copy(s,i,1);{вирізаєм по цифрі } val(c,cc,ccc);{перетворюємо в цифру} sum:=sum+cc;{підсумовуємо} end; writeln('Сума цифр числа ',n:9,' дорівнює:',sum:10); c:=copy(s,1,1);{перша цифра} c1:=copy(s,l,1);{остання цифра} if c=c1 then writeln('equal цифри співпадають') else writeln('non equal цифри не співпадають'); end.

Как видно комментарии пишутся часто и понятно

=========================================================================================================================

---

Оставьте свой заказ	Все поля обязательны,чтобы не переписывать задание
ИМЯ:
email и телеф(не будет отображаться):
Текст задачи или сообщение:

Книга заказов

================================================== Ім'я: bones911 Дата: 24.01.2012 19.40.51 IP: 82.207.68.54 Браузер: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; MRSPUTNIK 2, 4, 0, 463; BTRS122155; помогите вычислить сумму ряда с заданной точностью вывести сумму и количество элементов program recur(input,output); function step2(n:integer):integer;{функция степени 2-ки} var i,p:integer; begin p:=1; for i:=1 to n do p:=p*2; step2:=p; end; function f(n:integer):real;{функция ряда} begin f:=1/(step2(n)*(3*n-2)); end; procedure main(eps:real);{процедура расчетов,считать будем 2 раза} var y:real; n:integer; begin n:=1;{начинаем береборку с первого члена} y:=0;{начальная сумма ряда} while f(n)>eps do{пока текущий член больше допуска(eps)} begin y:=y+f(n); n:=n+1; end; n:=n-1;{'это количество посчитанных членов ряда} writeln('================================='); writeln('Заданная точность eps=',eps:1:5); writeln('Посчитано елементов N=',N:3); writeln('Сумма ряда y=',y:2:5); end; begin {а теперь просто 2 раза для разных eps вызываем главн проц} main(0.01); main(0.001); writeln; writeln('visit vatutino.fd0.ру'); end.

================================================== Ім'я: Александр Дата: 30.11.2011 20.55.40 IP: 91.90.22.138 Браузер: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB7.2; .NET4.0C; .NET4.0E; .NET CLR Последовательность чисел(массив). после каждого максимального эл-та ставить минимальный эл-т. Результаты Введите N[ 1]=1 Введите N[ 1]=5 Введите N[ 1]=3 Введите N[ 1]=8 Введите N[ 1]=6 Введите N[ 1]=4 Введите N[ 1]=5 Введите N[ 1]=6 Введите N[ 1]=3 Введите N[ 1]=8 Введенный массив 1 5 3 8 6 4 5 6 3 8 преобразованный массив 8 1 8 3 6 3 6 4 5 5 Program a(input,output); Var n:array [1..10] of integer; i,k,swap,iswap,imax,max,imin,min:integer; function minindex(ip:integer):integer;{ip-номер масива з якого шукати мін єл} var imin,min,i:integer; begin min:=n[ip]; imin:=ip; for i:=ip to 10 do begin if n[i]<=min then begin min:=n[i]; imin:=i; end;{if} end;{for} minindex:=imin; end; function maxindex(ip:integer):integer;{ip-номер масива з якого шукати макс ел} var imax,max,i:integer; begin max:=n[ip]; imax:=ip; for i:=ip to 10 do begin if n[i]>max then begin max:=n[i]; imax:=i; end;{if} end;{for} maxindex:=imax; end; Begin for i:=1 to 10 do begin write('Введите N[',i:2,']='); readln(N[i]); end; writeln('Введенный массив'); for i:=1 to 10 do write(n[i],' '); for i:=1 to 10 do begin if odd(i) then begin imax:=maxindex(i);{обмен макс} max:=n[imax]; n[imax]:=n[i]; n[i]:=max; end else begin imin:=minindex(i);{обмен мин} min:=n[imin]; n[imin]:=n[i]; n[i]:=min; end;{else} end; writeln; writeln('Преобразованный массив'); for i:=1 to 10 do write(n[i],' '); end.

================================================== Ім'я: Александр Дата: 30.11.2011 16.51.42 IP: 91.90.22.138 Браузер: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB7.2; .NET4.0C; .NET4.0E; .NET CLR Володя приготовь фотки для сайта

================================================== Ім'я: Олександр Дата: 04.11.2011 21.12.53 IP: 91.90.22.138 Браузер: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB7.1; .NET4.0C; .NET4.0E; .NET CLR для reif 08/11/2011 Дано натуральнное число: - Найти суму его цифр; - правильно ли что число начинается и заканчивается одной и той же цифрой? program pr1(input,output); var N,l,i,cc,ccc:integer; s,c,c1:string; sum:integer; begin writeln('Введіть натуральне число'); readln(n); str(n,s);{перетворюємо цифру в строку } l:=length(s);{довжина числа} writeln('Довжина числа ',n:9,' дорівнює',l:9); sum:=0;{сума цифр} for i:=1 to l do begin c:=copy(s,i,1);{вирізаєм по цифрі } val(c,cc,ccc);{перетворюємо в цифру} sum:=sum+cc;{підсумовуємо} end; writeln('Сума цифр числа ',n:9,' дорівнює:',sum:10); c:=copy(s,1,1);{перша цифра} c1:=copy(s,l,1);{остання цифра} if c=c1 then writeln('equal цифри співпадають') else writeln('non equal цифри не співпадають'); end.

Всего посещений   177 Посещений за последний день   16

Для связи: Александр Попов pascaldelphi@rambler.ru

TAG:'Решение,задачи,задачі,завдання,паскаль,программирование,Pascal,Delphi,FoxPro,напишу,программу,Ватутино'