Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Найти количество различных элементов в монотонном массиве http://www.cyberforum.ru/pascalabc/thread1367870.html
Дан массив, состоящий из целых чисел. Известно, что числа упорядочены по неубыванию (то есть каждый следующий элемент не меньше предыдущего). Напишите программу, которая определит количество...
Pascal ABC При нажатии кнопки увеличивать скорость вращения анимации (вентилятор)
Помогите сделать так, что бы при нажатии кнопки, вентилятор ускорялся. Не знаю как с этой кнопкой быть. движение лопастей через vrash написал.
Pascal ABC Перевод обычного (инфиксного) выражения в польскую инверсную запись
Напишите программу перевода обычного(инфиксного) выражения в польскую инверсную запись. Выражение состоит из букв (однобуквенных переменных), скобок и знаков операций. Порядок операций обычный. ...
Pascal ABC Определите, сколько билетов каждого вида пассажир должен приобрести Билет на одну поездку в метро стоит 15 рублей, билет на 10 поездок стоит 125 рублей, билет на 60 поездок стоит 440 рублей. Пассажир планирует совершить n поездок. Определите, сколько билетов каждого... http://www.cyberforum.ru/pascalabc/thread1367771.html
Pascal ABC Получить число, в котором все цифры исходного числа сдвинуты на 1 позицию влево http://www.cyberforum.ru/pascalabc/thread1367718.html
Получить число, в котором все цифры исходного числа сдвинуты на 1 позицию влево. При этом 1 цифра становится последней. К примеру, число 1234 становится числом 2341
Pascal ABC Вычислить значение выражения
Хэлп!!! Вычислить Z = (x + y) / (kn), где x и k – сумма и количество положительных элементов массива А(40), где y и n – сумма и количество отрицательных элементов массива В(50). Определение суммы и...
Определить произведение всех элементов матриц A(3, 4), B(6, 8), отличных от нуля Pascal ABC
Помогите. Определить произведение всех элементов матриц A(3, 4), B(6, 8), отличных от нуля. Вычисление оформить в виде функции.
Pascal ABC Даны два натуральных числа. Выяснить, в каком из них больше цифр, определив функцию для расчета количества Помогите пожалуйста. Даны два натуральных числа. Выяснить, в каком из них больше цифр, определив функцию для расчета количества цифр натурального числа http://www.cyberforum.ru/pascalabc/thread1367633.html
Pascal ABC Дана квадратная матрица. Поменять местами элементы главной диагонали с элементами побочной диагонали http://www.cyberforum.ru/pascalabc/thread1367283.html
Пожалуйста, помогите! Дана квадратная матрица. Поменять местами элементы главной диагонали с элементами побочной диагонали.
Pascal ABC Нужно написать программу, которая будет считывать первую букву каждого слова при считывании она пропускате пробелы и различные синтаксические знаки. Все эти буквы записать в множество http://www.cyberforum.ru/pascalabc/thread1367234.html
Chimera_
28 / 8 / 1
Регистрация: 26.05.2010
Сообщений: 230
0

Как определить, что пользователь ничего не ввел в поле?

04.02.2015, 13:40. Просмотров 392. Ответов 3
Метки (Все метки)

Доброго времени суток!
Задание такое: "дан файл, содержащий сведения об учениках школ: указывается фамилия, имя, отчество, адрес, класс, номер телефона, оценка полученная за три темы. Определить:
а)кол-во учеников, получившие оценки только 4 или 5 за три темы;
б) определить кол-во учеников, не имеющие телефонов."
Прогу написала:
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
program pr1;
label label1;
type b=record
f:string[15];
i:string[15];
o:string[15];
a:string[35];
k:string[15];
t:string[15];
ocenka:integer;
end;
var klass: b;
f1: file of b;
n: integer;
 
procedure add;
    var nzap,i:integer;
begin
assign(f1,'dat1.dat');
rewrite(f1);
writeln('введите количество записей');
readln(nzap);
writeln('введите информацию об учениках');
for i:=1 to nzap do
begin
writeln('введите фамилию ученика');
readln(klass.f);
writeln('введите имя ученика');
readln(klass.i);
writeln('введите отчество ученика');
readln(klass.o);
writeln('введите адрес ученика');
readln(klass.a);
writeln('введите класс ученика');
readln(klass.k);
writeln('введите номер телефона ученика (если телефон отсутствует, необходимо указать "Нет")');
readln(klass.t);
writeln('введите оценку ученика');
readln(klass.ocenka);
write(f1,klass);
writeln('--------------------------');
end;
close(f1);
end;
 
procedure FourFive ; 
begin
assign(f1,'dat1.dat');
reset(f1);
while not eof(f1) do
begin
read(f1,klass);
if (klass.ocenka >= 4) then writeln(klass.f,' из ',klass.k,' его/ее оценка ',klass.ocenka);
end;           
close(f1);
writeln('--------------------------');
end;
 
 
procedure NotHave;
begin
 
assign(f1,'dat1.dat');
reset(f1);
while not eof(f1) do
begin
  read(f1,klass);
  if (klass.t = 'нет') or (klass.t = 'Нет') or (klass.t = 'НЕТ')
  then writeln(klass.f,' из ',klass.k);
end;         
close(f1);
writeln('--------------------------');
end;
 
 
begin
label1: writeln('для ввода данных нажми"1", для решения задач - 2, или 3');
writeln('2 - Фамилии учеников, получивших за 3 темы на 4 и 5');
writeln('3 - Фамилии студентов, защитивших диплом в определенный день');
readln(n);
 
case n of
1: begin
add;
goto Label1;
end;
2: begin
FourFive;
goto Label1;
end;
3: begin
NotHave;
goto Label1;
end;
else exit;
end;
end.
Мне нужно, чтобы в случае отсутствия телефона у ученика не нужно было бы писать "нет". Как отследить событие перехода к следующей записи? Пробовала проверять klass.t = '', klass.t = nil, klass.t = #1310, klass.t = '/r', не помогает

Вернуться к обсуждению:
Как определить, что пользователь ничего не ввел в поле?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.02.2015, 13:40
Готовые ответы и решения:

Продолжить работу программы если пользователь ничего не ввел
uses crt; var a,x:integer; begin clrscr; a:=77; randomize; writeln(' нажмите 0 для выхода');...

Определить, какую скобку ввел пользователь
Нужно проверить правельно ли сделана. Program number17; var s:char; begin ...

Определить, сколько чисел ввел пользователь
Напишите программу, которая запрашивает у пользователя числа до тех пор, пока каждое следующее...

Вот часть кода, в нем я должен сделать если я ничего не ввожу то чтоб вывело сообщение о том что пользователь не ввел данных, но у меня не выходит
void Magazine::Input() { system("cls"); //locale::global(locale("")); ...

Как определить, что пользователь ничего не выбрал в OpenFileDialog
Открываю диалог для загрузки фото, все работает и загружает, но есть одна проблема. Если не выбрать...

3
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru