Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET В игре "Гонки" не очищается экран Необходимо было написать игру "гонки" про выбор гонщика, подсчет очков и так далее. Наброски выполненного задания есть, но в нем не хватает двух пунктов: 1. Чтобы после каждого заезда была... https://www.cyberforum.ru/ pascalabc-net/ thread1151864.html В игре "Охота" не сохраняется переменная PascalABC.NET
Задача состоит в том, чтобы реализовать игру в которой появляются фигуры и пользователю необходимо успевать на них нажимать, если успевает - присваиваются очки и публикуются в заголовок программы. В...
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 байт и находится в интервале...
PascalABC.NET Выдает ошибку когда очищаю textBox1. Не могу нормальную условию поставить https://www.cyberforum.ru/ pascalabc-net/ thread1150859.html
Делаю программу которая переводит Цельсий в Кельвин и Фаренгейт и наоборот. Поставил условия if textBox1.Focused then begin c := strtofloat(textBox1.Text); textBox2.Text := floattostr(c...
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). ...
PascalABC.NET Как нарисовать график функции
Нужно нарисовать график функций и не знаю как это сделать,помогите плз. Вот код формулы для которой нужно нарисовать,ну т.е чтоб нарисовывалось)) Begin Var a,b,c,y:real; Begin ...
PascalABC.NET Нарисовать на экране прямоугольник и заставить его двигаться по горизонтали, сопровождая движение звуком https://www.cyberforum.ru/ pascalabc-net/ thread1150217.html
Помогите нарисовать на экране прямоугольник и заставить его двигаться по горизонтали, сопровождая движение звуком. И как можно подробнее объяснить каждое действие . Спасибо заранее!
PascalABC.NET Массив. Задача Лабиринт Двумерный массив состоит из единиц и нулей. Стена лабиринта - единицы, нули - коридор. Лабиринт не содержит тупиков и колец. Программа проходит от входа до выхода, заменяя нули на восьмерки. 101111 ... https://www.cyberforum.ru/ pascalabc-net/ thread1149562.html
PascalABC.NET Решение системы методом Гаусса-Жордана
Задания I. Напишите программу решения системы линейных уравнений методом Жордана-Гаусса. II. Решите систему линейных уравнений и осуществите проверку найденного решения. ...
PascalABC.NET Нужно поменять min и max в массиве. Найти ошибку. Меняет совсем не то. https://www.cyberforum.ru/ pascalabc-net/ thread1149433.html
Program h; const n=10; var a:array of integer; i:integer; min, max,temp:integer; n_max,n_min:integer; begin for i:=1 to n do readln (a);
158 / 137 / 106
Регистрация: 18.05.2013
Сообщений: 289
22.04.2014, 08:36 0

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

22.04.2014, 08:36. Показов 314. Ответов 2
Метки (Все метки)

Ответ

При нажатии на клавишу Enter в консоль передается символ #13 - возврат каретки, который записывается в следующую строку, если снова была нажата клавиша Enter без ввода других символов. Поэтому проверка некорректна. Работающая программа выглядит так:
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
32
33
uses
  crt;
 
type
  zapis = record
    fam: string[40];
    ima: string[40];
    gruppa: string[20];
  end;
 
var
  c: zapis;
 
begin
  TextBackGround(white);
  TextColor(black); 
  
  repeat                 
    clrscr;
    writeln('Введите данные');
    write('имя     '); readln(c.ima);
    write('фамилия '); readln(c.fam); 
    write('группа  '); readln(c.gruppa);
    with c do
    begin
      if ima = #13 then ima := '';
      if fam = #13 then fam := '';
      if gruppa = #13 then gruppa := '';
    end;
  until (c.ima <> '') and ((c.fam) <> '') and ((c.gruppa) <> '');
  
  writeln(c.fam, ' ', c.ima, ' ', c.gruppa);
end.


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

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

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

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

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

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2014, 08:36

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

Условие в функции, некорректно проходит проверка дробного числа
#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 - 2022, CyberForum.ru