|
Задачи на Pаscal ABC
|
|
Изначально в программе мы при помощи двумерного массива (массив динамический) рисуем кубики различных семи цветов (цвета присваиваются случайным образом). Результат программы: необходимо определить наибольшее количество кубиков одного цвета, находящихся рядом (только по вертикали и горизонтали) и написать цвет.
Начало задачи:
Код uses GraphABC;
var m:array [0..6] of color;
mas: array of array of integer;
i,j,n,f,e:integer;
begin
writeln('Введите количество кубиков по вертикали!');
readln(f);
writeln('Введите количество кубиков по горизонтали!');
readln(n);
ClearWindow;
SetWindowSize ((n)*30,(f)*30);
m[0]:=clBlue;
m[1]:=clBlack;
m[2]:=clRed;
m[3]:=clWhite;
m[4]:=clYellow;
m[5]:=clLime;
m[6]:=clBrown;
setlength(mas,n+3);
for i:=0 to (n+2) do setlength(mas[i],f+3);
for i:=0 to n+1 do begin
mas[i][0]:=7;
mas[i][f+1]:=7;
end;
for i:=0 to f+1 do begin
mas[0][i]:=7;
mas[n+1][i]:=7;
end;
for i:=1 to n do
for j:=1 to f do begin
e:=random(7);
setbrushcolor(m[e]);
rectangle((i-1)*30,(j-1)*30,i*30,j*30);
mas[i][j]:=e;
end;
end.
№ 1 | Автор: shinshilla |
2015-02-11, 13:52 | Изменено: shinshilla - Ср, 2015-02-11, 14:07
|
Репутация: [ + 0 ]
|
|
|
|
Сообщите если знаете: Можно ли из Turbo Pascal for Windows или PascalABC
управлять портом принтера как из TP 7.0 ? Какой нибудь оператор типа Port,PortW
как в семерке? Может есть TPU к этим паскалям? А то PascalABC такая
удобная штука-не надо переучиваться с семерки, а многих функций не
нахожу
|
|
|
|
|
ПОмогите написать программу которая с большого списка людей , с указанием области рождения, посчитает количество рожденных людей для каждой области.
|
|
|
|
Дан двумерныймассив целых чисел размера N на M элементов. Определить для каждого столбца
этого массива наибольший элемент.
В решении необходимо использовать процедуру или функцию.
Дан массив из
n целых неотрицательных чисел. Найти количество элементов этого массива,
которые являются степенью пятерки. Необходимо также вывести сами элементы.
|
|
|
|
1)Дан двумерныймассив целых чисел размера N на M элементов. Определить для каждого столбца
этого массива наибольший элемент.
2)В решении необходимо использовать процедуру или функцию.
Дан массив из
n целых неотрицательных чисел. Найти количество элементов этого массива,
которые являются степенью пятерки. Необходимо также вывести сами элементы.
|
|
|
|
|
Помогите написать программу в паскале ABC пожайлуста.Надо чтобы прога показала самое короткое слова в предложении из трех слов
|
|
|
|
можно всё)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Ну а конкретней? Какие данные и в каком формате подаются и т.д.?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
можете написать программу которая считывает слова с файла txt слова и выставляет их в алфовитном порядке
|
|
|
|
|
ребята скинте пожалуйсто архив с установленым паскалем мне на мыло(ivan622546@mail.ru) помогу с любой программой
|
|
|
|
|
Если я правильно понял то есть файл в котором лежит список людей и нужно посчитать их по отдельности
|
|
|
|
http://primat.org/index/0-128
вот тебе паскаль онлайн
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
ну а конкретней можно? что-бы я не писал, а в итоге не получилось, что там совсем не так всё
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Цитата vlad_panarin (  ) Помогите написать программу в паскале ABC пожайлуста.Надо чтобы прога показала самое короткое слова в предложении из трех слов
begin
var predlog := readstring('Введите три слова ');
var m:=100;
var k := Pos(' ', predlog);
var slovo1 := Copy(predlog,1,k );
Delete(predlog, 1, k);
k := Pos(' ', predlog);
var slovo2 := Copy(predlog,1,k );
Delete(predlog, 1, k);
var slovo3 := predlog;
var m1 := Length(slovo1);
var m2 := Length(slovo2);
var m3 := Length(slovo3);
var predlog2: String;
if m1 < m then
begin m:=m1; predlog2:=slovo1; end;
if m2 < m then
begin m:=m2; predlog2:=slovo2; end;
if m3 < m then
begin m:=m3; predlog2:=slovo3; end;
WriteLn('Самое короткое слово -', predlog2);
end.
GeRa
|
|
|
|
Цитата wiktor1995 ( ) 1)Дан двумерныймассив целых чисел размера N на M элементов. Определить для каждого столбцаэтого массива наибольший элемент.
const
N = 5;
M = 6;
var
dat: array [1..N, 1..M] of integer;
begin
writeln('Исходный массив:');
for var i := 1 to N do
for var j := 1 to M do
dat[i, j] := random(0, 100);
writeln(dat);
var j := 1;
repeat
var mx := dat[1, j];
for var i := 1 to N do
if dat[i, j] > mx then mx := dat[i, j];
writeln('Максимум в столбце ', j, ' =', mx);
j := j + 1;
until j = M + 1;
end.
GeRa
№ 15 | Автор: rageo |
2021-03-12, 14:33 | Изменено: rageo - Пт, 2021-03-12, 14:33
|
Репутация: [ + 42 ]
|
|
|
|
Цитата wiktor1995 ( ) 2)В решении необходимо использовать процедуру или функцию.Дан массив из
n целых неотрицательных чисел. Найти количество элементов этого массива,
которые являются степенью пятерки. Необходимо также вывести сами элементы.
function krat5(x: integer): boolean;
begin
if (x mod 5 = 0) then krat5 := true;
end;
begin
var dan := ArrRandomInteger(30, 0, 100);
Println('Кратны5: ');
var j := 0;
for var i := 0 to 29 do
if krat5(dan) then
begin
Print(dan);
j += 1;
end;
Println('Количество кратных5: ', j);
Println('Cам массив:', dan);
end.
GeRa
№ 16 | Автор: rageo |
2021-03-12, 15:53 | Изменено: rageo - Пт, 2021-03-12, 15:55
|
Репутация: [ + 42 ]
|
|
|
|
|
Что создать программу на делфи нужно знать пакскаль?
|
|
|
|
Цитата natasharikit ( ) пакскаль?
Что это?
GeRa
|
|
|
|
