Отчет по учебной практике по программированию (задачи на Pascal)

  • 04 нояб. 2010 г.
  • 756 Слова
Лабораторная работа №1
Вариант 13.

1.  Используя команды вывода на экран, изменения цвета текста и места расположения курсора вывести на экран следующий текст:
Где летом пели зяблики,
Сегодня- посмотри! –
Как розовые яблоки,
На ветках снегири.
(З.Алексантдрова)

Программа
program 1-1;
uses crt;
var n,u:Real;
Begin
Clrscr;
gotoxy(15,25);
Textcolor(13);
Writeln('Где летом пелизяблики,');
gotoxy(15,26);
Writeln('Сегодня - посмотри! -');
gotoxy(15,27);
Writeln('Как розовые яблоки,');
gotoxy(15,28);
Writeln('На ветках снегири.');
gotoxy(28,29);
textcolor(4);Writeln('(З.Александрова)');
Readln;
End.
2. Используя команды вывода на экран, изменения цвета текста и места расположения курсора вывести на экран рисунок:
| | | | || | |
|0 |1 |1 |… |1 |1 |0 |
|0 |0 |1 |… |1 |0 |0 |
|…|… |… |… |… |… |… |
|0 |1 |1 |… |1 |1 |0 |
|1 |1 |1 |…|1 |1 |1 |

Программа

program 11-4;
Uses crt;
const
n=7;
Var
i,max,j,m,u,w,z1:Integer;
A: array [1..n,1..n] of integer;
s: array [1..n] ofinteger;
Begin
clrscr;

for i:=1 to n do begin
for j:=1 to n do begin
if ((i=n+1)) then
a[i,j]:=1
else a[i,j]:=0;
write(a[i,j]:4,' ');
end;
writeln;end;
readln;
End.

Лабораторная работа № 12
Вариант 7.

1. Составить программу, которая печатает заданное слово в обратном порядке.

Программа
program 12-1;
Uses crt;
Vari,max,j,t,w,x:Integer;
A,s: string;
Begin
clrscr;
writeln('Введите слово ');
readln(a);
i:=length(a);
for j:=i downto 1 do
write(a[j]);
readln;
End.

2. Дан...
tracking img