Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 20.01.2010, 22:12   #1 (permalink)
mister ratmir
Новичок
 
Регистрация: 20.01.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Паскаль

помогите еще раз плиз:Найти самое длинное симметричное слово заданного предложения.
задачка с массивом
mister ratmir вне форума   Ответить с цитированием

Старый 20.01.2010, 22:12
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Я думаю, что лучше сначала набраться информации в аналогичных темах

Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл
Паскаль
Паскаль АВС
Паскаль

Старый 20.01.2010, 22:14   #2 (permalink)
mister ratmir
Новичок
 
Регистрация: 20.01.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Дано натуральное число N (N<28). Получить все натуральные трехзначные числа, сумма цифр которого равна N.
mister ratmir вне форума   Ответить с цитированием
Старый 20.01.2010, 22:16   #3 (permalink)
mister ratmir
Новичок
 
Регистрация: 20.01.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

помогите:Даны натуральные числа a1,b1,c1, a2,b2,c2, которые указывают две даты (число, месяц, год). Вычислить:
mister ratmir вне форума   Ответить с цитированием
Старый 20.01.2010, 22:17   #4 (permalink)
mister ratmir
Новичок
 
Регистрация: 20.01.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

помогите:Даны координаты вершин двух треугольников. Определить, какой из них имеет большую площадь.
mister ratmir вне форума   Ответить с цитированием
Старый 21.01.2010, 10:25   #5 (permalink)
mister ratmir
Новичок
 
Регистрация: 20.01.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию паскаль

помогите еще раз плиз:Найти самое длинное симметричное слово заданного предложения.
задачка с массивом
mister ratmir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 21.01.2010, 10:30   #6 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,949
Записей в дневнике: 57
Сказал(а) спасибо: 135
Поблагодарили 164 раз(а) в 69 сообщениях
Репутация: 67284
По умолчанию

Что вы понимаете под симметричным словом? Что нужно вычислить в третьей задаче? Почему вы дали в 1 и в 5 одинаковое задание?
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 21.01.2010, 10:46   #7 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,949
Записей в дневнике: 57
Сказал(а) спасибо: 135
Поблагодарили 164 раз(а) в 69 сообщениях
Репутация: 67284
По умолчанию

Цитата:
Сообщение от mister ratmir Посмотреть сообщение
Дано натуральное число N (N<28). Получить все натуральные трехзначные числа, сумма цифр которого равна N.
Код:
var n, i, k,s,d,e: integer;
begin
writeln('Введите натуральное N, меньшее 28');
repeat
readln(n);
if n<28 then inc(k) else k:=0;
until k<>0;
for i:=100 to 999 do 
begin
s:=i div 100;
d:=i div 10;
e:=(i mod 100) mod 10;
k:=s+d+e;
if k=n then writeln(i); end;
readln;
end.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 21.01.2010, 12:00   #8 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,949
Записей в дневнике: 57
Сказал(а) спасибо: 135
Поблагодарили 164 раз(а) в 69 сообщениях
Репутация: 67284
По умолчанию

Цитата:
Сообщение от mister ratmir Посмотреть сообщение
помогите:Даны координаты вершин двух треугольников. Определить, какой из них имеет большую площадь.
Код:
type
koord = record
x,y: integer;
end;
var k: array[1..6] of koord;
dlina: array[1..6] of real;
i:integer;
s1,s2,p1,p2:real;
begin
writeln('Последовательно введите координаты вершин первого и второго треугольников');
for i:=1 to 6 do begin
writeln('координата x",i);
read(k[i].x);
writeln('координата y",i);
read(k[i].y);
end;
dlina[1]:=sqrt(sqr(k[1].x-k[2].x)+sqr(k[1].y-k[2].y));
dlina[2]:=sqrt(sqr(k[1].x-k[3].x)+sqr(k[1].y-k[3].y));
dlina[3]:=sqrt(sqr(k[3].x-k[2].x)+sqr(k[3].y-k[2].y));
dlina[4]:=sqrt(sqr(k[4].x-k[5].x)+sqr(k[4].y-k[5].y));
dlina[5]:=sqrt(sqr(k[4].x-k[6].x)+sqr(k[4].y-k[6].y));
dlina[6]:=sqrt(sqr(k[6].x-k[5].x)+sqr(k[6].y-k[5].y));
p1:=(dlina[1]+dlina[2]+dlina[3])/2;
p2:=(dlina[4]+dlina[5]+dlina[6])/2;
s1:=sqrt(p1*(p1-dlina[1])*(p1-dlina[2])*(p1-dlina[3]));
s2:=sqrt(p2*(p2-dlina[4])*(p2-dlina[5])*(p2-dlina[6]));
if s1>s2 then writeln('площадь 1 треугольника больше') else if s1<s2 then writeln('площадь 2 треугольника больше') else writeln('треугольники равные по площади');
readln;
end.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.