Delphi заготовки

  {
  Произведение элементов массива, расположенных между максимальным и минимальным элементами.
}
uses crt;
const MaxNcount=1000; // размер массива
type
  TarrayInt=array [1..MaxNcount] of integer;


var b:TArrayInt; // массив элементов
    bcount:integer;
    
//1) заполнение массива случайными числами из заданного интервала;
procedure CreateArray(var a:TArrayInt;Ncount:integer);
var i:integer;
begin
randomize;// инициализация
  for i:=1 to ncount do  a[i]:=1+random(5);
end;
//2) вывод массива на экран;
Function ShowArray(const a:TArrayInt;Ncount:integer):string;
var s:string;
    i:integer;
begin
s:='';
 for i:=1 to ncount-1 do
 if s='' then s:=s+inttostr(a[i])
 else
  s:=s+','+inttostr(a[i]);
  result:=s;
end;
//3) заполнение массива нулями (инициализация);
procedure CreateArrayInit(var a:TArra ... Читать дальше »

Для решения некоторых задач часто приходится использовать в программах возможность получения информации из сети интернет.
пример такой задачи получение внешнего IP адреса компьютера

Будем получать информацию с сайта
http://www.myip.ru/get_ip.php

как видим из исходного примера IP адрес храниться между тегами 

 <TR><TD bgcolor=white align=center valign=middle>
и </TD></TR>

напишем не большую процедуру для скачивания информации из интернета
... Читать дальше »

Формат записи:
  Клавиша/Назначение

Ctrl + J Выбор code-template. Вставка шаблона кода. Можно вставлять типовые шаблоны, а можно написать свои собственные. При нажатии Ctrl + J, будет показан список шаблонов. Либо можно набрать несколько букв из имени шаблона, чтобы ограничить выбор, либо полное имя шаблона и нажать комбинацию - шаблон сразу вставится. Например набираем try и жмём. Нам предложат варианты конструкции try. Или набираем classc, жмём - получаем готовую заготовку для описания класса.

Ctrl + Shift + C Class Completion. Одна из важнейших комбинаций при описании класса. Закончив базовое описание класса, нажимаем комбинацию. Автоматически создадутся все описанные методы в разделе implementation, для всех property создадутся приватные поля и сеттеры.


Ctrl + пробел Вызов CodeCompletion (того, который автоматом появляется после нажатия точки после имени объекта/класса). При нажатии на пустом месте, показывает объекты/ ... Читать дальше »

{
Сформировать линейный массив из 30 случайных чисел в интервале от -16 до 16.
1.Найти среднее арифметическое положительных элементов.
2.Все элементы, кратные 3 заменить удвоенным значением этих элементов и скопировать в новый массив.
3. В новом массиве найти номер и значение минимального элемента. Все результаты вывести на экран
}
uses crt;
const MaxNcount=1000; // размер массива
type
  TarrayInt=array [1..MaxNcount] of integer;


var a,b:TArrayInt; // массив элементов
    Acount:integer; // размер массива А
    Bcount:integer;  // размер массива B

//1) заполнение массива случайными числами из заданного интервала;
procedure CreateArray(var a:TArrayInt;Ncount:integer);
var i:integer;
begin
randomize;// инициализация
  for i:=1 to ncount-1 do  a[i]:=-16+random(16+16);
end;

Function ShowArray(const a:TArrayInt;Ncount:integer):string;
var s:string;
   ... Читать дальше »

{
задача:
  сформировать линейный массив из 12 случайных чисел в интервале
от -15 до 15.
1. Найти кол-во элементов, больших 10 и скопировать в новый массив.
2. Все отрицательные элементы заменить утроенным значением этих элементов,
3. найти среднее арифметическое значение отрицательных элементов.
4. В новом массиве найти сумму элементов с нечетными номерами. Все результаты вывести на экран.
}
uses crt;
const MaxNcount=1000; // размер массива
type
  TarrayInt=array [1..MaxNcount] of integer;


var a,b:TArrayInt; // массив элементов
    Acount:integer; // размер массива А
    Bcount:integer;  // размер массива B

//1) заполнение массива случайными числами из заданного интервала;
procedure CreateArray(var a:TArrayInt;Ncount:integer);
var i:integer;
begin
randomize;// инициализация
  for i:=1 to ncount-1 do  a[i]:=-15+random(15+1+15);
end;
//2) вывод массива ... Читать дальше »

задача
1.найти самую короткую группу нулей в строке
2.подсчитать количество символов в самой длинной группе,в строке,состоящей из групп нулей и едениц
3.подсчитать количество едениц,в группах с нечетным количеством символов
4.вывести на экран числа строки,состоящей из произвольных десятичных цифр
5.вывести на экран,четные числа строки
6.вывести на экран порядковый номер слова максимальной длинны
7.подсчитать количество символов в самой короткой группе,в строке,состоящей из групп нулей и едениц
8.вывести на экран порядковый номер слова,минимальной длинны
9.заменить в каждом слове первую букву на прописную
10.поменять местами первую и последнюю букву в каждом слове
11.вывести на экран только строчные латинские буквы
12.удалить первую букву каждого слова
13.вывести на экран нечетные числа строки
14.вывести на экран только прописные латинские буквы
15.вывести на экран самую короткую группу едениц в строке
16.удалить последнюю букву кажого сл ... Читать дальше »

Задачи на языке Pascal
Для каждой из букв введённого с клавиатуры текста указать, сколько раз она встречается в тексте.


program jka2;
uses crt;
var
s:string;
x:integer;
abc: array [0..255] of integer;
Begin
writeln('Введите текст: ');
readln(s);
For x:=1 to 255 do abc[x]:=0;
For x:=1 to length(s)do
 begin
   if ((s[x]>='А') and (s[x]<='Я')) or ((s[x]>='а') and (s[x]<='я'))
   or ((s[x]>='a') and (s[x]<='z')) or ((s[x]>='A') and (s[x]<='Z')) then
    abc[ord(s[x])]:=abc[ord(s[x])]+1;
 end;
 For x:=32 to 255 do if abc[x]>0 then writeln('буква "',chr(x),'" встречается ',abc[x],' раз(а)');


End.

Одномерный массив
Задача.

Переместить минимальные элементы в начало, сдвинув остальные элементы вправо.



исходник для работы с одномерным массивом на pascal / delphi
const ncount=25; // размер массива

var a:array [1..ncount] of integer; // массив элементов

procedure CreateArray;
var i:integer;
begin
randomize;// инициализация
  for i:=1 to ncount-1 do  a[i]:=random(150);
end;
// функция поиска минимального элемента
Function GetMin:integer;
var i:integer; // переменная
    MinA:integer;
begin
  MinA:=a[1];
  for i:=1 to ncount-1 do
     if MinA>a[i] then MinA:=a[i];
  result:=MinA;
end;
// возвращает index минимального элемента
Function GetMinIndex:integer;
var i:integer; // переменная
    MinA:integer;
begin
  MinA:=a[1];
  result:=1;
  for i:=1 to ncount-1 do
    ... Читать дальше »

на основании статьи

http://www.ua.all.biz/guide/barcodes/

{
Пример вычисления контрольной цифры для определения подлинности товара
1. Сложить цифры, стоящие на четных местах:
8+0+2+7+0+1=18
2. Полученную сумму умножить на 3:
18x3=54
3. Сложить цифры, стоящие на нечетных местах, без контрольной цифры:
4+2+0+4+0+0=10
4. Сложить числа, указанные в пунктах 2 и 3:
54+10=64
5. Отбросить десятки:
получим 4
6. Из 10 вычесть полученное в пункте 5:
10-4=6
 }




// проверка на истиность штрихкода
Function TrueCode(codeText:string):boolean;
var x:integer;
    s1,s2,s3,s4,s5:integer;
begin
s1:=0;s3:=0;
for x:=1 to length(codeText)-1 do
 if x mod 2=0 then begin
 s1:=s1+strtoint(codeText[x])
 end else begin
 s3:=s3+strtoint(codeText[x]);
 end;
 s2:=s1*3;
 s4:=s3+s2;
 s5:=s4 mod 10;
 result:=(strtoint(codeText[length(cod ... Читать дальше »