Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:На форме помимо прочих компонентов лежат
DateTimePickerData и Edit. В первый вноситься дата рождения клиента, во второй необходимо что бы заносилось полное количество лет на сегодняшний день! Помогите с кодом.

Ответ № 275857

Здравствуйте, 08101967!
Можно так сделать:
[code] uses
DateUtils;
procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
y: integer;
begin
y:= YearsBetween(date, DateTimePicker1.Date);
edit1.Text:= IntToStr(trunc(Y));
en...

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Написать тексты программ на языке Паскаль

1. Вычисление суммы четных натуральных чисел в интервале от 1 до n.
(3 варианта программ - с использованием цикла WHILE, цикла REPEAT и цикла FOR). n ввести со стандартного ввода. Значение cум...

Ответ № 274189

Здравствуйте, nata!
1 задание с циклом for:

programm sum_for
 
var 
  i, n, sum: integer;
   
begin 
  readln(n);
  sum:= 0;
  for i:= 1 to n do 
    if i mod 2 = 0 then 
      sum:= sum + i;
  write(sum);
end;

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
В Pascal составьте самую простую программу, которая рисует отрезок с координатами концов (100, 100), (100, 200), если введено число 1, и рисует окружность с центром (200, 100) и радиусом 50, если введено число 2.

Ответ № 274136

Здравствуйте, svrvsvrv!
Предлагаю свой вариант решения задачи.
[code lang=pascal]program Draw;

uses
Graph, Crt; { Подключаем модуль }

var
Gd, Gm, x: integer;

