[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

http://ru.wikipedia.org/wiki/Решето_Эратосфена
Почитай. Сразу там есть пример

 

А как мне создать массив от 1 до n ? ведь переменные вводятся до тела програмы О_О

 

PHP:

for j:=1 to n do
readln(a[i]);


 

имелось ввиду как ввести границу масива тобишь n

 

На Delphi создать массив от 0 до n - 1:

Code:

var
  arr: array of integer;
  ...
begin
  ...
  SetLength(arr, n);
  ...
end;

 

Мне нужен паскаль ><

 

Ну тогда советую прочитать это:
http://forum.sources.ru/index.php?showtopic=51192

Скорее всего, поможет.

 

Если кому то буит нужно вот сделал без алгоритма даного в википедии правда и без изменения границ массива так сказали писать в абс паскале ><

PHP:

const n=100;
 var a:array[1..n] of integer;
  l,j,s,o,k,i:integer; 
begin
 l:=2;     
       for k:=1 to n do begin      
      a[k]:=l;
            l:=l+1;end;
      for i:=1 to n do begin
          for j:=2 to a[i]-1 do
          begin
          if a[i] mod j =0 then a[i]:=0
          end;
      end;
   write ('1 ') ;
      for o:=1 to n-1 do  begin
      if a[o]<>0 then write(a[o],' ');
  end;
 end.

 

А вопрос может не совсем в тему есть турбо паскаль работающие на семерке?

 

Конечно(первая ссылка гугла). Если имеется ввиду графический режим или что-то еще, то DosBox решает эту проблему..

 

скачал Turbo Pascal School Pak при открытии каких либо файлов и многих других действий программа закрываается ><

 

скачал только что, пока полет нормальный, все открывает, запускается сам через тот же DosBox..

 

и еще вопрос))Вот код процедуры удаления элемента из списка:

Code:

procedure DeleteValue(var pos, head: list);
var
  p: list;
begin
  if head = nil then Exit;

  if head.next = nil then
  begin
    MakeNull(head);
    Exit;
  end;

  if pos = head then
  begin
    head:= head.next;
    Exit;
  end;

  p:= head;
  while(p.next <> pos) do
  begin
    p:= p.next;
    if p = nil then Exit;//эт лишнее
  end;
  p.next:= p.next.next;
end;

Работает она норм, кроме одного случая, а именно если из списка удаляешь последний элемент.Суть в том, что элемент то это из списка удаляется, но потом уже при использовании процедур вставки элемента и вывода списка на экран визуально ничего не происходит, т.е. я добавляю элемент(если он все-таки добавляется в список), но он не выводится на экран.

 

Помогите еще пожалуйста)
Загружаю страницу в webbrowser1, на странице есть капча, но вида site.ru/capсha.php
Если попытаюсь вывести капчу в webbrowser2, или TImage, то она будет отличатся от той, что в webbrowser1, а мне нужно вывести в TImage именно ту капчу, что в webbrowser1.

 

Памойму это никак не сделать

 

При создании VCL проекта в Delphi 2007, вылетает ошибка :

"Access violation at address 00000000. Read of address 00000000"

 

Код покажите

 

а как на открытой странице в webbrowser заполнить вот такое поле

Code:

<input id="icq" title="Введите номер icq" name="icq" size="30" value="" type="text">

 

никто не знает ответ на пост №7353

 

тут много уже было написано про выделения изображеня из капчи.