Отчет по практике: Язык программирования Pascal

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;