Автор работы: Пользователь скрыл имя, 11 Марта 2012 в 14:43, контрольная работа
Система Турбо Паскаль, представляет собой единство двух в известной степени самостоятельных начал: компилятора с языка программирования Паскаль (язык назван в честь выдающегося французского математика и философа Блеза Паскаля (1623-1662)) и некоторой инструментальной программной оболочки, способствующей повышению эффективности создания программ.
1.Введение................................................................................. 3
2.Задание 1................................................................................ 4
3.Задание 2................................................................................ 5
4.Задание 3................................................................................ 7
5.Задание 4................................................................................ 8
6.Задание 5................................................................................ 10
7.Задание 6................................................................................ 12
8.Задание 7................................................................................ 13
9.Задание 8................................................................................ 14
10.Список используемой литературы....................................... 16
if ind=0 then
begin
if kol>1 then
begin
write(ch,'-');
writeln(kol);
end;
ch:=s1[1];
kol:=0;
end;
end;
readln;
end.
Контрольный пример:
Задание 7 – в программе недочет 77
Работа со строками
Посчитать в строке все символы между первым и вторым двоеточиями. Если второго двоеточия нет, то посчитать количество символов до конца строки.
Program z7;
uses crt;
var
W,s:string;
n:real;
len,i:byte;
{w:string[79];}
begin
clrscr;
write('vvedite clovo ');
readln(W);
{ s:='';}
n:=1;
len:=length(w);
while n<=len do
begin
for i:=len downto 1 do
if W[i]=':' then begin;
s:=s+w[i];
end else;
n:=n+1
end;
Delete(s,1,1); {- probel}
Writeln('slovo sostoit iz ',length(s),' bykv');
readln;
end.
Контрольный пример:
Задание 8 +
Осуществить работу с массивом записей
Сформировать массив записей - успеваемость группы. Поля записи: фамилия студента, оценки по трем дисциплинам. Выбрать из группы неуспевающих студентов.
program z8;
uses crt;
type
zap=record
name:string[25];
fio:string;
mat:integer;
rus:integer;
trud:integer;
end;
var
kol:byte;
i:integer;
students:array[1..10] of zap;
begin
write('Количество студентов: ');
readln(kol);
for i:=1 to kol do
with students[i] do begin
write(i,' студент ');
readln(name);
write(' математика ');
readln(mat);
write(' русский язык ');
readln(rus);
write(' история ');
readln(trud);
end;
readln;
writeln(' Список студентов');
writeln;
for i:=1 to kol do
begin
writeln('',students[i].name);
writeln;
end;
for i:=1 to kol do
begin
if students[i].mat<3 then writeln('',students[i].name,' не успевает по математике');
if students[i].rus<3 then writeln('',students[i].name,' не успевает по русскому языку');
if students[i].trud<3 then writeln('',students[i].name,' не успевает по истории');
end;
readln;
clrscr;
end.
Контрольный пример:
Список используемой литературы
1.Грызлов В.И.,Грызлова Т.П. Турбо Паскаль 7.0.-М.:ДМК,1998
2.Климова Л.М. PASCAL 7.0.Практическое программирование, решение типовых задач.-М.:КУДИЦ-ОБРАЗ,2000
5