Pascal задачко.....
Добавлено: 18 ноя 2008, 16:06
Даны фамилии и соответствующие им имена. Ввести фамилию и определить имя.
"Задачко" по какой теме? Записи?
Есть тыщу способов решить эту задачу, Вы же ее потом не сдадите!
Страница 1 из 3
Re: Pascal задачко.....
Добавлено: 19 ноя 2008, 09:12
Re: Pascal задачко.....
Добавлено: 19 ноя 2008, 16:30
Naeel Maqsudov писал(а):"Задачко" по какой теме? Записи?
Есть тыщу способов решить эту задачу, Вы же ее потом не сдадите!
чтроковые массивы.
Re: Pascal задачко.....
Добавлено: 19 ноя 2008, 17:45
for i:=1 to 100000000000000000 do
if a[i,1]='Ivanov' then writeln(a[i,2])
if a[i,1]='Ivanov' then writeln(a[i,2])
Re: Pascal задачко.....
Добавлено: 19 ноя 2008, 18:58
Хыиуду, вы юморист)
PUAZN, удивительно корректное условие.
строковые массивы это как? ;-)
PUAZN, удивительно корректное условие.
строковые массивы это как? ;-)
Re: Pascal задачко.....
Добавлено: 19 ноя 2008, 22:28
кароч у препода узнаю каким способом решать.......
единственное что могу сказать эт то что мы дошли только до двумерных массивов...
З.Ы. еще задачка....
даны действительные числа x1..x6. построить матрицу шестого порядка
1_______1 ..... 1
x1______x2 ....... x6
x1^2____x2^2...... x6^2
.................................
x1^5_____x2^5 ..... x6^5
единственное что могу сказать эт то что мы дошли только до двумерных массивов...
З.Ы. еще задачка....
даны действительные числа x1..x6. построить матрицу шестого порядка
1_______1 ..... 1
x1______x2 ....... x6
x1^2____x2^2...... x6^2
.................................
x1^5_____x2^5 ..... x6^5
Re: Pascal задачко.....
Добавлено: 19 ноя 2008, 23:45
Код: Выделить всё
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.
Re: Pascal задачко.....
Добавлено: 20 ноя 2008, 16:05
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)
Re: Pascal задачко.....
Добавлено: 22 ноя 2008, 21:42
PUAZN писал(а):кароч у препода узнаю каким способом решать.......
единственное что могу сказать эт то что мы дошли только до двумерных массивов...
Ну раз так, то Хыиуду дал правильное решение.
Двумерный массив заполняется так:
X[i,1] - это, фамилия, а
X[i,2] - это соответствующее ей имя
Только вместо 100000000000 надо использовать N, а так все написано верно.
Наверное он экстрасенс
Re: Pascal задачко.....
Добавлено: 22 ноя 2008, 22:34
Naeel Maqsudov писал(а):Ну раз так, то Хыиуду дал правильное решение.
Двумерный массив заполняется так:
X[i,1] - это, фамилия, а
X[i,2] - это соответствующее ей имя
Только вместо 100000000000 надо использовать N, а так все написано верно.
Наверное он экстрасенс
ну вроде тут не двумерным нуна.... тут как мне подсказали нужно через одномерные массивы типа string