Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET В игре "Гонки" не очищается экран Необходимо было написать игру "гонки" про выбор гонщика, подсчет очков и так далее. Наброски выполненного задания есть, но в нем не хватает двух пунктов: 1. Чтобы после каждого заезда была возможность ответив на вопрос повторить заезд или закрыть программу; 2. Данные после каждой гонки должны очищаться (имею в виду графически, не переменные), а не накладываться друг на друга. Чего я только... https://www.cyberforum.ru/ pascalabc-net/ thread1151864.html В игре "Охота" не сохраняется переменная PascalABC.NET
Задача состоит в том, чтобы реализовать игру в которой появляются фигуры и пользователю необходимо успевать на них нажимать, если успевает - присваиваются очки и публикуются в заголовок программы. В процедуре “Points” переменная “s” принимает необходимое значение, однако далее (когда необходимо её публиковать) снова становится равной нулю. Пробовал различные варианты, остается уповать только на...
PascalABC.NET Написать рекурсивную процедуру для вывода на экран следующей картинки: https://www.cyberforum.ru/ pascalabc-net/ thread1151829.html
1111111111111111 222222222222 33333333 4444 33333333 222222222222 1111111111111111
PascalABC.NET Вычислить сумму половинных значений всех элементов заданной числовой последовательности Помогите с исходником. Вычислить сумму половинных значений всех элементов заданной числовой последовательности. Запрещенные служебные слова: for https://www.cyberforum.ru/ pascalabc-net/ thread1151402.html
Выделение памяти для переменных./Как создать переменную Н-значного числа PascalABC.NET
Здравствуйте! Такой вопрос, можно ли создать переменную, которая будет вмещать в себя данных столько, сколько я хочу? Например, переменная uint64 занимает 8 байт и находится в интервале 0..18446744073709551615, а мне надо для точных вычислений не 20-ти значное число, а 40 или более-значное число. А памяти мне не жалко, хоть 1 Кб на нее могу выделить. Как быть в такой ситуации?
PascalABC.NET Выдает ошибку когда очищаю textBox1. Не могу нормальную условию поставить https://www.cyberforum.ru/ pascalabc-net/ thread1150859.html
Делаю программу которая переводит Цельсий в Кельвин и Фаренгейт и наоборот. Поставил условия if textBox1.Focused then begin c := strtofloat(textBox1.Text); textBox2.Text := floattostr(c + 273.15); textBox3.Text := floattostr((C * 9 / 5) + 32); Все работает но при очистки введенных цифр программа выдает ошибку потому что там пусто. Мне надо сделать условия что бы когда я очищю...
PascalABC.NET Как найти максимум и минимум по строкам и столбцам https://www.cyberforum.ru/ pascalabc-net/ thread1150521.html
всем привет, у меня вот такая задача : Пусть дана целочисленная квадратная матрица A размерности n. Получите b1,...,bi, где элемент b равен:\max a ij\(1\leq j\leq n)*\min a ji\(1\leq j\leq n). хотел бы узнать несколько вещей: 1 Как найти макс и мин по строкам и столбцам? 2 Как записать эти данные в отдельные массивы? 3 Как найти параметр b? Если что то не понятно, просьба извинить и...
PascalABC.NET Как нарисовать график функции
Нужно нарисовать график функций и не знаю как это сделать,помогите плз. Вот код формулы для которой нужно нарисовать,ну т.е чтоб нарисовывалось)) Begin Var a,b,c,y:real; Begin write('Введите a,b,c: ');readln(a,b,c); y:=(b+sqrt(b*b+4*a*c))/(2*a)-(a*a*a)*c+1/sqr(b); writeln('y:=(b+sqrt(b*b+4*a*c))/(2*a)-(a*a*a)*c+1/sqr(b)'); readln; writeln('y: ',y:0:2);
PascalABC.NET Нарисовать на экране прямоугольник и заставить его двигаться по горизонтали, сопровождая движение звуком https://www.cyberforum.ru/ pascalabc-net/ thread1150217.html
Помогите нарисовать на экране прямоугольник и заставить его двигаться по горизонтали, сопровождая движение звуком. И как можно подробнее объяснить каждое действие . Спасибо заранее!
PascalABC.NET Массив. Задача Лабиринт Двумерный массив состоит из единиц и нулей. Стена лабиринта - единицы, нули - коридор. Лабиринт не содержит тупиков и колец. Программа проходит от входа до выхода, заменяя нули на восьмерки. 101111 111111 101000 881888 101011 181811 100011 188811 111111 ... https://www.cyberforum.ru/ pascalabc-net/ thread1149562.html
PascalABC.NET Решение системы методом Гаусса-Жордана
Задания I. Напишите программу решения системы линейных уравнений методом Жордана-Гаусса. II. Решите систему линейных уравнений и осуществите проверку найденного решения. \begin{cases}4.4x_1\ -\ 2.5x_2\ +\ 19.2x_3\ -\ 10.8x_4\ =\ -4.3 \\ \\ \\5.5x_1\ -\ 9.3x_2\ -\ 14.2x_3\ +\ 13.2x_4\ =\ -6.8 \\ \\ \\7.1x_1\ -\ 11.5x_2\ +\ 5.3x_3\ -\ 6.7x_4\ =\ 1.8 \\ \\ \\14.2x_1\ +\...
PascalABC.NET Нужно поменять min и max в массиве. Найти ошибку. Меняет совсем не то. https://www.cyberforum.ru/ pascalabc-net/ thread1149433.html
Program h; const
0 / 0 / 0
Регистрация: 18.04.2013
Сообщений: 8
0

