Новые сообщения · Правила  
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Решения задач на Паскале!Срочно нужно!
в каком форум в этом не нашел
341 | Автор: M@RECS | 2012-02-29, 11:40   |  Репутация: [ + 0 ]
Здравствуйте!
Нужна очень срочно помощь!!!!!

Вот код программы:
Program proverka;
Var a, b, S, PR: longint;
Begin
Writeln (‘введите два целых числа, их сумму и произведение’);
Readln (a, b, S, PR);
If a+b=S then writeln (‘сумма верна’) else writeln (‘сумма неверна’);
If a* b=S then writeln (‘произведение верно’) else writeln (‘произведение неверно);
End.

И имеется блок схема к этой же програмке, которая состоит из трех блоков ветвления.

Препод говорит что и блок схема и код программы правильны, но блок схема не соответствует коду! Не могу разобраться как заменить блок схему! Может для оператора условного перехода какое то специальное оббозначение в схеме??
342 | Автор: romanpolukarov | 2012-02-29, 19:15   |  Репутация: [ + 0 ]
342 | Автор: romanpolukarov | 2012-02-29, 19:15   |  Репутация: [ + 0 ]
Quote (romanpolukarov)
If a* b=S then writeln (‘произведение верно’) else writeln (‘произведение неверно);


Вместо S пиши PR
Потому-что ты сравниваешь сумму с произведением


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
343 | Автор: Berestovskiy | 2012-02-29, 19:51   |  Репутация: [ + 211 ]
помогите пожалуста решить задачу по массивам
Пригодность детали оценивается по размеру B который должен соответствовать интервалу (A-g;A+g).определить имеются ли в партии из N деталей бракованные.Если да то подсчитать их количества,в противном случае выдать отрицательный ответ.
пожалуста очень срочно надо.....
344 | Автор: vitek33333 | 2012-03-01, 11:56   |  Репутация: [ + 0 ]
344 | Автор: vitek33333 | 2012-03-01, 11:56   |  Репутация: [ + 0 ]
помогите пожалуйста написать маленькую программку на паскале

определить величину стипендии для отличников и студентов, учащихся без троек, если известна величина стипендиального фонда, число отличн и учащихся на на 4 и 5.надбавка к базовой стипендии у отличников в 2 раза больше чем у учащихся на 4 и 5.величина базовой стипендии известна.
345 | Автор: mari(sh)ka | 2012-03-01, 15:14   |  Репутация: [ + 0 ]
Добрый денью Помогите решить 3 задачки!
1-Найти скалаярное произведение матрици размером Аnxn.
2-Для заданых матриц Amxm Bmxm вычислить выражение (3А+2В)(2А-В)-3АВ. (процедуры)
3-Найти найбольший 'лемент в каждой строке, и найменший 'лемент в каждом столбце матрици Аnxn.
Заранее благодарен!


Air.
346 | Автор: xamko | 2012-03-01, 19:20   |  Репутация: [ + 0 ]
помогите пожалик решить-Написать программу на языке Паскаль.Даны два целых положительных числа N и M.Заменить большее из них суммой этих двух чисел,а меньшее возвести в квадрат.
347 | Автор: sergey313 | 2012-03-04, 10:12   |  Репутация: [ + 0 ]
Quote
помогите пожалик решить-Написать программу на языке Паскаль.Даны два целых положительных числа N и M.Заменить большее из них суммой этих двух чисел,а меньшее возвести в квадрат.

Code
program abc;
  var m,n: integer;
  begin
   writeln(' vvedite M i N');
   read(m,n);
   if m>n then
   m:= m+n;
   n:= n*n;
   if n>m then
   n:= n+m;
   m:= m*m;
end.
348 | Автор: skaleckiy | 2012-03-04, 10:52   |  Репутация: [ + 0 ]
Задача-Написать Программу на языке Паскальупорядочения значений трех переменных по возрастанию.Т.е. при любых исходных значениях А,В,С отсортировать их так,чтобы стало А<В<С
349 | Автор: sergey313 | 2012-03-04, 11:27   |  Репутация: [ + 0 ]
Помогите пожалуйста
Все задачи нужно решить тремя способами:

1)счетчик (for to do)

2)предпроверка условия (while do)

3)постпроверка условия (repeat until)

Задача№1
В бригаде, работающей на уборке сена, имеется N сенокосилок. Первая сенокосилка работала m часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада?

Задача№2
Напишите программу вычисления среднего геометрического модулей двух введенных с клавиатуры целых чисел. Программа должна использовать цикл while do. Условие выхода из цикла – значение числа, равное 999.

