Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Как сделать выбор аудио? mp3 Здорово :) Как сделать так чтобы при нажатие кнопки, вылез диалог выбора mp3 файлы, чтобы играл. https://www.cyberforum.ru/ delphi-beginners/ thread1534660.html	Как сделать панель задач как в Windows 7? Delphi Помогите создать панель задач как в Win7 с датой временем. За ранее спасибо:);)
Delphi Как сделать кнопку как в Windows "ПУСК" ? https://www.cyberforum.ru/ delphi-beginners/ thread1534551.html Делаю свое OC прошу помощи) За ранее спасибо. :)	Delphi TMemo TListBox OEM_CHARSET не работает Windows 7 x64 Добрый вечер, подскажите не отображает EOM текст в TMEMO и TListBox. Проверил на Delphi 7, Delphi 2007. Других нет. Хотя на Win XP в ListBox при выставленном ListBox1.Font.Charset := 255; точно работало. Нужно именно в Memo отобразить OEM текст (без перекодировок и т.д). Когда выставляешь шрифт Terminal всё нормально. Но мне нужен шрифт Courier New или Lucida Console, Tahoma. Может... https://www.cyberforum.ru/ delphi-beginners/ thread1534482.html
Ввести исходные данные из текстового файла, и вывести на экран в формате Delphi 1. Исходные величины представить в виде внешнего текстового файла, ввести их из файла и вывести на экран в формате. N=(2.5,3.6,-2.8,-1.9) m=21 a=1,9*10^-5 b=while c=if d=for	Delphi Парсинг https://www.cyberforum.ru/ delphi-beginners/ thread1534427.html procedure TForm3.sButton5Click(Sender: TObject); var item, item2:ISuperObject; gid:string; begin open:=tstringlist.create; sMemo1.Lines.Clear; STRtime:=TimeToSTR(Time); response:=send('GET', 'https://api.vk.com/method/groups.getById?group_id='+gid+'&fields=can_post&access_token='+token); if Pos('can_post', response)<>0 then
Delphi Транспортная задача в форме существуют 34 Edit'а по ходу выполнения программы их нужно занести в массив выглядит примерно так а примерно так выглядит мое решение with Form1 do for i := 0 to ComponentCount - 1 do begin if Components is TEdit then https://www.cyberforum.ru/ delphi-beginners/ thread1534412.html	Подсчет слов в memo Delphi Я сделал подсчет слов в мемо, взяв за основу пробелы и перенос на строку. Понимаю что если поставить два пробела или два переноса то весь результат испортится. Что нужно дописать, чтобы исправить это? procedure TForm1.Button2Click(Sender: TObject); var i,c:integer; begin label1.Caption := 'Количество строк '+ IntToStr(Memo1.Lines.Count); for i := 0 to length(memo1.text) do if...
Delphi чекбоксы вот тест с несколькими правильными ответами,допустим2 из 3, но я столкнулся с такой проблемой, что если в чекбоксе выбран хотя бы один правильный ответ из 3 он все равно записывает, как правильный ответ и ещё такой вопрос при нажатии на кнопку " повторить тест" надо что бы он обнулялся то, есть галочек в чекбосках не было. Если есть возможность, то можно с небольшими объяснениями по скайпу) https://www.cyberforum.ru/ delphi-beginners/ thread1534352.html	Delphi Delphi 10 как убрать фон Перешел на Delphi 10 c 7 версии,и вот сразу проблема. Надо сделать прозрачный фон у формы,так вот ставлю цвет формы красный использую Transparentcolor,убираю фон и ставлю borderstyle bsnon,в общем все как обычно. Далее пишу программу и когда закончил решил изменить внешний вид.На семерке было куча проблем с компонентом Alphaskins(собственно одна из причин перейти на 10 версию.) И нашел что в 10... https://www.cyberforum.ru/ delphi-beginners/ thread1534322.html
Delphi Сохранение текстового файла консольным приложением Подскажите, как создать консольное приложение, которое сохраняет текст набранный пользователем в текстовый файл	Delphi Webbrowser Click https://www.cyberforum.ru/ delphi-beginners/ thread1534273.html Есть код кнопки <a class="ulink" href="#" onclick="GetMyBets();return false;">My bets</a> Подскажите пожалуйста как на нее нажать Пробовал искать компонент, не знаю как задать критерии поиска ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements; for i := 0 to (ovElements.Length - 1) do if (ovElements.item(i).tagName = 'a class') and (ovElements.item(i).onclick...

GreeFF

0 / 0 / 0

Регистрация: 11.07.2013

Сообщений: 37

Написать программу по блок схеме - Delphi - Ответ 8095590

20.09.2015, 23:18. Показов 498. Ответов 1

Метки (Все метки)

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

Дали настолько мудреную блок схему, вообще не могу понять ее

Всего лишь найти наибольший делитель двух чисел, программу надо написать именно по этой фигне, в этом то и дело что не могу понять.
Вот че сделал, думал думал, недодумал..

Delphi

var
x,y,ost,max,min,del:integer;
begin
x:=strtoint(edit1.text);
y:=strtoint(edit2.text);
if x=y  then
 Label1.Caption:='Чила одинаковые'
else  begin
 if x>y then begin
  max:=x;
  min:=y;
 end
 else
  max:=y;
  min:=x;
end;
repeat begin
 ost:=max-min;
  if  ost>min then  begin
until max=ost
end
  else
   if ost=min then   begin
    del=ost;
    Label1.Caption:='del';
    end;
   end
   else
    repeat
     ost:=max-min;
     if  ost>min then
    until max:=ost;
end;

Вернуться к обсуждению:
Написать программу по блок схеме Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

20.09.2015, 23:18

Готовые ответы и решения:

Написать программу по блок-схеме
снизу дан алгоритм

Написать код по блок-схеме
День добрый. Помогите пожалуйста написать код по блок-схеме. Очень простая задача, но не получается...

Написать код по блок-схеме
Подскажите, может какой-нибудь компонент есть для этого?) или если нет, то просто идею подайте)

Написать консольное приложение в Delphi по блок схеме
Ругается на else, что делать?Program algoritm; Uses crt; Var x,y: integer; begin clrscr;...

	20.09.2015, 23:18

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

20.09.2015, 23:18

Помогаю со студенческими работами здесь

Составить программу по блок-схеме
блок-схема ниже

Составить программу по блок-схеме
Вот мое задание: Имя массива Задание А(80) Вычислить среднее аифмтическое значение...

Написать программу по блок-схеме
по блок схеме, и задание внутри? помогите

Написать программу по блок-схеме
блок схема есть

Написать программу по блок-схеме
Дана блок схема. По ней нужно написать программу.

Написать программу по блок-схеме
Напишите программу по это блок схеме паскаль фри

Наверх