EndLeSSDre@M..Вы когда пишете код к программе хотя бы тестите его?! И прочитайте внимательнее какое задание было. Без обид, но вы такую байду выложили MaTpOc...вот код ко второй задаче Code: {$APPTYPE CONSOLE} const n = 30; var a: array [1..n] of integer; i, imax, imin, max, min: integer; begin min:=maxlongint; max:=-min; for i:=1 to n do begin read(a[i]); if a[i] > max then // нахождение максимального begin imax:=i; max:=a[i]; end; if a[i] < min then // нахождение минимального begin imin:=i; min:=a[i]; end; end; if imin = imax then write('0') else write(abs(imin - imax) - 1); readln; end. И уточните один момент, первого макс/мин или последнего в массиве?
а блин точно... просто не вчитался... вывел эти элементы, надо было количество... сорри! п.с. я больше бэйсик знаю, потом просто под паскаль переделываю. 2Soherox спасибо за корректировку
помогите с задачами))) задачи на украинском языке))) 1. Складіть програму для побудови масиву з дванадцятьма елементами ai=4sin3i і обчислення середньоарифметичного значення елементів більших, ніж -1 і менших ніж 1. 2. Оголосіть сталий масив з назвами трьох фірм, і сталий масив з трьома будь-якими числовими даними, що характеризують їхню діяльність.
что такое последняя "i"? 2) Code: firm: array[0..2] of string; dej: array[0..2] of integer; ... firm[0] := "firm1"; firm[1] := "firm2"; firm[2] := "firm3"; dej[0] := 123; dej[1] := 234; dej[2] := 345; так что ли?
по выше сказанному способу "a=4*sin(3*i)" вот код Code: {$APPTYPE CONSOLE} type real = extended; const n = 12; var i, kol: integer; b: array [1..n] of real; rez: real; begin kol:=0; for i:=1 to n do begin b[i]:=4*sin(3*i*pi/180); if (b[i] > -1) and (b[i] < 1) then begin inc(kol); rez:=rez + b[i]; end; end; for i:=1 to n do write(b[i]:0:3,' '); // элементы массива writeln; write (rez / kol:0:3); readln; end.
Прветствую. у муня ткой вопрос. нужно на delphi написать прогу, могущую подрубиться к wi fi точке DWL-3200AP. проблема в незнании как это реализовать.
спасибо! хорошая либа.. но мне архивация нужна не для уменьшения размера, а для того чтоб собрать множество мелких файлов в один..
Добрый день, мне очень срочно нужны ответы на пару вопросов... 1) Мне нужно чтобы при на жатии на кнопку на label выводился определенный текст (Это я сделал, не такой уж нуб), Но мне надо чтобы при втором нажатии на эту кнопку появлялся второй текст вместо прежнего, либо как сделать чтобы при нажатии на кнопку выводился текст а потом эта кнопочка удалялась и вместо нее появлялась другая кнопочка при нажатии на которую уже появлялся второй текст 2) Как сделать чтобы при нажатии на кнопку открывалось еще одна форма (окно) и закрывалось старое.
А что тебе мешает записать все файлы в один?... ничего сложного в этом не вижу, сделай таблицу с указателями на файлы в едином 'архиве' или что нибудь подобное, вариации много)
1) Проверяй какой текст написан в label например так: if label1.caption='текст 1' then label1.caption:='текст 2' 2) Создаёшь вторую форму file->new->form Кидаешь кнопку и пишешь: Form1.hide; Form2.show;
А я сделал по другому, я сделал примерно так: Button1.Visible := False Button2.Visible := True Ну понятно изночально поставил у второй нивидимость=) И сделал чтобы когда на вторую жмякаешь уже второй текст выводился, Мне это первое в голову пришло так и сделал все получилось=) Вообще пытаюсь сделать чтото типо Книги мне возможно зачтут это за ЕГЭ а это ведь халявный экзамен из четырех я ваще буду очень рад если мне это зачтут, да и собираюсь на программиста думаю это тоже будет полезно в будущем...
если имеем такие строки: StringList.Add('1'); StringList.Add('12'); StringList.Add('123'); то свойство StringList.Text будет равно '1#13#1012#13#10123#13#10' а свойство StringList.CommaText '1,12,123'
http://www.delphisources.ru/pages/faq/base/manage_segment_data_size.html http://forum.sources.ru/index.php?showtopic=280746 http://www.xakep.ru/magazine/xa/114/050/1.asp http://articles.org.ru/cn/showdetail.php?cid=7342 http://delphi.about.com/od/objectpascalide/l/aa103003a.htm http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_10354858.html
хочу добавить в базу данные SQLConnection1.Connected:=true; SimpleDataSet1.DataSet.CommandText:='INSERT INTO users ("id","name","fname","email","pass") values ("","'+Edit1.Text+'","'+Edit2.Text+'","'+Edit3.Text+'","'+Edit4.Text+'")'; SimpleDataSet1.DataSet.Active:=true; SimpleDataSet1.Active:=true; что не правельно?
