Меню сайта

Вывестиномер координаты пункта В наиболее удаленного от пункта А.

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-

(далее…)

Категория: Множества | Дата: 27.12.12

Дан текст на русском языке. Определить, каких букв больше –гласных или согласных.


program mn_10-

const

glasn=[‘а’,’е’,’и’,’о’,’у’,’ы’,’э’,’ю’,’я’]-

soglas=[‘б’,’в’,’г’,’д’,’ж’,’з’,’й’,’л’,’м’,

‘н’,’р’,’к’,’п’,’с’,’т’,’ф’,’х’,’ц’,’ч’,’ш’,’щ’]-

var

st: string-

g,s,i:integer-

begin

write(‘Введите строку ‘)-

readln(st)-

(далее…)

Категория: Множества | Дата: 26.12.12

Дан текст. Удалить — в нем повторяющиеся символы.


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&gt-length(s)-

writeln(‘Результат:’)-

writeln(s)-

readln

end.

Категория: Множества | Дата: 26.12.12

Страница 10 из 168« Первая...89101112...203040...Последняя »
Меню раздела
Блок