begin
Gd:= Detect;
{Инициализируем графический режим}
InitGraph(Gd, Gm...

Здравствуйте! Прошу помощи в следующем вопросе:
написать программу на языке Паскаль:
Найдите количество элементов массива с целым и и дробным \и
значениями

Ответ № 273829

Здравствуйте, amelya.kuro!
Такой вариант:
[code lang=pascal]var
x: array[1..10] of real;
i, a, b: integer;
begin
a:= 0;
b:= 0;
{создаем массив x}
writeln('vvedite chisla massiva');
for i:= 1 to 10 do
readln(x[i]);
for i:= 1 to 10 do
...

Здравствуйте! Прошу помощи в следующем вопросе:
написать программу на языке Паскаль: В массиве X поменяйте местам и соседние элементы каждой
пары и выведите новый массив.

Ответ № 273828

Здравствуйте, amelya.kuro!
Такой вариант:
[code lang=pascal]var
x, y: array[1..10] of integer;
i: integer;
begin
{создаем массив x}
for i:= 1 to 10 do
begin
x[i]:= random(10);
write(x[i]:3);
end;
writeln;
{создаём новый массив y}...

Здравствуйте! У меня возникли сложности с таким вопросом:

написать программу на языке Паскаль: Создайте массив Y из отрицательных элементов массива Х и
массив Z, из положительных элементов массива Х . Вы ведите новые масси-
вы на экран.

Ответ № 273827

Здравствуйте, amelya.kuro!
Код:
[code lang=pascal]var
x: array[1..10] of integer;
y, z: array of integer;
i, a, b: integer;
begin
a:= 1;
b:= 1;
{создаем массив a}
writeln('vvedite chisla massiva');
for i:= 1 to 10 do
begin
read...

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

написать программу на языке Паскаль: Дан массив X , создайте массив Y , состоящий из элементов,
имеющих четные номера и массив Z, состоящий из элементов, имеющих
нечетные ном ера. Вы ведите массивы Y и Z на экран.

Ответ № 273826

Здравствуйте, amelya.kuro!
Мой вариант:
[code lang=pascal]var
x: array[1..10] of integer;
y, z: array of integer;
i, a, b: integer;
begin
a:= 1;
b:= 1;
{создаем массив a}
for i:= 1 to 10 do
begin
x[i]:= random(10);
write(x[i]:3);

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

написать программу на языке Паскаль: Создайте массив В из простых элементов массива А .

Ответ № 273825

Здравствуйте, amelya.kuro!
Могу предложить такой вариант:
[code]var
a: array[1..10] of integer;
b: array of integer;
i, x, y, j: integer;
begin
j:= 1;
{создаем массив a}
for i:= 1 to 10 do
begin
a[i]:= random(10);
write(a[i]:3);
...

Здравствуйте! Прошу помощи в следующем вопросе:


написать программу на языке Паскаль:
В массиве найдите элементы , корни кубические из которых,
являлись бы целыми числами, и выведите эти элементы на экран.

Ответ № 273824

Здравствуйте, amelya.kuro!
Могу предложить такой вариант:
[code]var
a: array[1..10] of integer;
i: integer;
kor: real;
begin
{создаем массив a}
for i:= 1 to 10 do
begin
a[i]:= random(100);
write(a[i]:3);
end;
writeln;
{ищем ...

Здравствуйте! У меня возникли сложности с таким вопросом:

написать программу на языке Паскаль:
Найдите суммы элементов массива четных и нечетных пози-
ций.

Ответ № 273822

Здравствуйте, amelya.kuro!
Можно так:
[code lang=pascal]{$APPTYPE CONSOLE}

uses
SysUtils;

var
a: array[1..10] of integer;
i, x, y: integer;
begin
x:= 0;
y:= 0;
{создаем массив a}
for i:= 1 to 10 do
begin
a[i]:= random(100);

Здравствуйте! У меня возникли сложности с таким вопросом:

написать программу на языке Паскаль: Создайте массив В из преобразованных по формуле cos(a[i])
элементов массива А .

Ответ № 273821

Здравствуйте, amelya.kuro!
Как-то так. [code lang=pascal]var
a: array[1..10] of integer;
b: array[1..10] of real;
i: integer;
begin
{создаем массив a}
for i:= 1 to 10 do
begin
a[i]:= random(100);
write(a[i]:3);
end;
writeln;
{п...

Здравствуйте! Прошу помощи в следующем вопросе:


cоставить блок-схему по программе
Напишите программу, увеличивающую каждый элемент матрицы
А(n,m)в 3 раза и сохраняющую результат в виде второй матрицы.
собственно программа ниже
[code lang=pascal h=200]const
n=5;
m=6...

Ответ № 273818

Здравствуйте, amelya.kuro! Блок-схема в прикреплённом файле.

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

cоставить блок-схему по программе
Найдите сумму первого и последнего, второго и предпоследнего и
т.д. элементов массива A(N).. Выведите суммы на экран.
собственно программа ниже
[code lang=pascal h=200]co...

Ответ № 273817

Здравствуйте, amelya.kuro! Блок-схема в прикреплённом файле.

Здравствуйте! Прошу помощи в следующем вопросе:

Подскажите что в коде не правильно.
По задумке должен грузить в цикле данные из XML файлов в Excel. Грузит только первую строчку, а дальше вываливает Access violation.

[code]
procedure TForm1.LoadXmlBtnClick(Sender: TObject);
va...

Ответ № 273814

Здравствуйте, solovejkl2! Измените код

xml := TXMLDocument.Create(nil);

xml := TXMLDocument.Create(Application);

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

Найти наименьшие элементы и их порядковые номера массивов А(5) и
В(10). Pascal, и если нетрудно блок-схему

Ответ № 273813

Здравствуйте, amelya.kuro! Вот программа, а блок-схема в прикреплённом файле: [code lang=pascal h=300] program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
n = 5;
m = 10;
var
a: array [1..n...

Здравствуйте! Прошу помощи в следующем вопросе:
Есть задача для Pascal: Заполнить файл assort, содержащий сведения об игрушках: указывается название игрушки, ее стоимость в рублях и возрастные границы ( например, игрушка может предназначаться для детей от 2 до 5 лет). Получить название игрушек, ц...

Ответ № 273710

Здравствуйте, almazmr!
Вот пример для PascalABC.NET с использованием типизированного файла. Данные для файла вводятся в виде:
машинка
120
3-6
кукла
140
5.
После первого запуска программы и формирования файла можно за комментировать блок формирования файла и программа будет ра...

Уважаемые эксперты! Пожалуйста, ответьте на вопрос: выдает такую ошибку, в чем проблема?

Ответ № 273694

Здравствуйте, vadim4495!
Первая ошибка (46,19) говорит о том что идентификатор next продублирован в описании переменных (наверное такая же переменная есть и в описании глобальных переменный). Вторая ошибка (53, 9) говорит о том что несовместимый тип переменной, ожидается тип longint (next у Вас о...

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Как можно сделать чтобы при включении таймера в делфи данные как время включения таймера и день автоматически вводились в базу данных.

Ответ № 273216

Здравствуйте, arujan.nurlankul23!
Можно по нажатию кнопки запуска таймера написать

 ADOTable1.FieldByName('время старта таймера').AsDateTime:= Time;
  ADOTable1.FieldByName('дата старта таймера').AsDateTime:= Date;

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Чтобы связать Делфи и аксесс нужен аксесс 2002-2003. Но в этом аксесс 2002-2003 нет типа вычисляемый. Что делать? (Например сумма= количество * цена)

Ответ № 273215

Здравствуйте, arujan.nurlankul23!
Нужные вычисления можно делать в самой программе, а в базу заносить только результат вычислений, данные для формулы можно брать из самой базы.

Здравствуйте! Прошу помощи в следующем вопросе:
у меня в программе есть радиогрупп. И через него осуществляется фильтрация.
procedure TForm5.SpeedButton5Click(Sender: TObject);
begin
case RadioGroup2.ItemIndex of
0: datamodule24.posmotr.Filter := 'ФИО';
1: data...

Ответ № 273209

Здравствуйте, arujan.nurlankul23!
Предлагаю такой способ, при помощи запроса, по мере введения очередного символа будет сокращаться список значений поиска. В событие edit пишем: [code]procedure TForm1.Edit1Change(Sender: TObject);
var id: string;
begin
case RadioGroup2.ItemIndex of // ...