Статистика
Всего в нашей базе более 4 325 973 вопросов и 6 443 653 ответов!

Help! Только первые задачи! Плиз! Pascal ABC

5-9 класс

Khanduratova 10 июня 2016 г., 22:42:35 (3 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Muhammed007
11 июня 2016 г., 0:29:15 (3 года назад)

Карточка 1 (задача 1)

var
a:array [1..6,1..3] of integer;
i,j,k:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 6 do
for j:=1 to 3 do
if (i=1)and(j=1)then a[i,j]:=random(10) else
if (j=1)then a[i,j]:=a[i-1,3]+5  else
a[i,j]:=a[i,j-1]+5;;
for i:=1 to 6 do
begin
for j:=1 to 3 do
write(a[i,j]:4);
writeln;
end;
end.

Карточка 10 (задача 1)
var
a:array [1..6,1..6] of real;
i,j,k:integer;
begin
writeln('Массив:');
for i:=1 to 6 do
for j:=1 to 6 do
begin
if (i=1)and(j=1) then
begin
writeln('Введите первый элемент:');
readln(a[1,1]);
end
else
if (i=1)and(j=2) then
begin
writeln('Введите второй элемент:');
readln(a[1,2]);
end
else
if (j=1)then a[i,j]:=(a[i-1,6]+a[i-1,5])/2 else
if (j=2)then a[i,j]:=(a[i-1,6]+a[i,1])/2 else
a[i,j]:=(a[i,j-1]+a[i,j-2])/2;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do
write(a[i,j]:8:2);
writeln;
end;
end.


Ответить

Другие вопросы из категории

Помогите, пожалуйста! Составить программу, которая определяет, являются ли разные точки с координатами (X1,Y1) и (X2, Y2) симметричными

относительно осей координат или начала координат.
Программу составить двумя способами:
С использованием составных условий.
Без использование составных условий.
Проверить правильность программ для следующих значений параметров:
А) X1= -1, Y1=6, X2=1, Y2=6.
Б) X1=6, Y1=7, X2=1, Y2=6.


Читайте также

Составить программу, которая выводит на экран в обратном порядке нечетные числа от 29 до 1 в Pascal ABC.

Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.


помогите пожайлуста))))))))))) Даны значения двух моментов времени, принадлежащих одним и тем же суткам: часы, минуты и секунды для каждого из

моментов времени. Известно, что второй момент времени наступил не раньше первого. Определите, сколько секунд прошло между двумя моментами времени. Программа на вход получает три целых числа — часы, минуты, секунды, задающие первый момент времени и три целых числа, задающих второй момент времени. Выведите число секунд между этими моментами времени.

ввод:1, 1, 1, 2, 2, 2

вывод: 3661

ввод:1,2,30,1,3,20

вывод: 50

это задача на pascal ABC

1) дано четырёхзначное число. вывести максимальную и минимальную цифру. pascal abc

2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC

Только первую задачу,очень срочно
Решить задачу в Pascal ABC

Даны два целых числа. Разделить каждое число на целое число d.
Найти произведение их остатков от деления.



Вы находитесь на странице вопроса "Help! Только первые задачи! Плиз! Pascal ABC", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.