Язык программирования Pascal (стр. 3 из 3)
readln (s);
writeln ('введите время на которое вы хотите поменять');
readln (s1);
for i: =1 to n do begin
if a [i]. vy=s then a [i]. vy: =s1;
end;
for i: =1 to n do
begin
writeln (i,’ ’,'машинист ',a [i]. fio,' ','Направление ',a [i]. Nap);
writeln ('время ',a [i]. vy);
writeln;
end; end;
3: begin
writeln ('введите Направление поезда, которое вы хотите удалить');
readln (r);
for i: =1 to n do begin
if a [i]. Nap=r then
k: =i;
for i: =1 to n do
if i<>k then
writeln (i,’ ’,'машинист ',a [i]. fio,' ','Направление ',a [i]. Nap);
writeln ('время ',a [i]. vy);
end;
end;
4: begin
for i: =1 to n-1 do
for j: =1 to n do
if a [i]. Nap>a [j]. Nap then
begin
x: =a [i] ;
a [i]: =a [j] ;
a [j]: =x;
end;
for i: =1 to n do
begin
writeln (i,’ ’,'машинист ',a [i]. fio,' ','Направление ',a [i]. Nap);
writeln ('время ',a [i]. vy);
end;
end;
end;
readln;
end.
3.8.5 Результат работы программы
3.9 Решение задачи
3.9.1 Постановка задачи
Написать программу решения ребуса VOLVO+FIAT=MOTOR.
3.9.2 Таблица идентификаторов
| № | Переменные | Тип | Значение |
| 1 | v, o, l, f, i, a, t, m, r | 0. .9 | Параметры цикла |
| 2 | dig | 0. .9 | Множество цифр |
| 3 | Sum | longint | Сумма VOLVO+FIAT |
| 4 | motor | longint | MOTOR |
3.9.3. Блок-схема
 |
3.9.4 Программа
| |
Uses crt;
var
v, o, l, f, i, a, t, m, r: 0. .9;
dig: set of 0. .9;
sum, motor: longint;
begin
clrscr;
for v: =0 to 9 do begin
include (dig,v);
for o: =0 to 9 do
if not (o in dig) then begin
include (dig,o);
for l: =0 to 9 do
if not (l in dig) then begin
include (dig, l);
for f: =0 to 9 do
if not (f in dig) then begin
include (dig,f);
for i: =0 to 9 do
if not (i in dig) then begin
include (dig, i);
for a: =0 to 9 do
if not (a in dig) then begin
include (dig,a);
for t: =0 to 9 do
if not (t in dig) then begin
include (dig,t);
for m: = 0 to 9 do
if not (m in dig) then begin
include (dig,m);
for r: =0 to 9 do
if not (r in dig) then begin
include (dig,r);
Sum: =v*10000 + (o+f) *1000 + (l+i) *100 + (v+t) *10 + (o+t);
Motor: =m*10000+o*1000+t*100+o*10+r;
if sum = motor then
writeln (v,o,l,v,o,'+',f, i,a,t,'=', m,o,t,o,r);
exclude (dig,r)
end;
exclude (dig,m);
end;
exclude (dig,t);
end;
exclude (dig,a);
end;
exclude (dig, i);
end;
exclude (dig,f);
end;
exclude (dig,l);
end;
exclude (dig,o);
end;
exclude (dig,v);
end;
readln;
end.
3.9.5 Результат работы программы
3.10 Решение задачи
3.10.1 Постановка задачи
Дана строка символов s1, s2, …, sn. Известно, что среди s1, …, sn есть, по крайней мере одна запятая. Найти натуральное i такое, что si- последняя по порядку запятая.
3.10.2 Таблица идентификаторов
| № | Переменные | Тип | Значение |
| 1 | v | char | запятая |
| 2 | s | string | Строка |
| 3 | i | integer | Параметр цикла |
| 4 | n | integer | Номер позиции |
3.10.3 Блок-схема
 |
3.10.4 Программа
uses crt;
var v: char;
s: string;
i,n: integer;
begin clrscr;
writeln ('Vvedite stroky');
readln (s);
begin v: =',';
for i: =1 to length (s) do
if s [i] =v then n: =i;
end;
writeln (n);
readln;
end.
3.10.5 Результат работы программы
Заключение
Я закрепила теоретические знания языка программирования на практике. Практические занятия используются для тщательного изучения содержательно-методических принципов построения программы, содержания и структуры прикладного программного обеспечения, обсуждения методики изучения отдельных тем курса с различными вариантами технического и методического обеспечения.
Список литературы
1. Немнюгин С.А. TurboPASCAL С-П Изд-во Питер 2000.
2. Фаронов В.В. TurboPascal 7.0.М. "Нолидж", 1999
3. Шаньгин В.Ф., Поддубная Л., серия ПО ЭВМ кн.7, М, ВШ, 1991
4. Васюкова Р.Д., Практикум по основам программирования, Язык ПАСКАЛЬ, М, ВШ, 1991
5. Новичков В.С., Алгоритмические языки в техникуме, ПАСКАЛЬ, М, 1990