|
Вывестиномер координаты пункта В наиболее удаленного от пункта А.
uses crt-
varmaxx,maxy,i,m,x,y,n:integer-
bx:array[1..1000]of integer-
by:array[1..1000]of integer-
bx1:array[1..1000]of integer-
by1:array[1..1000]of integer-
begin-
clrscr-
writeln(‘Введите координаты пункта А(x и y через Enter) ‘)-
readln(x)-
(далее…)
Категория: Общие |
Дата: 29.12.12
|
Напечататьфамилию победителя.
uses crt-
vari,size,max:integer-
nam:array[1..10] ofstring-
bal:array[1..10] ofinteger-
begin
clrscr-
writeln(‘Сколько участников олимпиады’)-
readln(size)-
writeln(‘Максималтный балл’)-
readln(max)-
FOR i := 1 TO sizedo
begin
clrscr-
writeln(‘Фамилия участника’)-
readln(nam[i])-
writeln(‘Его балл’)-
(далее…)
Категория: Общие |
Дата: 28.12.12
|
Напечататьфамилию чемпиона и его результат.
uses crt-
vari,max,size:integer-
— — — winer:string-
nam:array[1..10] ofstring-
bal:array[1..10] ofinteger-
begin
clrscr-
writeln(‘Введите кол-во участников соревнования’)-
readln(size)-
FOR i := 1 TO sizedo
begin
clrscr-
writeln(‘Фамилия участника’)-
readln(nam[i])-
(далее…)
Категория: Общие |
Дата: 28.12.12
|
Посчитатьобщую стоимость товара.
uses crt-
varnumi,pricei,numii,priceii,numiii,priceiii,numiv,priceiv:integer-
begin
clrscr-
writeln(‘Введите количество и стоимость товаров Iсорта кол-во и стоимость через Enter’)-
readln(numi)-
readln(pricei)-
clrscr-
writeln(‘Введите количество и стоимость товаров IIсорта кол-во и стоимость через Enter’)-
(далее…)
Категория: Общие |
Дата: 28.12.12
|
Занести втаблицу оценки учеников класса за год по математике — и информатике.
uses crt-
vari,k,size:integer-
nam:array[1..20] ofstring-
inf:array[1..20] ofinteger-
mat:array[1..20] ofinteger-
begin
clrscr-
writeln(‘Сколько учеников в классе’)-
readln(size)-
FOR i := 1 TO sizedo
begin
clrscr-
writeln(‘Введите фамилию ученика, оценку по мат.,оценку по инф.’)-
(далее…)
Категория: Общие |
Дата: 28.12.12
|
Сформироватьсписок учащихся сдавших экзамен на отлично.
uses crt-
var i,size:integer-
nam:array[1..10] ofstring-
tick:array[1..10]of integer-
mark:array[1..10]of integer-
markp:array[1..10]of string-
begin
clrscr-
writeln(‘Введите кол-во учеников в классе’)-
readln(size)-
FOR i := 1 TO sizedo
begin
clrscr-
writeln(‘Введите фамилию ученика, билет, оценкуцифрой, прописью (через ENTER)’)-
(далее…)
Категория: Общие |
Дата: 27.12.12
|
Выбрать самого высоког ученика по данным из таблицы.
uses crt-
vari,max,rr,vv,size:integer-
— — — vnam1,vnam2:string-
— — — nam1:array[1..10] of string-
— — — nam2:array[1..10] of string-
— — — r:array[1..10] of integer-
— — — v:array[1..10] of integer-
(далее…)
Категория: Общие |
Дата: 27.12.12
|
Организации, закупали компьютеры в фирмах «Вега», «Владос», «Техно» «Сити», -«Санрайз», «Стиль». Определить:
— фирмы, в которых закупила компьютеры каждая организация
— фирмы, в которых купила компьютеры хотя бы одна организация
— фирмы, в которых ни одна организация не купила компьютеры.
Program mn_1-
(далее…)
|
Дан текст на русском языке. Определить, каких букв больше –гласных или согласных.
program mn_10-
const
glasn=[‘а’,’е’,’и’,’о’,’у’,’ы’,’э’,’ю’,’я’]-
soglas=[‘б’,’в’,’г’,’д’,’ж’,’з’,’й’,’л’,’м’,
‘н’,’р’,’к’,’п’,’с’,’т’,’ф’,’х’,’ц’,’ч’,’ш’,’щ’]-
var
st: string-
g,s,i:integer-
begin
write(‘Введите строку ‘)-
readln(st)-
(далее…)
|
Дан текст. Удалить — в нем повторяющиеся символы.
Program mn_11-
var
s:string-
m:set of char-
i:integer-
begin
writeln(‘Введите текст’)-
readln(s)-
i:=1-
repeat
if s[i] in m then
delete(s,i,1)
else
begin
include(m,s[i])-
inc(i)
end
until
i>-length(s)-
writeln(‘Результат:’)-
writeln(s)-
readln
end.
|
|
|