Записи (проверка работает некорректно) - PascalABC.NET - Ответ 6062980

20.04.2014, 12:18. Показов 366. Ответов 2
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
блин проверка коряво работает, почему не пойму, надо чтобы если форма была пуста то он опять просил заполнить её и так снова и снова пока не заполнит, а если заполнена то переход к дальнейшему выполнению. Тут в коде на 1 круге все норм если просто протыкать ентером, а на 2 круге выдает длину строки 1, как мне это исправить,

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
 type zapis = record
         fam:string[40];
         ima:string[40];
         gruppa:string[20];
         end;
         label m1,m2;
 var
        c:zapis;
        a:integer;
       
begin
      TextBackGround(white);
      TextColor(black); 
      
                 repeat
                 begin
                  
                         clrscr;
                         writeln('Введите данные');
                         write('имя     '); readln  (c.ima);
                         write('фамилия '); readln(c.fam); 
                         write('группа  '); readln (c.gruppa);
                         end;
                  until ((c.ima)<>'') and ((c.fam)<>'') and ((c.gruppa)<>'');
         
 
      writeln(c.fam,' ',c.ima,' ',c.gruppa);
      a:=length(c.ima);
      writeln(a);
end.


Вернуться к обсуждению:
Записи (проверка работает некорректно) PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.04.2014, 12:18
Готовые ответы и решения:

Код работает некорректно
помогите найти ошибку в коде)))))) a = 45 b = 67 проблема при возведении в 10 степень ...

Программа для работы с файлом работает некорректно
Задание: Дан файл F, содержащий номера телефонов сотрудников учреждения с указанием их фамилий и...

Проверка на вхождение строки в массив строк работает некорректно
У меня есть строка и массив строк, к примеру string mes = Console.WriteLine(); string digits =...

Записи в блоге некорректно отображаются
Никак не могу разобраться почему у меня на сайте (www.peterls.ru) записи на главной странице...

2
20.04.2014, 12:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.04.2014, 12:18
Помогаю со студенческими работами здесь

Проверка на совпадение последней и следующей записи при записи в файл
Доброго времени суток) У меня в файл записывается произошло соединение с сервером или нет, но...

Условие в функции, некорректно проходит проверка дробного числа
#include &lt;iostream&gt; #include &lt;windows.h&gt; #include &lt;conio.h&gt; using namespace ::std; double...

Некорректно работает
Здравствуйте помогите пож-та с задачкой: Сформировать вещественный массив X1(N), N≤20,...

Некорректно работает if
Здравствуйте. У меня проблема. Если я указываю такое условие: if ( (i != k) &amp;&amp; (j != l) ) то if...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru