| ← Ноябрь 2011 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
6
|
|
|---|---|---|---|---|---|---|
|
7
|
8
|
9
|
10
|
11
|
13
|
|
|
14
|
15
|
16
|
17
|
18
|
20
|
|
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
|
28
|
29
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 184398: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: задача 1, программа на языке Turbo Pascal Консультация # 184399: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: задача 2, программа на языке Turbo Pascal  ...Консультация # 184400: Здравствуйте! Прошу помощи в следующем вопросе: задача 3, программа на языке Turbo Pascal ...Консультация # 184401: Здравствуйте! Прошу помощи в следующем вопросе: задача 4, программа на языке Turbo Pascal ...Консультация # 184402: Здравствуйте! Прошу помощи в следующем вопросе: задача 5, программа на языке Turbo Pascal ...Консультация # 184403: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: задача 6, программа на языке Turbo Pascal ...Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 07.11.2011, 14:56 Консультирует kalim (3-й класс): Здравствуйте, Aleksandrkib! Приложение:
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 07.11.2011, 14:58 Консультирует kalim (3-й класс): Здравствуйте, Aleksandrkib! Приложение:
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 07.11.2011, 15:01 Консультирует kalim (3-й класс): Здравствуйте, Aleksandrkib! Приложение:
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 07.11.2011, 15:02 Консультирует kalim (3-й класс): Здравствуйте, Aleksandrkib! Приложение:
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 07.11.2011, 15:03 Консультирует Орловский Дмитрий (Советник): Здравствуйте, Aleksandrkib! Код : uses crt;
var
c: array[1..3,1..3] of Real;
Cmax: Real;
i: Byte;
procedure EnterArray;
var
i,j: Byte;
begin
Writeln('Введите массив:');
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
Write('C[',i,',',j,']=');
Readln(c[i,j]);
end;
end
end;
procedure WriteArray;
var
i,j: Byte;
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do Write('C[',i,',',j,']=',c[i,j],' ');
Writeln;
end
end;
begin
ClrScr;
EnterArray;
Writeln;
Writeln('Исходный массив:');
WriteArray;
Writeln;
Cmax:=c[1,1];
for i:=2 to 3 do if c[1,i]>Cmax then Cmax:=c[1,i];
for i:=1 to 3 do c[2,i]:=c[2,i]*Cmax;
Writeln('Новый массив:');
WriteArray;
Readln;
end.
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 07.11.2011, 15:04 Консультирует Орловский Дмитрий (Советник): Здравствуйте, Aleksandrkib! Код : uses crt;
var
a,b,c: array [1..7] of Real;
Amax,Cmax,k: Real;
i: Byte;
begin
ClrScr;
Writeln('Введите массив a:');
for i:=1 to 7 do
begin
Write('a[',i,']=');
Readln(a[i]);
end;
Writeln('Введите массив c:');
for i:=1 to 7 do
begin
Write('c[',i,']=');
Readln(c[i]);
end;
Amax:=a[1];
for i:=2 to 7 do if a[i]>Amax then Amax:=a[i];
Cmax:=c[1];
for i:=2 to 7 do if c[i]>Cmax then Cmax:=c[i];
if Amax>Cmax then k:=2 else k:=-1;
for i:=1 to 7 do b[i]:=a[i]+k*c[i];
writeln('Массив b:');
for i:=1 to 7 do Writeln('b[',i,']=',b[i]);
Readln;
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
© 2001-2011, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2011.6.33 от 10.09.2011 |
| В избранное | ||
