Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 21.01.2020
Сообщений: 42

Написать код программы в PascalABC.net

02.02.2020, 19:40. Показов 2065. Ответов 4

Студворк — интернет-сервис помощи студентам
Помогите, пожалуйста, написать программу.
Появляютться три кнопки. На первой написанно "1". На второй "2". На третьей "3". Если нажимаешь первую кнопку. Пишется "Тест" и появляюся две кнопки "ДА" и "Нет". Заранее, спасибо. Можно использовать любые модули. Если не сложно, объясните как это работает.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
02.02.2020, 19:40
Ответы с готовыми решениями:

Написать 4 программы на языке PascalABC.NET
Здравствуйте, помогите пожалуйста написать 4 программы на языке PascalABC.NET, очень срочно! Задание смотрите во вложении. 2-ой вариант.

Написать программы на PascalABC(.Net/или обычный)
Приветствую многоуважаемые товарищи программисты... Прохожу практику в техническом колледже,паскаль дельфи и т.п... В общем в конце...

Изменить код на код PascalABC.NET (roguelike)
Всем привет.Есть проблема. Сам давно мечтаю написать свой рогалик. После многомесячных поисков исходников и продумывания ролевой системы...

4
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
02.02.2020, 20:10
Лучший ответ Сообщение было отмечено Mamora как решение

Решение

Можно так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses GraphABC, ABCButtons;
var a:array[1..5] of ButtonABC;
procedure P;
begin
a[1].Text:='Тест';
a[4]:=new ButtonABC(100,150,100,40,'Да',clRed);
a[5]:=new ButtonABC(200,150,100,40,'Нет',clRed);
end;
 
begin
for var i:=1 to 3 do
a[i]:=new ButtonABC(i*100,50,100,40,inttostr(i),clLime);
a[1].OnClick:=P;
end.
Добавлено через 50 секунд
Почитать.
https://ru.wikibooks.org/wiki/... ABCButtons
0
0 / 0 / 0
Регистрация: 21.01.2020
Сообщений: 42
02.02.2020, 20:20  [ТС]
Спасибо, но я не до конца объяснил первые кнопки должны исчезнуть
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
02.02.2020, 20:34
Лучший ответ Сообщение было отмечено Mamora как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
procedure P;
begin
for var i:=3 downto 1 do
a[i].Destroy;    
a[4]:=new ButtonABC(100,150,100,40,'Да',clLime);
a[5]:=new ButtonABC(200,150,100,40,'Нет',clLime);
setbrushstyle(bsClear);//очистим экран
textout(100,100,'Тест');//выведем текст
end;
1
Alvin Seville
 Аватар для Соколиный глаз
343 / 273 / 134
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 22
03.02.2020, 04:10
Mamora, если хотите - можете использовать Windows Forms для написания оконных приложений, дизайнер форм встроенный имеется.

Introduction to C# Windows Forms Applications
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
03.02.2020, 04:10
Помогаю со студенческими работами здесь

Перевести код с Си на PascalABC.NET
У меня такая проблема, есть программа на си а еще нужно написать на паскале (Паскаль АБЦ.нет), и никак не могу так как Паскаль я не очень...

Исправить код для PascalABC.net
как минимум, первое место которое ему не нравиться это как я обьявляю тип объект const size=10; type pvec=^vec; ...

Как написать сервер на PascalABc.net?
Хочу написать чат на базе PascalABC.net, но не знаю, как написать сервер. Позже скорее всего напишу онлайн-игру.

Компилятор PascalABC.NET не сохраняет код в редакторе форм
Здравствуйте! Подскажите, пожалуйста! Есть проект Project1. В нем unit, который называется Graphics.pas . Вставляю в unit Graphics код....

Как написать блок-схему на программу PascalABC.NET?
uses crt; type mat=array of integer; const n=5; m=7; var a:mat; // определяет количество столбцов, содержащих...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru