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

Code:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a,b,x,y:Integer;
begin
  Write('Vvedite X=');
  Readln(x);
  Write('Vvedite Y=');
  Readln(y);
  for a:=0 to 30000 do
    for b:=0 to 30000 do
    begin
      if (a+b=x)and(a*b=y) then
      begin
        Write('a='+IntToStr(a));
        Writeln(' b='+IntToStr(b));
      end;
    end;
  Readln;
end.

 

я не могу разобраться со своей последней программой!(

дано одномерной числовой массив целого типа. Написать программу, которая указывает индексы всех возможных пар элементов цьго массива, сумма квадратов величин которых равна заданному числу Х (если такие индексы есть)

я только поиск смог написать
f:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if sqr(a)+sqr(a)=x then
begin
writeln(i,' ',j);
f:=1;
end;
if f=0 then write('Таких пар нет');
read;n
end.

а вот как мне сделать ввод массива и числа???
может я в скрипте допустил ошибку то поправьте если не сложно!

 

я вообще не дружу с массивами и не понимаю их(я еще новичок в паскале)
можете показать полный скрипт если не сложно??

 

Code:

	if nomer1 = 1 then begin
	writeln('vvedite kol-vo chisel v massive: ');
	readln(kolvo);

при компиляции type mismatch
это из-за
nomer1 = 1 ?

nomer1: integer

 

а тип kolvo ?

 

тоже integer
если что, дальше идет вот-так:

Code:

	if length(kolvo) = 0 then begin
		readln(kolvo);

 

дано одномерной числовой массив целого типа. Написать программу, которая указывает индексы всех возможных пар элементов цьго массива, сумма квадратов величин которых равна заданному числу Х (если такие индексы есть)

я что то не пойму как она работает
сначала нужна массив создавать или что?

program index;
var nomer1,kolvo:Integer;
begin
if nomer1 = 1 then begin
WriteLn('Vvedite kol-vo chisel v massive:');
ReadLn(kolvo);


end.

 

так вот тут и лажа Length - это для строк и массивов, но никак не для Integer
И, к стати говоря, а что ты хочешь сделать применяя Length к Kolvo?
Тебе просто нужно

Code:

if kolvo=0 then ляляля

к стати вот так вот:

Code:

repeat
  writeln('Введите количество');
  readln(kolvo);
until kolvo>0;

ГОРАЗДО круче

 

я не знаю как,как посоветуете!
простоя и малейшего представления не имею как сделать эту программу!


program index;
var nomer1,kolvo:Integer;
begin
if nomer1 = 1 then begin
WriteLn('Vvedite kol-vo chisel v massive:');
ReadLn(kolvo);
repeat
writeln('Введите количество');
readln(kolvo);
until kolvo>0;
end.

 

Code:

if nomer1 = 1 then begin

что это значит в начале программы?

 

я просто скопировал выше сказаное!if nomer1 = 1 then begin
writeln('vvedite kol-vo chisel v massive: ');
readln(kolvo);

просто не знаю как ее сделать!

 

Всегда думал, что такие вот "подсказки" в виде полного решения убивают желание что-либо узнавать и разбиратся.
Но мне кажется тебе этого и не нужно. Вот тебе решение готовое:

Code:

program Project3;

{$APPTYPE CONSOLE}

//дано одномерной числовой массив целого типа.
//Написать программу, которая указывает индексы всех возможных пар элементов цьго массива,
//сумма квадратов величин которых равна заданному числу Х (если такие индексы есть)
uses
  SysUtils;
const y=20;
var a:array[1..y]of Integer;
    i,j,x,Found:Integer;
begin
  Found:=0;
  for i:=1 to y do
  begin
    Writeln('Введите '+IntToStr(i)+'-й элемент массива');
    ReadLn(a[i]);
  end;
  Write('Введите X=');
  Readln(x);
  for i:=1 to y do
    for j:=i+1 to y do
    begin
      if (x=(Sqr(a[i])+Sqr(a[j]))) then
      begin
        Found:=Found+1;
        Writeln('a='+IntToStr(a[i])+' b='+IntToStr(a[j]));
      end;
    end;
  if Found=0 then
        Writeln('Таких чисел нет');
  Readln;
end.

 

а эта программа запустится через ТУРБО ПАСКАЛЬ???

 

Скорее всего не откомпилируется, так как

Code:

uses
  SysUtils;

В Delphi откомпилируется.

 

убираешь это
{$APPTYPE CONSOLE}

//дано одномерной числовой массив целого типа.
//Написать программу, которая указывает индексы всех возможных пар элементов цьго массива,
//сумма квадратов величин которых равна заданному числу Х (если такие индексы есть)
uses
SysUtils;
и запустится

 

Нет, этого недостаточно, так как IntToStr лежит в SysUtils.

ITdocer, вместо

Code:

Writeln('Введите '+IntToStr(i)+'-й элемент массива');

пиши

Code:

Writeln('Введите ', i, '-й элемент массива');

и т. д.

 

можно использовать функцию str,не помню надо подключать црт или нет,но на всяк случай подключай.

 

спасибо работает!)

откомпилировал)

program Project1;
const y=20;
var a:array[1..y]of Integer;
i,j,x,Found:Integer;
begin
Found:=0;
for i:=1 to y do
begin
Writeln('Vvedite ',i,'-and element massiva');
ReadLn(a);
end;
Write('Vvedite X=');
Readln(x);
for i:=1 to y do
for j:=i+1 to y do
begin
if (x=(Sqr(a)+Sqr(a[j]))) then
begin
Found:=Found+1;
Writeln('a=',a,' b=',a[j]);
end;
end;
if Found=0 then
Writeln('Takih chisel net');
Readln;
end.

 

Возможно ли используя компонент WebBrowser передать данные методом POST но при этом чтобы страница в браузер не обновилась, то есть скрытно от пользователя.
А так же интересует как используя тот же компонент WebBrowser прочитать ответ от сервера(страницу) который пришел, в моей ситуации это в основном xml файлы.

 

капец, а где форматирование кода?