помогите умоляю |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
помогите умоляю |
Tema |
14.11.2002 18:44
Сообщение
#1
|
Гость |
помогите кто знает я в отчаяньи
Всего 4 задачи: (Операция целочисленного деления) Цитата(Задача 1) Написать программу которая по номеру дня недели выдаёт количество уроков в этот день. Цитата(Задача 2) Определить равен ли квадрат заданного трёхзначного числа,кубу суммы цифр этого числа. Цитата(Задача 3) Написать программу нахождении суммы большего и меньшего из 3 чисел(а,в,с) Цитата(Задача 4) Подсчитать количество положительных чисел среди чисел(а,в,с) Вот прошу помоги просто неккому обратиться больше 8-) |
AlaRic |
14.11.2002 22:50
Сообщение
#2
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Пока держи 4:
Код program new1; var a,b,c:real; begin writeln('введите 3 числа'); readln(a,b,c); if a=>0 then if b=>0 then if c=>0 then writeln('3 числа положительны'); else writeln('2 числа положительны'); else writeln('1 число положительно'); end. |
AlaRic |
14.11.2002 23:14
Сообщение
#3
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Number 3:
Заранее прошу прощение за кривое написание но я пишу это в 2 ночи так что...... Код program new2; var s,a,b,c:real; begin writeln('введите a,b,c'); readln(a,b,c); if a<b and b<c then do begin s:=a+c; write('сумма равна', s:5:3); end; else if b<a and a<c then do begin s:=b+c; write(сумма равна', s:5:3); end; else if a<c and c<b then do begin s:a+b; write('сумма равна', s:5:3); end; end. Кстати MJ ты щас в онлайне вроде бы....может заодно проверишь??? |
mj |
15.11.2002 0:44
Сообщение
#4
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
Цитата Пока держи 4: program new1; var a,b,c:real; begin writeln('введите 3 числа'); readln(a,b,c); if a=>0 then if b=>0 then if c=>0 then writeln('3 числа положительны'); else writeln('2 числа положительны'); else writeln('1 число положительно'); end. Это неверное решение задачи... И ещё: перед else нельзя ставить точку с запятой. |
mj |
15.11.2002 0:55
Сообщение
#5
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
1.
Код program P1; var d, u :Byte; begin writeln('введите день недели (1..7)'); readln(d); case d of 1: u := 4; 2: u := 2; 3: u := 3; 4: u := 3; 5: u := 4; 6: u := 2; 7: u := 0; else u := 255; end; if u=255 then writeln('День недели введён неверно') else writeln('Сегодня уроков: ', u); end. |
mj |
15.11.2002 1:04
Сообщение
#6
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
2.
Код program P2; var d, u: Word; begin writeln('введите трёхзначное число'); readln(d); if (d<100) or (d>999) then writeln('Число введено неверно') else begin u := (d div 100)+(d div 10 mod 10)+(d mod 10); if (d*d)=(u*u*u) then writeln('Да'); else writeln('Нет'); end; end. |
mj |
15.11.2002 1:26
Сообщение
#7
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
3.
Код program P3; var d1, d2, d3, d: Integer; begin writeln('введите три числа'); readln(d1); readln(d2); readln(d3); if d2<d1 then begin d := d1; d1 := d2; d2 := d; end; if d3<d1 then begin d := d1; d1 := d3; d3 := d; end; if d3<d2 then begin d := d2; d2 := d3; d3 := d; end; d := d1+d3; writeln('Ответ ', d); end. ----- ----- 3. способ сложнее Код program P3; var a, b, c, p, m, u: Integer; begin writeln('введите три числа'); readln( a ); readln( B ); readln( c ); p := (a+b+abs( a-B )) div 2; m := (a+b-abs( a-B )) div 2; u := (c*2+p+abs(p-c)+m-abs(m-c)) div 2; writeln('Ответ ', u); end. |
mj |
15.11.2002 1:31
Сообщение
#8
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
4.
Код program P4; var d1, d2, d3, d: Integer; begin writeln('введите три числа'); readln(d1); readln(d2); readln(d3); d := byte(d1>=0)+byte(d2>=0)+byte(d3>=0); writeln('Ответ ', d); end. PS: Во всех задачах можно использовать любые типы числовых данных (вместо предложенных мною)... |
Clane |
15.11.2002 11:52
Сообщение
#9
|
Гость |
Вчера ночью сидел решал эти задачи и хотел как приду после унивситета, их размещу... А тут уже все решено... Остались ли у тебя какие-либо вопросы, Tema ?
|
AlaRic |
15.11.2002 16:32
Сообщение
#10
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Цитата Это неверное решение задачи... И ещё: перед else нельзя ставить точку с запятой. Я уже понял....вот сижу разбираю!Вчера просто загрузочный день был! 8) |
AlaRic |
15.11.2002 16:35
Сообщение
#11
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Вот правильное решение:
Код program new1; uses wincrt;(у меня виндовый пас) var a,b,c:real; begin writeln('введите 3 числа'); readln(a,b,c); if a>=0 then if b>=0 then if c>=0 then writeln('3 числа положительны') else writeln('2 числа положительны') else writeln('1 число положительно') end. |
AlaRic |
15.11.2002 16:53
Сообщение
#12
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Цитата program P2; var d, u: Word; begin writeln('введите трёхзначное число'); readln(d); if (d<100) or (d>999) then writeln('Число введено неверно') else begin u := (d div 100)+(d div 10 mod 10)+(d mod 10); if (d*d)=(u*u*u) then writeln('Да'); else writeln('Нет'); end; end. У тебя тоже такая же ошибка - перед else точку с запятой поставил! |
mj |
15.11.2002 18:28
Сообщение
#13
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
Цитата У тебя тоже такая же ошибка - перед else точку с запятой поставил! Верно... Я эти задачи не проверял... |
mj |
15.11.2002 18:33
Сообщение
#14
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
Цитата Вот правильное решение: program new1; uses wincrt;(у меня виндовый пас) var a,b,c:real; begin writeln('введите 3 числа'); readln(a,b,c); if a>=0 then if b>=0 then if c>=0 then writeln('3 числа положительны') else writeln('2 числа положительны') else writeln('1 число положительно') end. Ну это полная чушь... Если a и с положительные, а b отридцательное, то ответ будет 1. |
AlaRic |
15.11.2002 18:57
Сообщение
#15
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Точно....прогоняю по-страшному!
|
borlpasc.narod.ru |
15.11.2002 20:08
Сообщение
#16
|
Пионер Группа: Пользователи Сообщений: 104 Пол: Мужской Репутация: 0 |
А вообще задачи, что то не трудные.
НАдо больше вопросов админам оставлять пусь работают, работают. А так молодцы, что помогаете. Ведь не Всем надо знать этот Паскаль. Напрягают в универе напрягают, и что. Вот у нас в универе есть кто учится на специальности прикладная ифномратика, а понимать и решать, делать программы на языках программирования не хотят. Вот, что с ними делать, нафиг учаться????? -------------------- Заработок в Интернете www.webdengi.nm.ru
www.turbopascal.tk FIDO 2:5028/63.29 |
Alex |
16.11.2002 10:53
Сообщение
#17
|
Бывалый Группа: Пользователи Сообщений: 201 Репутация: 0 |
На какой фиг тогда они пошли на такую специальность!!!!
|
Ivs |
16.11.2002 10:56
Сообщение
#18
|
Бывалый Группа: Пользователи Сообщений: 209 Репутация: 0 |
Да птому что папа так захотел и усё..............
-------------------- Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
|
AlaRic |
16.11.2002 16:19
Сообщение
#19
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
У меня в группе 30 человек...7 уверено идут на отчисление....после этого семестра останется не больше 20!В математике и компьютерах - ни бум-бум!
|
AlaRic |
16.11.2002 16:21
Сообщение
#20
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
А теперь вопрос: на какой черт они сунулись на эту специальность?...да группа то у нас к тому же платная!
|
Текстовая версия | 30.09.2024 12:53 |