Карта сайтаПоискОбратная связь
f-баня
а тебя здесь нет?
(мучеников: 12883)


Вернуться   Форум о FIFA 15, FIFA 14, PES 2014 и других футбольных симуляторах на fifasoccer.ru > Жизнь > Трепология > Программирование

Ответ
 
Опции темы
Старый 10.02.2010, 19:53   #41
fclm-club
 
Аватар для DmiGo
 
Регистрация: 09.10.2008
Адрес: Russian Federation
Сообщений: 742
Отправить сообщение для DmiGo с помощью ICQ Отправить сообщение для DmiGo с помощью Yahoo
По умолчанию

cec, большое спасибо. Выручил
__________________
Last.fm
Twitter
DmiGo вне форума   Ответить с цитированием
Старый 10.02.2010, 19:54   #42
Посетитель
 
Аватар для dark_wolf
 
Регистрация: 16.02.2009
Адрес: Ижевск
Сообщений: 190
Отправить сообщение для dark_wolf с помощью ICQ
По умолчанию

DmiGo, держи:
var a, b, c, d, s, r: real;
begin

writeln ('введите число а');
readln (a);
writeln ('введите число b');
readln (b);

c:=a/3;
d:=b+5;
s:=c+d;
r:=a-b;

if s<10.5 then writeln (c,' ', d)
else writeln (r);
end.

Опоздал).
__________________
Жизнь - интеграл тупости по времени.
dark_wolf вне форума   Ответить с цитированием
Старый 10.02.2010, 19:57   #43
fclm-club
 
Аватар для DmiGo
 
Регистрация: 09.10.2008
Адрес: Russian Federation
Сообщений: 742
Отправить сообщение для DmiGo с помощью ICQ Отправить сообщение для DmiGo с помощью Yahoo
По умолчанию

Цитата:
Сообщение от dark_wolf Посмотреть сообщение
Опоздал).
Ничего. Все равно спасибо.
__________________
Last.fm
Twitter
DmiGo вне форума   Ответить с цитированием
Старый 10.02.2010, 20:06   #44
Посетитель
 
Аватар для dark_wolf
 
Регистрация: 16.02.2009
Адрес: Ижевск
Сообщений: 190
Отправить сообщение для dark_wolf с помощью ICQ
По умолчанию

cec, исправься. Замени в своей программе "b*5" на "b+5".
__________________
Жизнь - интеграл тупости по времени.
dark_wolf вне форума   Ответить с цитированием
Старый 10.02.2010, 20:08   #45
f-orbidden
 
Аватар для cec
 
Регистрация: 05.03.2007
Адрес: Кузбасс - Москва
Сообщений: 801
Отправить сообщение для cec с помощью ICQ Отправить сообщение для cec с помощью Skype™
По умолчанию

dark_wolf, спасибо.
__________________
CEC: Привет, что делашь?
-O!M-: Напился у друга на Дене Рожнеинии... Я не в состоянии шутить...

"Комментатор понимает игру примерно на одном с футболистами и тренерами уровне. А болельщики в основной массе футбола не понимают. Они его любят, переживают за свои команды, но сути игры они, как правило, не понимают. Их оценки – из другой области."(c) Г.Орлов
cec вне форума   Ответить с цитированием
Старый 11.02.2010, 19:41   #46
Zenit-club
 
Регистрация: 28.05.2009
Сообщений: 471
Отправить сообщение для Egification с помощью ICQ
По умолчанию

первая задачка
Определите и выведите на экран количество четырехзначных чисел,делящихся без остатка одновременно на 5 и 11.
вторая задачка
Найдите и выведите на экран все трехзначные числа,кратные 20,сумма цифр которых равна сумме частного от деления их на 20.
__________________
За Зенит с 2005 года...
Два года с f-сайтом...

отсидел срок в f-бане
Egification вне форума   Ответить с цитированием
Старый 11.02.2010, 20:18   #47
Посетитель
 
Аватар для Dr.Gonzo
 
Регистрация: 02.03.2007
Адрес: в интернетах
Сообщений: 224
Отправить сообщение для Dr.Gonzo с помощью ICQ
По умолчанию

Egification
i := 1000
while i <= 9995 do
begin
if (i mod 11) == 0 then
writeln(i);
i := i + 5;
end;

вторая похожа (если проходили подпрограммы 0_0 )
function summ(integer n): integer;
begin
Result := 0;
while n <> 0 do
begin
Result := Result + (n mod 10);
n := n div 10;
end;

begin
i := 100
while i < 1000 do
begin
if Summ(i) == Summ(i div 20) then
writeln(i);
i := i + 20;
end;
end;
__________________
Origin: onotolesu

Последний раз редактировалось Dr.Gonzo; 11.02.2010 в 20:36.. Причина: вторяя задачка для земели
Dr.Gonzo вне форума   Ответить с цитированием
Старый 11.02.2010, 21:27   #48

 
Аватар для SerginhoLD
 
Регистрация: 03.06.2008
Сообщений: 515
Отправить сообщение для SerginhoLD с помощью ICQ
По умолчанию

Egification, у тебя все задачки одинаковые, можно было бы давно самому разобраться
__________________
PS4
SerginhoLD вне форума   Ответить с цитированием
Старый 18.02.2010, 19:35   #49
Zenit-club
 
Регистрация: 28.05.2009
Сообщений: 471
Отправить сообщение для Egification с помощью ICQ
По умолчанию

SerginhoLD, всё дело во времени,которго к слову почти нет..
сначала школа,затем репетиция,ннадо кое ка сделать уроки,а затем ещё и секция..
жесть...)
Да кстати решите через Repeat-Until:
1)Напечатать минимальное число больше 200,которое делится без остатка на 17
2)Дано число.Есть ли в нём цифра А?
__________________
За Зенит с 2005 года...
Два года с f-сайтом...

отсидел срок в f-бане
Egification вне форума   Ответить с цитированием
Старый 28.02.2010, 19:26   #50
Посетитель
 
Аватар для MaximuZ
 
Регистрация: 31.08.2009
Адрес: Новополоцк, Беларусь
Сообщений: 18
По умолчанию

Egification,
1-я
Program First;
var i:integer;
begin
i:=200;
repeat
inc(i);
until i mod 17 =0;
writeln(i);
end.

2-я
Program Second;
var N,i:longint;
A:char;
S:string;
B:Boolean;
begin
readln(N,A);
str(N,S);
b:=false;
i:=0;
repeat
inc(i);
if S[i]=A then B:=true;
until i>=length(s);
if B then writeln('Yes') else writeln('No');
end.
MaximuZ вне форума   Ответить с цитированием
Ответ


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

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

Быстрый переход


Часовой пояс GMT +3, время: 00:55.