Новые публикации

Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Turbo Pascal

Started By kirillsp, ноя 20 2006 15:22

Вы не можете создать новую тему
Please log in to reply

17 ответов в этой теме

#1 kirillsp

Постоялец
1 050 сообщений

Отправлено 20 ноября 2006 - 15:22

Народ, кто в этом понимает, можете мне помочь написать программу для Turbo Pascal?

1. Написать программу проверки знания основания Сантк-Петербурга. В случае ответа пользователя программа должна воодить правильный ответ. Нижу представлен рекомендуемый вид экрана во время работы программы:

В каком году основан Санкт-Петербург?
Введите число и нажмите ЕНТЕР
->1705
Вы ошиблись, Санкт-Петербург был основан в 1703 году.

2. Написать программу, которая вычисляет сумму первых n целых положительных четных чисел. Кол-во суммируемых чисел должно вводится во время рабты программы. Ниже представлен рекомендуемый вид экрана во время работы программы:

Вычисление суммы четных положительных чисел.
Введите кол-во суммируемых чисел и нажмите ЕНТЕР
->12
Сумма первых 12 положительных чисел равно 156.

Сообщение изменено: kirillsp (20 ноября 2006 - 15:28 )

Наверх

#2 Буквнехвати

Постоялец
6 724 сообщений

Откуда:вы такие умные ?

Отправлено 20 ноября 2006 - 20:26

сейчас скачаю паскаль повспоминаю ... первую то точно написать нопроблемс ...

на этом месте могла быть ваша реклама. но вы проспрали все возможности.

Наверх

#3 Буквнехвати

Постоялец
6 724 сообщений

Откуда:вы такие умные ?

Отправлено 20 ноября 2006 - 21:11

Первая :
только не вспомнить как проверку на numeric format сделать ... если домучаю выложу ещё разок ...

uses crt;
var
a:integer;
begin
clrscr;
repeat
write('sankt-peter:');
read(a);
if a<>1703 then writeln('No ...') else Writeln('Yes ...');
until a=1703;
readkey;
end.

Сообщение изменено: дмитник_тут (20 ноября 2006 - 21:13 )

на этом месте могла быть ваша реклама. но вы проспрали все возможности.

Наверх

#4 kirillsp

Постоялец
1 050 сообщений

Отправлено 20 ноября 2006 - 21:33

дмитник_тут, спасибо, проверил, работает как надо

Наверх

#5 kirillsp

Постоялец
1 050 сообщений

Отправлено 20 ноября 2006 - 22:05

Вторая программа:

program SUMMA;

Var
a: array [1..100] of integer;
sum, k, i: integer;

Begin
randomize;
for i := 1 to 100 do a[i] := random(101) - 50;
writeln('Вычисление суммы четных положительных чисел.');
writeln;
writeln('Введите количество суммируемых чисел и нажмите ENTER:');
readln(k);
sum:=0;
for i:=1 to k do
 begin
  if (a[i] >= 0) and (a[i] mod 2 = 0) then sum := sum + a[i]
 end;
writeln('Сумма первых ',k,' положительных, чётных чисел равна ',sum);
readln;
End.

Наверх

#6 Буквнехвати

Постоялец
6 724 сообщений

Откуда:вы такие умные ?

Отправлено 20 ноября 2006 - 22:23

вот только не вкурить мне - нахрена рандом

на этом месте могла быть ваша реклама. но вы проспрали все возможности.

Наверх

#7 V^v

Пользователь
316 сообщений

Отправлено 20 ноября 2006 - 22:54

а легче вторую сделать так:

((2*2 + (n-1)*2)*n)/2

первые положительные четные числа это 2, 4, 6 ... rand не нужен

int main(void)

Наверх

#8 Буквнехвати

Постоялец
6 724 сообщений

Откуда:вы такие умные ?

Отправлено 20 ноября 2006 - 22:58

а легче вторую сделать так:

((2*2 + (n-1)*2)*n)/2
первые положительные четные числа это 2, 4, 6 ... rand не нужен

я искал эту формулу ... но моя математика . увы

. массив - это простой путь

на этом месте могла быть ваша реклама. но вы проспрали все возможности.

Наверх

#9 V^v

Пользователь
316 сообщений

Отправлено 20 ноября 2006 - 22:59

да я ее тоже не помнил =)

int main(void)

Наверх

#10 Буквнехвати

Постоялец
6 724 сообщений

Откуда:вы такие умные ?

Отправлено 20 ноября 2006 - 23:07

да я ее тоже не помнил =)

так ... что то не сходится

... для S n=3 подошла

... для n = 4 нет

((4 + (n-1)^2)*n) / 2

такая формула ?
значок ^ - степень ...

Сообщение изменено: дмитник_тут (20 ноября 2006 - 23:07 )

на этом месте могла быть ваша реклама. но вы проспрали все возможности.

Наверх

#11 Cryptoboy

Пользователь
280 сообщений

Отправлено 20 ноября 2006 - 23:10

V^v, залезай в топкодер=)

Наверх

#12 Буквнехвати

Постоялец
6 724 сообщений

Откуда:вы такие умные ?

Отправлено 20 ноября 2006 - 23:18

ахах

.. формула то ... пришлось поискать сайт с формулами по прогрессии

... и вышло : n+n^2 .

ппц ... смешно .

на этом месте могла быть ваша реклама. но вы проспрали все возможности.

Наверх

#13 V^v

Пользователь
316 сообщений

Отправлено 20 ноября 2006 - 23:19

((4 + (n-1)^2)*n) / 2

такая формула ?
значок ^ - степень ...

не степень, а умножение, в общем виде:
((2*a1 + (n-1)*d)*n)/2,
где а1 первый элемент прогресси, d - это разница прогресси, n - количество элементов

V^v, залезай в топкодер=)

Unable to Launch Arena,
глючит что-то

int main(void)

Наверх

#14 Буквнехвати

Постоялец
6 724 сообщений

Откуда:вы такие умные ?

Отправлено 20 ноября 2006 - 23:21

забей .. я уже на бумажке всё упростил

n+n^2

на этом месте могла быть ваша реклама. но вы проспрали все возможности.

Наверх

#15 Cryptoboy

Пользователь
280 сообщений

Отправлено 20 ноября 2006 - 23:23

V^v, У меня работает

Наверх

#16 Буквнехвати

Постоялец
6 724 сообщений

Откуда:вы такие умные ?

Отправлено 20 ноября 2006 - 23:30

uses
crt;
var
n:integer;
begin
Write('vvedi kolli4estvo ... :');
read(n);
WriteLn('Summa perv6h ',n,' 4etn6h 4isel ravna :',n+n*n ) ;
Readkey;
end.

вот и вся беда

.. а стоило лишь вспомнить математику 9го класса...

на этом месте могла быть ваша реклама. но вы проспрали все возможности.

Наверх

#17 Буквнехвати

Постоялец
6 724 сообщений

Откуда:вы такие умные ?

Отправлено 21 ноября 2006 - 00:05

V^v, ты чего сидишь ? перепроверяешь ?

на этом месте могла быть ваша реклама. но вы проспрали все возможности.

Наверх

#18 V^v

Пользователь
316 сообщений

Отправлено 21 ноября 2006 - 00:39

да не, все правильно должно быть

int main(void)

Наверх

Вернуться в Программирование

Turbo Pascal

Войти