Составить графическую программу по коду в лазарусе

@student 1020 · Регистрация: 01.10.2014

Студворк — интернет-сервис помощи студентам

Помогите составить графическую программу по коду в лазарусе)))

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program n2;
var
a,b,c,d:integer;
begin
write ('Skolko deneg');
read(a);
write ('Stoimost odoi edenici tovara');
read(b);
d:=a div b;
c:=a mad b;
writeln ('Kolichestvo pokypok ',d);
writeln('Sdacha',c);
readln;
readln;
end.

KOPOJI · 10.10.2014, 14:00

а что не так с этой программой в лазарусе? Ну, при условии того, что написано "mod" вместо "mad"..

@volvo · 10.10.2014, 14:30

Консольная она, а ТС-у надо с формочкой...

@edukra · 10.10.2014, 16:24

Сообщение от UI

Консольная она, а ТС-у надо с формочкой...

Не по теме:

причем он эту тему уже создавал, только с тремя заданиями, я выложил видео экрана с решением первой задачи. Вторую он сделал по аналогии с первой, т.к. там тоже вводилось одно значение и выводилось одно и нужно было только поменять формулу, а в этом задании вводится два значения и выводится два, а поместить на форму 2 едита он никак не догадается :)

@student 1020 · 12.10.2014, 09:19 **[ТС]**

В чем ошибка все ведь правильно сделал Новая папка (7).rar

@Puporev · 12.10.2014, 09:58

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d:integer;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
d:=a div b;
c:=a mod b;
Label5.Caption:=IntToStr(d);
Label6.Caption:=IntToStr(c);
end;
 
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

KOPOJI Почетный модератор 16844 / 6724 / 880 Регистрация: 12.06.2012 Сообщений: 19,967
	10.10.2014, 14:00
	а что не так с этой программой в лазарусе? Ну, при условии того, что написано "mod" вместо "mad".. 0

@volvo Супер-модератор 33378 / 21502 / 8236 Регистрация: 22.10.2011 Сообщений: 36,899 Записей в блоге: 11
	10.10.2014, 14:30
	Консольная она, а ТС-у надо с формочкой... 0

@student 1020 0 / 0 / 0 Регистрация: 01.10.2014 Сообщений: 23
	12.10.2014, 09:19 [ТС]
	В чем ошибка все ведь правильно сделал Новая папка (7).rar 0

Составить графическую программу по коду в лазарусе

Решение