Отправляет email-рассылки с помощью сервиса Sendsay

Задачи и решения по программированию в среде TurboPascal

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "RFpro.ru: Программирование на языке Pascal" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Февраль 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Автор
Зорин Юрий

Статистика

2.200 подписчиков
-3 за неделю
←   Все выпуски   →

Задачи и решения по программированию в среде TurboPascal - Движение к звездам


Информационный Канал Subscribe.Ru

Задачи и решения по программированию в среде Turbo Pascal

Здравствуйте, уважаемые подписчики. Перед Вами 14 номер рассылки. Подписалось 1850+

Ответ к задаче "Картинная галерея"

( Евгений Зайцев, Сергей Юшанов )

var l,k,j,i,n:integer;

pl:real;

f:text;

x,y:array[1..100]of integer;

s:array[1..100]of real;

Begin

assign(f,'gallery.in');reset(f);

readln(f,n);

for i:=1 to n do readln(f,x[i],y[i]);

close(f);

for i:=1 to n do begin

for j:=1 to n do begin

l:=j-1;if l=0 then l:=n;

pl:=0.5*abs(x[i]*y[j]+x[j]*y[l]+x[l]*y[i]-x[l]*y[j]-x[j]*y[i]-x[i]*y[l]);

s[i]:=s[i]+pl;

end;

end;l:=0;

assign(f,'gallery.out');rewrite(f);

for i:=1 to n do if s[1]<>s[i] then inc(l);

if l=0 then write(f,'NO') else write(f,'YES');

close(f);

end.


 

"Движение к звездам "

Движение к звездам.  Иллюминатор космического корабля обращен в сторону его стремительного движения к звездам. Создайте программу, которая рисует «звездное небо» видимое из иллюминатора: звезды двигаются по направлению от центра экрана к его краям.

Примечание: можно использовать графику

 

Вопросы читателей

1.Напечатать список группы и средний балл каждого студента.

2.Создать программу для составления списка пациентов старше N лет с
диагнозом Y, старше M лет с диагнозом Z.

3.Написать программу, которая напечатает список студентов, желающих
прослушать дисциплину X; если число желающих превысит 8 человек, то
отобрать студентов, имеющих более высокий балл успеваемости.

4.Написать программу, выдающую следующую информацию о наличии и
стоимости обуви артикула X, - ассортиментный список мужской обуви с
указанием наименования и наличия числа пар каждой модели.

Ответить: mailto:romeo606@rambler.ru

-----------------------------------------------------

Общее условие задач: Число m получается из числа n следующим образом : сначала идут кратные трем
цифры числа m затем кратные двум, затем все остальные.
1. n и m числа целого типа но программа должна работать корректно для числа n содержащего не
менее 9 цифр.
2. n представляет собой массив const из цифр размерность которых неограниченна. В этом массиве
сделать перестановку получив m не пользуясь вспомогательным массивом.
3. n и m имеют тип string длинна n может составлять до 255 симвалов.
Ответить: mailto:max-stept@yandex.ru

 

 

 -----------------------------------------------------

]Как через TurboPascal запустить какой-нибудь файл
Спасибо!!!

Ответить: mailto:andrej2003@inbox.ru

-----------------------------------------------------

Помогите, пожалуйста, с программой симплекс-метода на Турбо Паскале.

Ответить: mailto:seryoga_77@mail.ru

-----------------------------------------------------

Вот и все! Удачи!

Если есть вопросы по программированию в Turbo Pascal или решенные и нерешенные задачи, то присылайте на mailto:vmftem@mail.ru с темой Pascal

 

 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное