Программа, которая вводит слово в одном регистре и выводит в другом.

GotoXY в Pascal.

Процедура GotoXY используется в Pascal для перевода курсора в нужную позицию на экране. Для этой процедуры указываются координаты. После указания процедуры GotoXY в коде программы сообщение будет выводиться на экран в тех координатах, которые мы ...

Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.

Мы уже знаем, какие существуют функции для целых переменных. Это – нахождение модуля числа (Функция Abc), а также возведение числа в квадрат (Функция Sqr). В этом уроке мы рассмотрим функции, применяемые к дробным числам. Это функции Sqr - квадрат ...

Умножение, деление, сложение, вычитание вещественных чисел в Pascal.

С вещественными числами можно производить операции умножения, сложения, вычитания, а также операцию деления. Причем операция деления отличается от операции Div. Деление вещественных чисел - это обычное математическое деление, в результате которого ...

Циклы и массивы

Индексы одномерного массива.

Существует класс задач, в которых индекс массива используется для формализации вычислительного процесса путем сведения исходных формул к конечным суммам и произведениям. Преобразованные таким образом ...

Тип данных Integer.

Тип INTEGER (целый). Этот тип представляет множество целых чисел диапазона от -32768 до 32767. В памяти ЭВМ под целое число отводится два байта (16 бит).

program procedura2; uses crt; procedure upstring (s1: string; var s2: string); var i:integer; c: char; begin s2:= ‘’; for i:=1 to length (s1) do begin c:=s1[i]; c:=chr(ord(‘A’) – ord(‘a’) + ord (c)); s2:= s2+c end end; var isxstroka, preobrstroka: string; begin clrscr; writeln (‘Введите строку: ’); readln (isxstroka); upstring (isxstroka, preobrstroka); writeln(‘Результат: ’, preobrstroka); readln end.

program procedura2; uses crt; procedure upstring (s1: string; var s2: string); var i:integer; c: char; begin s2:= ''; for i:=1 to length (s1) do begin c:=s1[i]; if ord (c)<=175 then c:=chr(ord('А') - ord('а') + ord (c)) else c:=chr(ord('Р') - ord('р')+ord (c)); s2:= s2+c end end; var isxstroka, preobrstroka: string; begin clrscr; writeln ('Введите строку: '); readln (isxstroka); <li>upstring (isxstroka, preobrstroka);</li> <li>writeln('Результат: ', preobrstroka);</li> <li>readln</li> <li>end.</li>

В Паскале процедуры LowerCase нет, есть только UpCase, которая переводит буквы в верхний регистр. Чтобы создать 30 записей, необходимо создать типизированный файл и ввести поочереди все 30 записей. Например, программа внизу вводит 30 записей: фамилию человека и год его рождения и записывает их в файл.
uses crt;
type dan=record
fam:string[15];
god_rog:integer ;
end;
var
vvod:array[1..3 0] of dan;
baza:file of dan;
i:integer;
begin {1}
clrscr;
for i:=1 to 30 do begin
Writeln('Введите фамилию');
readln(vvod.fam);
Writeln('Введите год рождения');
readln(vvod.god_rog);
end;
assign(baza,'D:/base_of_data.dat');
rewrite(baza);
for i:=1 to 30 do
write(baza, vvod);
close (baza);
end.

Следующая программа производит поиск в этом файле. Вы вводите фамилию (большими или маленькими буквами), на экран выводится фамилия и год рождения. При этом, следует учитывать, что в первой программе (когда вы создаете 30 записей) фамилии необходимо вводить в нижнем регистре.
uses crt;
type dan=record
fam:string[15];
god_rog:integer ;
end;
var
vvod:dan;
baza:file of dan;
i:integer;
kolsimfam:byte;
fampoisk1:strin g[15];
fampoisk2:string[15];
begin
clrscr;
assign(baza,'D:/base_of_data.dat');
reset(baza);
Writeln ('Введите фамилию. Достаточно ввести лишь несколько символов');
readln(fampoisk1);
kolsimfam:=length (fampoisk1);
while not eof(baza) do
begin
read(baza,vvod);
fampoisk2:=copy(vvod.fam,1,kolsimfam);
if (fampoisk1=famp oisk2) or (fampoisk1=upca se(fampoisk2)) then
begin
writeln ('ФИО -',vvod.fam);
write ('Год рож.-',vvod.god_rog);
end;
end;
close(baza);
readln;
end.

0 # Ромка 20.05.2012 19:19

Есть код программы. Как сделать поиск с независимым регистром с кириллицей?
Program odnogruppniki;
Uses crt;
type opisanie= record
imya: string;
familiya: integer;
adress: string;
telefon: string;
end;

var fer: opisanie;
a: file of opisanie;
b: integer;
begin
clrscr;
writeln ('Для ввода информации нажмите 1’);
writeln ('Для вывода нажмите 2');
writeln ('Для выхода 3');
readln (b);
case b of
1: begin
clrscr;
writeln ('Введите данные');
writeln;
writeln ('?Имя ');
readln (fer.imya);
writeln (‘Фамилия: ');
readln (fer.familiya);
writeln ('адрес: ');
readln (fer.adress);
writeln ('Телефон: ');
readln (fer.telefon);
assign (a, 'C.group.txt');
reset (a);
seek (a, filesize (a));
write (a, fer);
close (a);
readln;
end;
2: begin
assign (a, 'C:\group.txt') ;
reset (a);
while not eof (a) do
with heros do
begin
read (a, fer);
writeln (imya:16,' ', familiya:4,' ', adress:18,' ', telefon:7);
end;
readln;
close (a);
end;
end;
end.

-1 # Administrator 22.05.2012 04:36

Предыдущий комментарий почитай. Там вроде все понятно.

-1 # Punisher 27.05.2012 11:15

а как можно сделать динамическую сортировку списка??? вот я сделал записи, не так как у вас через массив, и организовал поиск с независимым регистром.

-1 # Administrator 27.05.2012 15:27

Что такое динамическая сортировка. Поподробнее, что вы хотите получить?

+2 # 2 курс 06.02.2013 19:38

А так ли сильно при написании игр понадабятся регистры? Для чего они нужны? И есть ли такое паняти как регистры в языках java и C++?

-1 # newgeniy 09.02.2013 02:16

ну вы вообще спросили))
вам виднее что у вас за игра в голове)
думаю подобная программа полезна для каких то программ, веб-сайтов где учитывается регистр букв или нужно выводить в таблицах какой то расчетной программы слова с определенным регистром, например пользователю дается возможность вводить данные в любом виде а в таблице будет выводиться данные в таком каком прикажите вы программе. :-|

как это может относится к играм я даже придумать не могу) ;-)

-1 # newgeniy 09.02.2013 02:17

да такое понятие есть во всех кроссплатформен ных языках программирования
главное что это есть в вашем любимом Паскале

-1 # Dem 13.02.2013 09:37

Там где вы приписываете переменной «s2» значение... Это уже строка №12, а не №11.

+2 # Никита 28.11.2016 10:15

У меня вопрос,можно ли сделать в Pascal ABC так,чтобы созданный файл открылся,и редактирование производить уже в нём???

0 # Друзья 29.09.2021 06:10

Программа редактирования строки текстового файла, например: нам дан 1.txt в нём 10 строк и мне нужно написать hello people на 9 строке:
begin
var s := ReadAllLines('1 .txt');
s[8] := 'hello people';
WriteAllLines(' 1.txt', s);
end.

Обновить список комментариев

Новинки Pascal

Уроки и лекции

Популярное в Паскаль

GotoXY в Pascal.

Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.

Умножение, деление, сложение, вычитание вещественных чисел в Pascal.

Циклы и массивы

Индексы одномерного массива.

Тип данных Integer.

Программа, которая вводит слово в одном регистре и выводит в другом.

Комментарии

Популярные уроки

Все о Windows

Все о WEB