Меню сайта

Сколькораз встречается цифра К в натуральном М.

uses crt-

var m:string[79]-

k:string[79]-

number,i:integer-

— — — position:byte-

procedure Search-

begin

— Position:=pos(k,m)-

IFposition&lt-&gt-0 then number := number + 1-

end-

begin-

clrscr-

writeln(‘Введите натуральное число M’)-

readln(m)-

writeln(‘Введите число k (так, чтобы 0&lt-=k&lt-=9)’)-

(далее…)

Категория: Общие | Дата: 29.12.12

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

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

Меню раздела
Блок