25.10.2020, 19:03 [+3 UTC]
в нашей команде: 4 791 чел. | участники онлайн: 6 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.93 23.10.2020
JS 1.48 | CSS 3.42

Общие новости:
09.10.2020, 16:55

Форум:
23.10.2020, 12:41

Последний вопрос:
25.10.2020, 18:31
Всего: 153090

Последний ответ:
25.10.2020, 12:54
Всего: 260506

Последняя рассылка:
25.10.2020, 18:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
21.10.2020, 11:41 »
Dan2206
Большое спасибо! Приятно, что существуют люди, готовые помочь. [вопрос № 199348, ответ № 280219]
18.04.2020, 13:54 »
dar777
Это самое лучшее решение! [вопрос № 198186, ответ № 279712]
11.06.2020, 17:24 »
dar777
Это самое лучшее решение! [вопрос № 198855, ответ № 279994]
 
   
Просмотр сообщений мини-форумов - almazmr
• Pascal / Delphi / Lazarus
Вопрос № 190431 ушел в рассылку

Помогите преобразовать код под PascalABC.NET
Как я понял, на данный момент он заточен под Turbo Pascal
Суть программы - шифр Трисемуса

[code]uses crt;
var
password,codeline,original:string;
i:integer;
c:char;
procedure CodeDecode(x:integer);
var
j:integer;
begin
codeline:='';
{выводим оригинальную строку}
writeln(original);
for i:=1 to length(original)do
begin
{считаем корректирующее число}
j:=8*((1-x + pos(original[i],password)div 8)and 3)
+...


Автор вопроса: almazmr (Посетитель)
Дата отправки вопроса: 15.01.2017, 18:43
• Pascal / Delphi / Lazarus
Вопрос № 189568 ушел в рассылку

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

Имеется задача для Delphi:
Заполните список игрушек, некоторые из которых имеются в N детских садах.
Определить игрушки из списка:
которых нет ни в одном из детсадов;
которые есть в каждом из детсадов.

У меня так получилось:
[code]unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;

type
TForm2 = class(TForm)
Button1: TButton;
Memo1: TMemo;<...


Автор вопроса: almazmr (Посетитель)
Дата отправки вопроса: 10.06.2016, 16:07
• Pascal / Delphi / Lazarus
Вопрос № 189547 ушел в рассылку

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

В Паскале:

for i:=1 to n do
write(a)


Как этот цикл можно реализовать в Delphi?

Memo1.Lines.Add - пишет каждый раз с новой строчки

Label1.Caption - При присвоении не сохраняет прежние числа

Автор вопроса: almazmr (Посетитель)
Дата отправки вопроса: 03.06.2016, 17:48
• Pascal / Delphi / Lazarus
Вопрос № 189470 ушел в рассылку

Здравствуйте! У меня возникли сложности с таким вопросом:
Помогите найти ошибку. В консольном режиме всё получалось, а когда я сделал с интерфейсом, то он не учитывает то, что я ввожу в edit1 .

[code]unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, math, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

v...


Автор вопроса: almazmr (Посетитель)
Дата отправки вопроса: 22.05.2016, 18:25
• Pascal / Delphi / Lazarus
Вопрос № 189348 ушел в рассылку

Здравствуйте! Помогите перевести программу с Pascal на delphi

Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Из файла f получить файл g, исключив повторные вхождения чисел. Порядок следования чисел сохранить.

[code]program xx;
var f,g:file of integer;
a:set of byte;
n,i,x:integer;

begin
a:=[];
assign(f,'input.txt');
assign(g,'output.txt');
rewrite(f);
rewrite(g);
Write('Сколько чисел записать? ');
readln(n);
randomize;
For i:=1 to n do
begin
...


Автор вопроса: almazmr (Посетитель)
Дата отправки вопроса: 11.05.2016, 21:47
• Pascal / Delphi / Lazarus
Вопрос № 189254 ушел в рассылку

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

Помогите реализовать её через файл



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

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.16267 сек.

2001-2020, Портал RFPRO.RU
Калашников О.А.  |  Гладенюк А.Г.
7.93    23.10.2020
JS 1.48 | CSS 3.42