Нужна помощь в решении задач на Delphi и Visual Basic

[Аленька-19]

Всем привет!Кто может помочь решить пару задачек по программированию?

[bbh]

ну хотя бы задачки в личку или студию...

[Miker]

Аленька-19 условия в студию)) или в личку.. или в аську..

*Денис-Денисова знаешь?

[Zebraa]

В студию, тоже хочу)))

[I'm]

И мне дайте задачки. Я тоже хочу И умею. Правда.

[Strimmer]

А на Pascal могете? Тема Вектора и матрицы

[Zebraa]

Вы давайте уже задачи выкладывать, а не спрашивать! Будет задача - будут ответы!

[Strimmer]

1. Ввести элементы одномерного массива размером 30 с клавиатуры и вывести на печать в несколько строчек.
2. Ввести элементы двухмерного массива произвольной структуры с общим размером не менее 30 с использованием генератора случайных чисел в произвольном диапазоне. Вывести массив на печать в виде матрицы.
3. Ввести элементы двухмерного массива как типизированную константу. Вывести на печать исходную матрицу.
4. Получить матрицу по формуле



Вывести на печать полученную матрицу.

[Miker]

Начал с конца) 4-я задачка Стриммера:

Код: Выделить всё

program Project1;

uses
  SysUtils,
  math;

var x,y,stx,sty,z,a: real;
i,j:integer;
f: textfile;
begin
 a:=-0.7;
 stx:=0.3;
 sty:=0.3;
 assignfile(f,'output.txt');
 rewrite(f);
 for i:=0 to round((2-1)/stx) do begin
  for j:=0 to round((7-4)/sty) do begin
   x:=1+i*stx;
   y:=4+j*sty;
   z:=a*(exp(sqrt(x*y)*ln(exp(1))))*tan(a*x/2)+sinh(x);
   write(f,z:4:2,' ');
  end;
  writeln(f);
 end;
 closefile(f);
 writeln('See output.txt');
 readln;

end.



Формулы страшные, а тестов нет, проверка останется на совести Стриммера).. *И сразу нашёл 1 баг в коде, пофиксено))

Добавлено спустя 16 минут 32 секунды:

Вот и 3-я)

Код: Выделить всё

const
 n=3;
 m=3;
 mx: array [1..n,1..m] of string = (('1','2','3'),('1','2','3'),('1','2','3'));
var i,j: integer;
begin
 for i:=1 to n do begin
  for j:=1 to m do begin
   write (mx[i,j],' ');
  end;
  writeln;
 end;
 readln;
end.



[Strimmer]

Miker оо, респектище, дело и правда важное для меня, спасибо за помощь, единственное наверно останется только под форму записи подогнать как в универе, ну там раздел объявления переменных и прочее

[Miker]

Вторая задача в самой несложной интерпретации (если считать произвольной структурой - всего лишь произвольную размерность массива)..

Код: Выделить всё

var
mx: array [1..100,1..100] of integer;
n,m,i,j: integer;
begin
 randomize();
 repeat
  n:=random(10);
  m:=random(10);
 until n*m>=30;
 for i:=1 to n do begin
  for j:=1 to m do begin
   mx[i,j]:=random(10);
   write(mx[i,j],' ');
  end;
  writeln;
 end;
 readln;
end.


Strimmer о да)) форма записи это святое)) В своё время я в академ на год свалил из-за распиз.. непонимания формы записи.. Зато потом лучше овощедевочек её писать научился).. В каком универе и на каком курсе учишься?)

[Strimmer]

ИрГУПС, 3 курс, так сейчас проверил 4 задание, ругается на math; (Error 15: File not found (sysutils.tpw)), во втором на месте randomize(); (Erroк 85 ";" expected)

[Miker]

И наконец первая задачка

Код: Выделить всё


var
mx: array [1..30] of integer;
i: integer;
b:string;
begin
 for i:=1 to 30 do begin
  str(i,b);
  write('Input a[',b ,']: ');
  readln(mx[i]);
 end;
 writeln;
 for i:=1 to 30 do begin
  write(mx[i],' ');
  if i mod 10=0 then writeln;
 end;
 readln;
end.



Тут, Стриммер, ещё какое дело. Я всё это писал на Borland Deplhi 7, console application + условия задачек даны размыто, так что если от тебя не там и несколько по другому это хотели..) В общем - м.б. потребует доработки напильником для сдачи преподу (как уже и оказалось - на каком именно паскале оно тебе надо было??))

[Strimmer]

Borland Pascal 7.0. Ну вроде соображалка имеется. Думаю в случае чего дошлифую. В любом случае спасибо. Эх говорила мне мама, учись сынок! Сейчас бы космонавтом был!

[Miker]

Strimmer в крайнем случае приходи завтра ко мне на Красноказачью, на занятия второй смены - помогу в BP7 допереводить) В принципе там особых затыков быть не должно, если только в 4-й задачке sh(x) считаться перестанет. И вот почему:

чтобы не считать тангенс как частное синуса и косинуса, и вот этот гиперболический синус как частное хитрого выражения экспонент, я подключил модуль Math, в нём эти формулы есть все. В BP7 должен быть аналогичный модуль. Но если его нет - просто разверни запись тангенса и sh, всё должно получиться) Через более простые выражения, входящие в модули, грузящиеся по-умолчанию выразить Но сначала попробуй указать в Uses CRT, DOS и ещё что-нибудь))

[Аленька-19]

дается текстовый файл,надо чтобы программа выдала текст в обратном порядке,с использованием памяти.
надо сделать на делфи

[Miker]

Какой памяти?

[LMsd]

Miker Студента

[Miker]

LMsd элементарно)

Код: Выделить всё

(defun studmem(textin textout)
 ((eq textin NILL) textout)
 (studmem (cdr textin) (cons (car textin) textout))
)

[Zebraa]

LMsd элементарно)

Код: Выделить всё

(defun studmem(textin textout)
 ((eq textin NILL) textout)
 (studmem (cdr textin) (cons (car textin) textout))
)

аааааааааааааааааааааааааааааа ацкий лисп

Добавлено спустя 8 минут 15 секунд:

дается текстовый файл,надо чтобы программа выдала текст в обратном порядке

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var text,a:string;
i:integer;
begin
text:=edit1.Text;
a:='';
for i:=0 to length(text)-1 do
  begin
    a:=a+copy(text,length(text)-i,1);
  end;
  panel1.Caption:=a;
end;

я почти год не открывала делфи))
ибо про память так ничего и не было сказано...[/quote]