Задача№3
На воду опущен шар радиуса r, изготовленный из вещества плотности p (p<1). Найти расстояние от центра шара до поверхности воды. Указание. При составлении программы воспользоваться формулой объема шарового сегмента высоты h: V = пи*h^2 (3r - h)/3, где r - радиус шара, h - высота шарового сегмента.

Помогите пожалуйста если несложно
350 | Автор: Jenya | 2012-03-04, 14:47   |  Репутация: [ + 0 ]
type seria = file of integer;
var s:seria;
Описать функцию max(s), вычисляющую значение
максимального элемента файла s. Программа: введите файл s
(последний элемент равен 0) и напечатайте значение функции
max(s).
Заранее спасибо!!!
351 | Автор: M@RECS | 2012-03-06, 05:05   |  Репутация: [ + 0 ]
351 | Автор: M@RECS | 2012-03-06, 05:05   |  Репутация: [ + 0 ]
Quote (M@RECS)
в каком форум в этом не нашел


Значит невнимательно искал


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
352 | Автор: Berestovskiy | 2012-03-06, 13:23   |  Репутация: [ + 211 ]
Quote (vitek33333)
помогите пожалуста решить задачу по массивам
Пригодность детали оценивается по размеру B который должен соответствовать интервалу (A-g;A+g).определить имеются ли в партии из N деталей бракованные.Если да то подсчитать их количества,в противном случае выдать отрицательный ответ.
пожалуста очень срочно надо.....


var
i,n,b,summa,a,q:integer;
begin
summa:=0;
readln(n);
read(a,q);
for i:=1 to n do begin
read(b);
if (b>a+q)or(b<a-q) then summa:=summa+1;end;
if summa<>0 then writeln(summa) else writeln('-1');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
353 | Автор: Berestovskiy | 2012-03-06, 13:26   |  Репутация: [ + 211 ]
Quote (xamko)
xamko


Ответ был дан ранее


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
354 | Автор: Berestovskiy | 2012-03-06, 13:27   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
354 | Автор: Berestovskiy | 2012-03-06, 13:27   |  Репутация: [ + 211 ]
Quote (sergey313)
sergey313


Ответ был дан ранее


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
355 | Автор: Berestovskiy | 2012-03-06, 13:27   |  Репутация: [ + 211 ]
Quote (skaleckiy)
program abc;
  var m,n: integer;
  begin
   writeln(' vvedite M i N');
   read(m,n);
   if m>n then
   m:= m+n;
   n:= n*n;
   if n>m then
   n:= n+m;
   m:= m*m;
end.


Код не будет работать правильно


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
356 | Автор: Berestovskiy | 2012-03-06, 13:28   |  Репутация: [ + 211 ]
Составьте программу для решения следующей задачи,
используя цикл while или repeat:

13. Сумма в R рублей положена в банк. При этом прирост составляет Р%
ежегодно. Через какой промежуток времени сумма достигнет М рублей.
(M>R)?
357 | Автор: Demanovich | 2012-03-09, 22:47   |  Репутация: [ + 0 ]
Пожалуйста помогите решить задачку в Free Pascal. Буду очень признательна.

Заданы значения расстояния S и времени t скорости движения транспортного средства. Вычислить значения скорости движения транспортного средства V и расход бензина R. Если V≤90 и V≥120 км/ч, то . Если 90<V<120, то .

Добавлено (10.03.12, 14:29)
---------------------------------------------
Заданы значения расстояния S и времени t скорости движения транспортного средства. Вычислить значения скорости движения транспортного средства V и расход бензина R=8*S/100. Если V≤90 и V≥120 км/ч, то R=6*S/100.


Помогите пожалуйста решить в паскале. Буду очень признательна)

358 | Автор: Cherry | 2012-03-10, 14:29   |  Репутация: [ + 0 ]
358 | Автор: Cherry | 2012-03-10, 14:29   |  Репутация: [ + 0 ]
Quote (Demanovich)
Составьте программу для решения следующей задачи,
используя цикл while или repeat:

13. Сумма в R рублей положена в банк. При этом прирост составляет Р%
ежегодно. Через какой промежуток времени сумма достигнет М рублей.
(M>R)?

var
i,r,p,m:integer;
begin
read(r,p,m);
while r<>m do begin
i:=i+1;
r:=r+p;
end;
writeln(i);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
359 | Автор: Berestovskiy | 2012-03-10, 16:29   |  Репутация: [ + 211 ]
Quote (Cherry)
Заданы значения расстояния S и времени t скорости движения транспортного средства. Вычислить значения скорости движения транспортного средства V и расход бензина R=8*S/100. Если V≤90 и V≥120 км/ч, то R=6*S/100.


А по какой формуле вычисляется V?


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
360 | Автор: Berestovskiy | 2012-03-10, 16:31   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Поиск: