Родились сегодня:
князь


Лидеры рейтинга

ID: 226425

Konstantin Shvetski

Модератор

980

Россия, Северодвинск


ID: 165461

Лангваген Сергей Евгеньевич

Советник

687

Россия, Московская обл.


ID: 398750

Елена Васильевна

Специалист

401

Беларусь, Гомель


ID: 401284

Михаил Александров

Академик

270

Россия, Санкт-Петербург


ID: 400669

epimkin

Профессионал

210


ID: 401888

puporev

Профессор

163

Россия, Пермский край


ID: 137394

Megaloman

Мастер-Эксперт

144

Беларусь, Гомель


8.4.0

08.03.2021

JS: 2.5.0
CSS: 4.4.5
jQuery: 3.5.1
DataForLocalStorage: 2021-03-09 00:16:01-standard


 
 
Просмотр ответов эксперта Евгений/Genia007/ (Профессионал)
• Pascal / Delphi / Lazarus
Вопрос № 192150 ушел в рассылку

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


Автор вопроса: 08101967 (1-й класс)
Дата отправки вопроса: 18.12.2017, 06:08

Ответ № 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...


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 18.12.2017, 11:58
• Pascal / Delphi / Lazarus
Вопрос № 189922 ушел в рассылку

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

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


Автор вопроса: nata (Посетитель)
Дата отправки вопроса: 24.10.2016, 07:51

Ответ № 274189

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

Код (Pascal) :: выделить код
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;

1 задание с циклом...
Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 26.10.2016, 08:27
• Pascal / Delphi / Lazarus
Вопрос № 189851 ушел в рассылку

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


Автор вопроса: svrvsvrv (Посетитель)
Дата отправки вопроса: 05.10.2016, 21:11

Ответ № 274136

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

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

var
Gd, Gm, x: integer;

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


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 09.10.2016, 10:08
• Pascal / Delphi / Lazarus
Вопрос № 189410 ушел в рассылку

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


Автор вопроса: amelya.kuro (Посетитель)
Дата отправки вопроса: 18.05.2016, 17:01

Ответ № 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
...


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 18.05.2016, 21:01
• Pascal / Delphi / Lazarus
Вопрос № 189418 ушел в рассылку

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


Автор вопроса: amelya.kuro (Посетитель)
Дата отправки вопроса: 18.05.2016, 17:10

Ответ № 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}...


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 18.05.2016, 20:41
• Pascal / Delphi / Lazarus
Вопрос № 189417 ушел в рассылку

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

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


Автор вопроса: amelya.kuro (Посетитель)
Дата отправки вопроса: 18.05.2016, 17:09

Ответ № 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...


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 18.05.2016, 20:30
• Pascal / Delphi / Lazarus
Вопрос № 189416 ушел в рассылку

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

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


Автор вопроса: amelya.kuro (Посетитель)
Дата отправки вопроса: 18.05.2016, 17:08

Ответ № 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);


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 18.05.2016, 20:22
• Pascal / Delphi / Lazarus
Вопрос № 189414 ушел в рассылку

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

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


Автор вопроса: amelya.kuro (Посетитель)
Дата отправки вопроса: 18.05.2016, 17:06

Ответ № 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);
...


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 18.05.2016, 20:09
• Pascal / Delphi / Lazarus
Вопрос № 189413 ушел в рассылку

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


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


Автор вопроса: amelya.kuro (Посетитель)
Дата отправки вопроса: 18.05.2016, 17:04

Ответ № 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;
{ищем ...


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 18.05.2016, 18:56
• Pascal / Delphi / Lazarus
Вопрос № 189411 ушел в рассылку

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

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


Автор вопроса: amelya.kuro (Посетитель)
Дата отправки вопроса: 18.05.2016, 17:02

Ответ № 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);


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 18.05.2016, 18:34
• Pascal / Delphi / Lazarus
Вопрос № 189415 ушел в рассылку

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

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


Автор вопроса: amelya.kuro (Посетитель)
Дата отправки вопроса: 18.05.2016, 17:07

Ответ № 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;
{п...


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 18.05.2016, 18:15
• Pascal / Delphi / Lazarus
Вопрос № 189407 ушел в рассылку

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


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


Автор вопроса: amelya.kuro (Посетитель)
Дата отправки вопроса: 18.05.2016, 16:52

Ответ № 273818

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


Есть прикрепленный файл
Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 18.05.2016, 17:27
• Pascal / Delphi / Lazarus
Вопрос № 189406 ушел в рассылку

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

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


Автор вопроса: amelya.kuro (Посетитель)
Дата отправки вопроса: 18.05.2016, 16:51

Ответ № 273817

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


Есть прикрепленный файл
Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 18.05.2016, 17:22
• Pascal / Delphi / Lazarus
Вопрос № 189368 ушел в рассылку

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

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

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


Автор вопроса: solovejkl2 (Посетитель)
Дата отправки вопроса: 14.05.2016, 22:36

Ответ № 273814

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

xml := TXMLDocument.Create(nil);
на
xml := TXMLDocument.Create(Application);
и всё будет работать.
[code lang=pascal h=250]procedure TForm1.LoadXmlBtnClick(Sender: TObject);
var
searchresult : TSearchRec;
i : SmallInt;...
Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 18.05.2016, 13:24
• Pascal / Delphi / Lazarus
Вопрос № 189369 ушел в рассылку

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

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


Автор вопроса: amelya.kuro (Посетитель)
Дата отправки вопроса: 15.05.2016, 09:12

Ответ № 273813

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

{$APPTYPE CONSOLE}

uses
SysUtils;

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


Есть прикрепленный файл
Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 18.05.2016, 08:04
• Pascal / Delphi / Lazarus
Вопрос № 189254 ушел в рассылку

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


Автор вопроса: almazmr (Посетитель)
Дата отправки вопроса: 24.04.2016, 11:28

Ответ № 273710

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


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 24.04.2016, 20:03
• Pascal / Delphi / Lazarus
Вопрос № 189203 ушел в рассылку

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


Автор вопроса: vadim4495 (Посетитель)
Дата отправки вопроса: 16.04.2016, 10:22

Ответ № 273694

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


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 20.04.2016, 07:50
• Pascal / Delphi / Lazarus
Вопрос № 188605 ушел в рассылку

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


Автор вопроса: arujan.nurlankul23 (Посетитель)
Дата отправки вопроса: 07.01.2016, 10:44

Ответ № 273216

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

 ADOTable1.FieldByName('время старта таймера').AsDateTime:= Time;
  ADOTable1.FieldByName('дата старта таймера').AsDateTime:= Date;
или всё вносить в одну запись сразу время и дату т...
Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 11.01.2016, 12:15
• Pascal / Delphi / Lazarus
Вопрос № 188604 ушел в рассылку

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


Автор вопроса: arujan.nurlankul23 (Посетитель)
Дата отправки вопроса: 07.01.2016, 10:41

Ответ № 273215

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


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 11.01.2016, 11:58
• Pascal / Delphi / Lazarus
Вопрос № 188620 ушел в рассылку

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


Автор вопроса: arujan.nurlankul23 (Посетитель)
Дата отправки вопроса: 09.01.2016, 09:26

Ответ № 273209

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


Автор ответа: Евгений/Genia007/ (Профессионал)
Дата отправки ответа: 09.01.2016, 12:51