Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Помогите написать програму на Паскале (http://www.tehnari.ru/f41/t25631/)

chro 22.06.2009 19:33

Помогите написать програму на Паскале
 
Друзья очень нужна ваша помощь!!помогите решить 2 задачки на паскале! нив какую не могу решить ((( надеюсь на вашу помощь!

«Текстовые файлы»
Скопировать текстовый файл в новый файл, перенести в него только те строки, в которых встречаются латинские буквы, и указав после каждой такой строки количество латинских букв в ней.

«Работа в графическом режиме»
Нарисовать на экране равносторонний треугольник синего цвета, который движется по горизонтали и при достижении границы экрана переворачивается и начинает движение в обратном направлении. Программа завершается нажатием любой клавиши.

Vladimir_S 23.06.2009 10:31

Цитата:

Сообщение от chro (Сообщение 214103)
Друзья очень нужна ваша помощь!!помогите решить 2 задачки на паскале! нив какую не могу решить ((( надеюсь на вашу помощь!

«Текстовые файлы»
Скопировать текстовый файл в новый файл, перенести в него только те строки, в которых встречаются латинские буквы, и указав после каждой такой строки количество латинских букв в ней.

VAR
f,f1:TEXT;
S:STRING;
Lat_Num:BYTE;
i:INTEGER;
BEGIN
Assign(f,'D:\d');
ReSet(f);
Assign(f1,'D:\d1');
ReWrite(f1);
REPEAT
ReadLn(f, S);
Lat_Num:=0;
FOR i:=1 TO Length(S) DO
IF ((ORD(S[i])>64) AND (ORD(S[i])<91)) OR
((ORD(S[i])>96) AND (ORD(S[i])<123)) THEN INC(Lat_Num);
IF Lat_Num>0 THEN
WriteLn(f1,S+' ',Lat_Num);
UNTIL EoF(f);
Close(f);
Close(f1);
END.

Vladimir_S 23.06.2009 12:23

Цитата:

Сообщение от chro (Сообщение 214103)
Друзья очень нужна ваша помощь!!помогите решить 2 задачки на паскале! нив какую не могу решить ((( надеюсь на вашу помощь!

«Работа в графическом режиме»
Нарисовать на экране равносторонний треугольник синего цвета, который движется по горизонтали и при достижении границы экрана переворачивается и начинает движение в обратном направлении. Программа завершается нажатием любой клавиши.

Программа работает в DOS-экране 640х480 с черным фоном. Если это не так, сообщите.

USES CRT, Graph;
VAR
Ch:CHAR;
X:WORD;

PROCEDURE Triangle1(X1:WORD);
VAR
X2,X3,Y1,Y2,Y3:WORD;
BEGIN
X2:=X1-40;
Y1:=240+ROUND(20/SQRT(3));
Y2:=Y1;
X3:=X1-20;
Y3:=Y1-ROUND(20*SQRT(3));
LINE(X1,Y1,X2,Y2);
LINE(X1,Y1,X3,Y3);
LINE(X3,Y3,X2,Y2);
END;

PROCEDURE Triangle2(X1:WORD);
VAR
X2,X3,Y1,Y2,Y3:WORD;
BEGIN
X2:=X1-40;
Y1:=240-ROUND(20/SQRT(3));
Y2:=Y1;
X3:=X1-20;
Y3:=Y1+ROUND(20*SQRT(3));
LINE(X1,Y1,X2,Y2);
LINE(X1,Y1,X3,Y3);
LINE(X3,Y3,X2,Y2);
END;

BEGIN
InitGraph( , , );
{Параметры GraphDriver, GraphMode и PathToDriver пропишете сами - это зависит от конфигурации пакета и Вашего компа.}
ClearDevice;
SetTextStyle(DefaultFont, HorizDir, 0);
SetTextJustify(CenterText, BottomText);
OutTextXY(320,480,'Press any key to stop the action');
SetLineStyle(SolidLn, 0, ThickWidth);
SetColor(Blue);
X:=40;
REPEAT
REPEAT
SetColor(Blue);
Triangle1(X);
Delay(10);
SetColor(Black);
Triangle1(X);
INC(X);
IF KeyPressed THEN
BEGIN
Ch:=ReadKey;
HALT;
END;
UNTIL X>640;
DEC(X);
REPEAT
SetColor(Blue);
Triangle2(X);
Delay(10);
SetColor(Black);
Triangle2(X);
DEC(X);
IF KeyPressed THEN
BEGIN
Ch:=ReadKey;
HALT;
END;
UNTIL X<40;
INC(X);
Until KeyPressed;
Ch:=ReadKey;
END.


Часовой пояс GMT +4, время: 03:54.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.