22.09.2020, 16:36 [+3 UTC]
в нашей команде: 4 739 чел. | участники онлайн: 4 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.90 (14.08.2020)
JS-v.1.45 | CSS-v.3.39

Общие новости:
13.04.2020, 00:02

Форум:
22.09.2020, 16:18

Последний вопрос:
22.09.2020, 16:24
Всего: 152904

Последний ответ:
21.09.2020, 17:53
Всего: 260430

Последняя рассылка:
22.09.2020, 06:45

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

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

Наша кнопка:

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

Отзывы о нас:
13.03.2010, 00:21 »
MrSpencer
Спасибо большое за подробнейшее объяснение решения! [вопрос № 177197, ответ № 260069]
21.09.2009, 22:05 »
Боричева Яна Владимировна
Восхитительно! Вашему уму можно только позавидовать (в хорошем смысле этого слова)! Большое спасибо Вам за помощь. [вопрос № 172429, ответ № 254478]
14.03.2020, 16:23 »
dar777
Это самое лучшее решение! [вопрос № 197949, ответ № 279567]
 
   
Просмотр сообщений мини-форумов - 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
Rambler's Top100

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

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

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.90 от 14.08.2020
Версия JS: 1.45 | Версия CSS: 3.39