Pascal задачко.....

PUAZN
Сообщения: 15
Зарегистрирован: 18 ноя 2008, 15:52

Даны фамилии и соответствующие им имена. Ввести фамилию и определить имя.
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

"Задачко" по какой теме? Записи?
Есть тыщу способов решить эту задачу, Вы же ее потом не сдадите!
PUAZN
Сообщения: 15
Зарегистрирован: 18 ноя 2008, 15:52

Naeel Maqsudov писал(а):"Задачко" по какой теме? Записи?
Есть тыщу способов решить эту задачу, Вы же ее потом не сдадите!

чтроковые массивы.
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

for i:=1 to 100000000000000000 do
if a[i,1]='Ivanov' then writeln(a[i,2])
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
C_O_D_E
Сообщения: 296
Зарегистрирован: 13 фев 2008, 20:10
Откуда: Беларусь. Орша
Контактная информация:

Хыиуду, вы юморист)

PUAZN, удивительно корректное условие.
строковые массивы это как? ;-)
Если назначен специальный человек для контроля за чистотой исходной информации, то найдется изобратательный идиот, который придумает способ, чтобы неправильная информация прошла этот контроль.
PUAZN
Сообщения: 15
Зарегистрирован: 18 ноя 2008, 15:52

кароч у препода узнаю каким способом решать.......
единственное что могу сказать эт то что мы дошли только до двумерных массивов...
З.Ы. еще задачка....
даны действительные числа x1..x6. построить матрицу шестого порядка
1_______1 ..... 1
x1______x2 ....... x6
x1^2____x2^2...... x6^2
.................................
x1^5_____x2^5 ..... x6^5
Esgal
Сообщения: 78
Зарегистрирован: 04 ноя 2008, 01:15

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

program matrix;
uses crt;
var x:array[1..6] of real;
      a:array[1..6,1..6] of real;
      i,j:1..6;
begin
clrscr;
writeln('vvedi x1, x2, x3, x4, x5, x6:');
for i:=1 to 6 do 
  read(x[i]);
for i:=1 to 6 do
  for j:=1 to 6 do
    a[i,j]:=exp((i-1)*ln(x[j]));
for i:=1 to 6 do
  begin
    for j:=1 to 6 do
      write(a[i,j],  );
    writeln();
  end;
readln;
end.
Не проверял, сразу сюда написал... могут быть ошибки. сами исправте пожалуйста... но идея примерно такая
PUAZN
Сообщения: 15
Зарегистрирован: 18 ноя 2008, 15:52

Esgal писал(а): Не проверял, сразу сюда написал... могут быть ошибки. сами исправте пожалуйста... но идея примерно такая

пасиб большущее :) чуток подправил и норм :)
З.Ы.

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

 const n=20; n1=21; {n1=n+1}
var 
     P: array [0..n] of real;
     R: array [0..n1] of real;
     a: real;
По Р-массиву коэффициентов многочлена
P(x)=pn*x^n + p(n-1)*x^(n-1) + ... + p1*x +p0 {возле p не множитель, а коэффициент}
получить R-массив коэффициентов многочлена (x-a)P(x)
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

PUAZN писал(а):кароч у препода узнаю каким способом решать.......
единственное что могу сказать эт то что мы дошли только до двумерных массивов...


Ну раз так, то Хыиуду дал правильное решение.
Двумерный массив заполняется так:
X[i,1] - это, фамилия, а
X[i,2] - это соответствующее ей имя

Только вместо 100000000000 надо использовать N, а так все написано верно.
Наверное он экстрасенс ;)
PUAZN
Сообщения: 15
Зарегистрирован: 18 ноя 2008, 15:52

Naeel Maqsudov писал(а):Ну раз так, то Хыиуду дал правильное решение.
Двумерный массив заполняется так:
X[i,1] - это, фамилия, а
X[i,2] - это соответствующее ей имя

Только вместо 100000000000 надо использовать N, а так все написано верно.
Наверное он экстрасенс ;)

ну вроде тут не двумерным нуна.... тут как мне подсказали нужно через одномерные массивы типа string
Ответить