Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
 Аватар для Милослав
1 / 1 / 0
Регистрация: 27.11.2015
Сообщений: 183
Записей в блоге: 2

Подскажите что неправильно?

01.12.2015, 08:47. Показов 1121. Ответов 7
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Подскажите где ошибка в этом коде?
Чтобы получилось такое окошко.
Миниатюры
Подскажите что неправильно?  
0
Лучшие ответы (1)
Сообщение: #8440601
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 01.12.2015, 08:47
Ответы с готовыми решениями:

Подскажите, что неправильно сделала?
Подскажите, что неправильно сделала?

Подскажите, что неправильно?
#include <iostream> #include <conio.h> using namespace std; class bMoney; class sterling; class sterling { long pounds; ...

подскажите что неправильно
#include "stdafx.h" int i,j; int a={1,2,3,4,5,6,7,8,9}; void main() {_asm{ mov cx,18 mov ebx,0 mov edx,0 label:

7
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
01.12.2015, 08:53
Ну и где код?
0
 Аватар для Милослав
1 / 1 / 0
Регистрация: 27.11.2015
Сообщений: 183
Записей в блоге: 2
02.12.2015, 22:15  [ТС]
Извиняюсь.
Вот.
Pascal
1
2
3
4
5
6
7
8
9

 TextBackground(0);
  ClrScr;
  for var i:=0 to 15 do
  begin
     TextBackground(i);
     writeln('
  end;
  TextBackground(CRT.LightRed);
  TextColor(Yellow);
0
6 / 6 / 3
Регистрация: 14.11.2015
Сообщений: 21
02.12.2015, 23:15
а что именно не так, какую ошибку выдаёт? crt модуль подключил? writeln(' заканчивается ли закрывающей кавычкой и скобкой?
0
 Аватар для Милослав
1 / 1 / 0
Регистрация: 27.11.2015
Сообщений: 183
Записей в блоге: 2
05.12.2015, 03:55  [ТС]
Ошибка на скрине.
Как crt модуль подключить?
Миниатюры
Подскажите что неправильно?  
0
22 / 22 / 34
Регистрация: 29.04.2014
Сообщений: 145
05.12.2015, 06:15
Милослав, перед основной программой надо написать:
Pascal
1

Uses Crt;
Даже так:
Pascal
1
2
3
4
5

Uses Crt;
 
Begin
// Весь твой код должен быть тут.
End.
1
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
05.12.2015, 09:37
Лучший ответ Сообщение было отмечено Милослав как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13

uses
  crt;
 
begin
  TextBackground(0);
  ClrScr;
  for var i := 0 to 15 do
  begin
    TextBackground(i);
    for var j := 1 to 80 do
      write(' ');
  end;
end.
2
 Аватар для Милослав
1 / 1 / 0
Регистрация: 27.11.2015
Сообщений: 183
Записей в блоге: 2
08.12.2015, 15:04  [ТС]
Всё работает!
Спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 08.12.2015, 15:04
Помогаю со студенческими работами здесь

Подскажите что неправильно
Здравствуйте я новичок в питоне и незнаю в чем проблема вот в for цикле end не работает можете помочь? fh = open('Text.txt') for line...

Подскажите, что неправильно записано?
In:= x = MatrixForm &, {3, 3}]] In:= S = MatrixForm In:= z = Sum*x, {i, 1, 3}, {j, 1, 3}] Out= S x + S x + S x + S x + S...

Подскажите что неправильно в коде
#include "stdio.h" #include "math.h" int main (void){ int ra, ma, pa; int r=0,m=0,p=0,n,c; ra=0; ma=0; pa=0; ...

Подскажите что неправильно (гиперболический параболоид)
Построить гиперболический параболоид, заданный с помощью канонического уравнения -{-x}^{2}/p + {z}^{2}/q=0, где р = 3 и q = 2. Высота...

Подскажите, что у меня в коде неправильно?
procedure TPassword.Button1Click(Sender: TObject); var a: array of byte; b: array of byte; i,j:integer; begin begin ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru