Обсуждение:Вычислительные машины, комплексы, системы и сети: различия между версиями
Перейти к навигации
Перейти к поиску
(→задание by chinich) |
(by Black Bull) |
||
| Строка 7: | Строка 7: | ||
By chernov:создать процедуру удаляющую текст в файле после заданного символа | By chernov:создать процедуру удаляющую текст в файле после заданного символа | ||
| + | |||
| + | == by Black Bull == | ||
| + | |||
| + | uses crt; | ||
| + | var s:string; s1:string[1]; l,k,j,i:integer; | ||
| + | begin | ||
| + | writeln('vvedite text'); readln(s); | ||
| + | l:=length(s); | ||
| + | writeln('vvedite simvol'); readln(s1); | ||
| + | for i:=1 to l do if s1=s[i] then begin j:=l-i+1; delete(s,i+1,j); break end; | ||
| + | writeln(s); | ||
| + | writeln; | ||
| + | writeln('programm has made by Black Bull'); | ||
| + | readln; | ||
| + | end. | ||
Версия 09:10, 3 июля 2008
задание by chinich
By chinich: дан файл, состояший из данных типа запись.запись содержит информацию: фамилия,адрес, телефон. Определить, сколько телефонов установлено в доме 1 по улице пушкина
By chernov:создать процедуру удаляющую текст в файле после заданного символа
by Black Bull
uses crt; var s:string; s1:string[1]; l,k,j,i:integer; begin writeln('vvedite text'); readln(s); l:=length(s); writeln('vvedite simvol'); readln(s1); for i:=1 to l do if s1=s[i] then begin j:=l-i+1; delete(s,i+1,j); break end; writeln(s); writeln; writeln('programm has made by Black Bull'); readln; end.
