Pascal задачко.....
Даны фамилии и соответствующие им имена. Ввести фамилию и определить имя.
- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
"Задачко" по какой теме? Записи?
Есть тыщу способов решить эту задачу, Вы же ее потом не сдадите!
Есть тыщу способов решить эту задачу, Вы же ее потом не сдадите!
Naeel Maqsudov писал(а):"Задачко" по какой теме? Записи?
Есть тыщу способов решить эту задачу, Вы же ее потом не сдадите!
чтроковые массивы.
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])
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
-
- Сообщения: 296
- Зарегистрирован: 13 фев 2008, 20:10
- Откуда: Беларусь. Орша
- Контактная информация:
Хыиуду, вы юморист)
PUAZN, удивительно корректное условие.
строковые массивы это как? ;-)
PUAZN, удивительно корректное условие.
строковые массивы это как? ;-)
Если назначен специальный человек для контроля за чистотой исходной информации, то найдется изобратательный идиот, который придумает способ, чтобы неправильная информация прошла этот контроль.
кароч у препода узнаю каким способом решать.......
единственное что могу сказать эт то что мы дошли только до двумерных массивов...
З.Ы. еще задачка....
даны действительные числа 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
Код: Выделить всё
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.
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, а так все написано верно.
Наверное он экстрасенс

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