var a:array[1..10,1..10] of integer;
i,j:integer;
begin
for j:=1 to 10 do
for i:=1 to 10 do a[j,i]:=i;
for j:=1 to 10 do
for i:=1 to 10 do a[j,i]:=j*i;
for j:=1 to 10 do
begin
for i:=1 to 10 do write(a[j,i],' ');
writeln;
end;
end.
Помогите решить 2 задачи по паскалю
Помогите решить 3 задачи по паскалю.оч.надо
если можно с подробным решением.
p.s в долгу не останусь дам 6 или 7 значный номер icq
1. Написать программу, которая выводит на экран квадрат Пифагора – таблицу умножения – следующим образом:
1 2 3 4 5 6 7 8 9 10
1 1 2 3 4 5 6 7 8 9 10
2 2 4 6 8 10 12 14 16 18 20
3 3 6 9 12 15 18 21 24 27 30
4 4 8 12 16 20 24 28 32 36 40
5 5 10 15 20 25 30 35 40 45 50
6 6 12 18 24 30 36 42 48 54 60
7 7 14 21 28 35 42 49 56 63 70
8 8 16 24 32 40 48 56 64 72 80
9 9 18 27 36 45 54 63 72 81 90
2. Написать программу, которая преобразует введенное пользователем десятичное число в число в указанной системе счисления (от 2 до 10).
3.Написать функцию, обеспечивающую ввод с клавиатуры целого положительного двузначного числа. При нажатии пользователем какой-либо клавиши соответствующий ей символ должен появляться на экране только в том случае, если этот символ является цифрой.
если можно с подробным решением.
p.s в долгу не останусь дам 6 или 7 значный номер icq
1. Написать программу, которая выводит на экран квадрат Пифагора – таблицу умножения – следующим образом:
1 2 3 4 5 6 7 8 9 10
1 1 2 3 4 5 6 7 8 9 10
2 2 4 6 8 10 12 14 16 18 20
3 3 6 9 12 15 18 21 24 27 30
4 4 8 12 16 20 24 28 32 36 40
5 5 10 15 20 25 30 35 40 45 50
6 6 12 18 24 30 36 42 48 54 60
7 7 14 21 28 35 42 49 56 63 70
8 8 16 24 32 40 48 56 64 72 80
9 9 18 27 36 45 54 63 72 81 90
2. Написать программу, которая преобразует введенное пользователем десятичное число в число в указанной системе счисления (от 2 до 10).
3.Написать функцию, обеспечивающую ввод с клавиатуры целого положительного двузначного числа. При нажатии пользователем какой-либо клавиши соответствующий ей символ должен появляться на экране только в том случае, если этот символ является цифрой.
Цитата:
Originally posted by fynjy
Помогите решить 3 задачи по паскалю.оч.надо
если можно с подробным решением.
p.s в долгу не останусь дам 6 или 7 значный номер icq
1. Написать программу, которая выводит на экран квадрат Пифагора – таблицу умножения – следующим образом:
1 2 3 4 5 6 7 8 9 10
1 1 2 3 4 5 6 7 8 9 10
2 2 4 6 8 10 12 14 16 18 20
3 3 6 9 12 15 18 21 24 27 30
4 4 8 12 16 20 24 28 32 36 40
5 5 10 15 20 25 30 35 40 45 50
6 6 12 18 24 30 36 42 48 54 60
7 7 14 21 28 35 42 49 56 63 70
8 8 16 24 32 40 48 56 64 72 80
9 9 18 27 36 45 54 63 72 81 90
2. Написать программу, которая преобразует введенное пользователем десятичное число в число в указанной системе счисления (от 2 до 10).
3.Написать функцию, обеспечивающую ввод с клавиатуры целого положительного двузначного числа. При нажатии пользователем какой-либо клавиши соответствующий ей символ должен появляться на экране только в том случае, если этот символ является цифрой.
Помогите решить 3 задачи по паскалю.оч.надо
если можно с подробным решением.
p.s в долгу не останусь дам 6 или 7 значный номер icq
1. Написать программу, которая выводит на экран квадрат Пифагора – таблицу умножения – следующим образом:
1 2 3 4 5 6 7 8 9 10
1 1 2 3 4 5 6 7 8 9 10
2 2 4 6 8 10 12 14 16 18 20
3 3 6 9 12 15 18 21 24 27 30
4 4 8 12 16 20 24 28 32 36 40
5 5 10 15 20 25 30 35 40 45 50
6 6 12 18 24 30 36 42 48 54 60
7 7 14 21 28 35 42 49 56 63 70
8 8 16 24 32 40 48 56 64 72 80
9 9 18 27 36 45 54 63 72 81 90
2. Написать программу, которая преобразует введенное пользователем десятичное число в число в указанной системе счисления (от 2 до 10).
3.Написать функцию, обеспечивающую ввод с клавиатуры целого положительного двузначного числа. При нажатии пользователем какой-либо клавиши соответствующий ей символ должен появляться на экране только в том случае, если этот символ является цифрой.
Ответ на первый вопрос:
Код:
Цитата:
Originally posted by fogg
Ответ на первый вопрос:
Ответ на первый вопрос:
Код:
var a:array[1..10,1..10] of integer;
i,j:integer;
begin
for j:=1 to 10 do
for i:=1 to 10 do a[j,i]:=i;
for j:=1 to 10 do
for i:=1 to 10 do a[j,i]:=j*i;
for j:=1 to 10 do
begin
for i:=1 to 10 do write(a[j,i],' ');
writeln;
end;
end.
i,j:integer;
begin
for j:=1 to 10 do
for i:=1 to 10 do a[j,i]:=i;
for j:=1 to 10 do
for i:=1 to 10 do a[j,i]:=j*i;
for j:=1 to 10 do
begin
for i:=1 to 10 do write(a[j,i],' ');
writeln;
end;
end.
Можно также решить эту задачу в 2-а этапа:
1) расспечатать 1-ю строку таблицы (от 1 до 10)
Код:
for i:=1 to 10 do
write(' ',i);
writeln;
write(' ',i);
writeln;
2) расспечатать остальные элементы таблицы
Код:
for i:=1 to 9 do // rows
begin
write(' ',i); //расспечатать number of row (от 1 до 9)
for j:=1 to 10 do begin //columns
write(' ',j*i); //расспечатать elements of tables
end;
writeln;
end;
begin
write(' ',i); //расспечатать number of row (от 1 до 9)
for j:=1 to 10 do begin //columns
write(' ',j*i); //расспечатать elements of tables
end;
writeln;
end;
P.S. Могут быть ошибки в грамматике написания т.к. Паскаль не знаю:!!!:
Ссылка для 2-ой задачи:
http://forum.codenet.ru/showthread.php?s=&threadid=29709