Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Задача с роботом Положите грузы через клетку первой строки. https://www.cyberforum.ru/ pascalabc/ thread390968.html	Задача на переписывание данных из одного файла в другой Pascal ABC Здравствуйте. У меня вопрос. По условию задачи мне нужно переписать данные из одного файла в другой. например по критерию, что данные книги выпущены в 2004 году. В какой форме мне следует записать эти данные в документе, чтобы они верно считались?
Pascal ABC задача со строкоми ..непойму ошибку( https://www.cyberforum.ru/ pascalabc/ thread390899.html Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов, которые что то не так нужно исправит ..кому нетрудно помогите) uses crt; var n:string; x,x1,x2,s:integer; begin writeln('введи предложение'); readln(n); repeat	Pascal ABC Городская олимпиада https://www.cyberforum.ru/ pascalabc/ thread390885.html Завтра будет гор. олимпиада по информатике, может кто, че посоветует по этому поводу?) Паскаль знаю, но не сильно
Файл, слова-цифры Pascal ABC В общем задача, есть 2 файла, 1 пустой, во 2м записаны числа(в виде: один, два и т.д.) 1 число в каждой строке(могут быть отрицательными) Нужно перевести числа в каждой строке в вид один->1(арабскими цифрами короче, получается в каждой строке по числу) и сложить их между собой, рез-т записать в пустой файл. Я пытаюсь сложить два числа: минус сто девяносто и девяносто, после вып ф-ций, получаю...	Pascal ABC Графический режим pABC, гляньте P-Z uses crt,GraphABC,PointRect; Var a,i,j:integer; Procedure asd; var i,j: integer; begin SetWindowSize(640,400); for j:=0 to WindowHeight-1 do https://www.cyberforum.ru/ pascalabc/ thread390842.html
Pascal ABC Преобразовать массив, увеличив1\|уменьшив2 каждую его серию на один элемент. https://www.cyberforum.ru/ pascalabc/ thread390837.html Дан целочисленный массив размера N. Преобразовать массив, увеличив1\|уменьшив2 каждую его серию на один элемент. P.S не могу понять логику задачи сам немного шарю а здесь ... не получается	Pascal ABC Графика здравствуйте, помогите, пожалуйста, изобразить в паскале этого барашка
Pascal ABC Данн массив X (20), переписать в массив Y первые пять положительных элементов Данн массив X (20), переписать в массив Y первые пять положительных элементов. https://www.cyberforum.ru/ pascalabc/ thread390822.html	Pascal ABC Данн массив X (20), переписать в массив Y все положительные элементы https://www.cyberforum.ru/ pascalabc/ thread390817.html Данн массив X (20), переписать в массив Y все положительные элементы, а в массив Z все отрицательные. Так ли??? Program z3; var X:array of integer; Y:array of integer; z:array of integer; i,k,l:integer; begin for i:=1 to 20 do begin X:=random(100)-50;
Pascal ABC Данн массив X (20), переписать в массив Y сначала все отрицательные элементы Данн массив X (20), переписать в массив Y сначала все отрицательные элементы, а потом все положительный. Так ли??? Program z2; var X:array of integer; Y:array of integer; i,k:integer; begin for i:=1 to 20 do begin X:=random(100)-50; write (X:4);	Pascal ABC Переписать элементы кратные 5 из массива N (20) в новый массив Переписать элементы кратные 5 из массива N (20) в новый массив M. Так ли??? Program z1; var N:array of integer; M:array of integer; i,k:integer; begin for i:=1 to 20 do begin N:=random(100)-50; write (N:4); https://www.cyberforum.ru/ pascalabc/ thread390808.html

КонецСвета

Почетный модератор

7966 / 3937 / 2464

Регистрация: 30.10.2011

Сообщений: 5,377

24.11.2011, 18:20

Перемещение квадрата сверху вниз - Pascal ABC - Ответ 2208455

24.11.2011, 18:20. Показов 4441. Ответов 2

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Pascal

uses graphABC;
var x,y,i: integer;
begin
lockdrawing;
for y:=50 to 250 do
begin
clearwindow;
setbrushcolor(clpurple);
rectangle(150,y,200,y+50);
sleep(50);
y:=y+5;
redraw;
end;
end.

Вернуться к обсуждению:
Перемещение квадрата сверху вниз Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

24.11.2011, 18:20

Готовые ответы и решения:

Изобразить парашют, падающий сверху вниз
... парашут (можно ввиде простой фигуры , пусть даже треугольник) падающий сверху вниз (пусть...

Нарисовать три шарика, падающих сверху вниз
Нарисовать три шарика падающих сверху вниз.(без повторения).

Заполнить двумерный массив по спирали слева направо и сверху вниз
Заполнить двумерный массива размером 5x5 следующим образом (по спирали слева направо и сверху...

Нарисовать три шарика падающих сверху вниз,и сходящиеся внизу в одной точке
нарисовать три шарика падающих сверху вниз,и сходящиеся внизу в одной точке.

	24.11.2011, 18:20

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

24.11.2011, 18:20

Помогаю со студенческими работами здесь

Вывести все элементы двухмерного массива в строку последовательно слева на право, сверху-вниз
Вывести все элементы двухмерного массива в строку последовательно слева на право, сверху-вниз....

Принимая, что массив просматривается построчно сверху вниз, а в каждой строке- слева напрво, найти
{Дан двухмерный массив целых чисел.Принимая, что массив просматривается построчно сверху вниз, а в...

Непрерывно "бегущая" сверху вниз строка (исправить)
Составить программу вывода на экран двух окон, обрамленных рамкой. В первое окно ввести строку...

Пиксели рисунка закодированы числами в виде матрицы. Выполнить отражение рисунка сверху вниз
Пиксели рисунка закодированы числами (обозначающими цвет)в виде матрицы,содержащей N строк и M...

Наверх