Приветствую Вас, Гость! Регистрация RSS

МОУ Юксарская СОШ

Республика Марий Эл, Килемарский район, с.Юксары
Воскресенье, 16 Декабря 2018
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: admin  
Форум » Обучение » Информатика и ИКТ » Некоторые задачи по программированию (примеры программ на языках программирования)
Некоторые задачи по программированию
adminДата: Вторник, 11 Декабря 2012, 11:42 | Сообщение # 1
Александр Владиславович
Сообщений: 281
Статус: Offline
Задача: Найти значение выражения у=(3a+5)/(7b-1)
Решение:
Code
program znachenie;
var a,b:integer;
y:real;
begin    
     read(a,b);
     if 7*b-1=0 then write('нет решений');
     y:=(3*a+5)/(7*b-1);
     write(y);
end.

Попробуйте по образцу составить программу по вычислению значений выражения у=3a+5/(7b-1). В чем подвох?


Учитель физики, математики и информатики
 
Алжиков_ОлегДата: Вторник, 25 Декабря 2012, 19:14 | Сообщение # 2
Алжиков Олег
Сообщений: 8
Статус: Offline
Цитата (admin)
Попробуйте по образцу составить программу по вычислению значений выражения у=3a+5/(7b-1). В чем подвох?


подвох в том что делиться только число 5 на (7b-1), а не (3a+5) на (7b-1) и в местах умножения надо не забыть поставить знак "*"

по образцу получается программа:
Код
Program znachenie;
Var a,b:integer;
y:real;
Begin
Read(a,b);
If 7*b-1=0 then Write('нет решений');
y:=3*a+5/(7*b-1);
Write(y);
end.

проверял программой algo, работает biggrin
Все верно?
 
adminДата: Среда, 26 Декабря 2012, 08:52 | Сообщение # 3
Александр Владиславович
Сообщений: 281
Статус: Offline
верно, маладца!
так, поищу еще программки! book


Учитель физики, математики и информатики
 
adminДата: Среда, 26 Декабря 2012, 10:40 | Сообщение # 4
Александр Владиславович
Сообщений: 281
Статус: Offline
Следующая задача: Сравните значения выражений (5a+1)/2а и (7b-3)/2а

Учитель физики, математики и информатики
 
Алжиков_ОлегДата: Среда, 26 Декабря 2012, 16:03 | Сообщение # 5
Алжиков Олег
Сообщений: 8
Статус: Offline
правильно?
Цитата (admin)
Сравните значения выражений (5a+1)/2а и (7b-3)/2а


Program znachenie;
Var a,b:integer;
y,x:real;
Begin
Read(a,b);
If 2*a=0 then Write('нет решений');
y:=(5*a+1)/2*a;
x:=(7*b-3)/2*a;
If y>x then Write ('(5a+1)/2a > (7b-3)/2a ')
else Write ('(5a+1)/2a < (7b-3)/2a');
end.

правильно? smile

Добавлено (26 Декабрь 2012, 16:03)
---------------------------------------------
можно еще с подсчетом "x" и "y"

Program znachenie;
Var a,b:integer;
y,x:real;
Begin
Read(a,b);
If 2*a=0 then Write('нет решений');
y:=(5*a+1)/2*a;
x:=(7*b-3)/2*a;
If y>x then Write ('(5a+1)/2a > (7b-3)/2a ')
else Write ('(5a+1)/2a < (7b-3)/2a') ;
Write(y,x);

end.

 
adminДата: Среда, 26 Декабря 2012, 19:37 | Сообщение # 6
Александр Владиславович
Сообщений: 281
Статус: Offline
Цитата (Алжиков_Олег)
y:=(5*a+1)/2*a;
x:=(7*b-3)/2*a;
(2*а) в скобках надо. либо так "/2/а"

ПС. Алжиков_Олег, код программы нужно взять в тэги
Код
код программы
кнопка "code"


Учитель физики, математики и информатики
 
adminДата: Среда, 26 Декабря 2012, 20:15 | Сообщение # 7
Александр Владиславович
Сообщений: 281
Статус: Offline
Так, теперь задача посложнее: Найти количество элементов массива, делящихся на 3 нацело.

Учитель физики, математики и информатики
 
Алжиков_ОлегДата: Среда, 26 Декабря 2012, 23:12 | Сообщение # 8
Алжиков Олег
Сообщений: 8
Статус: Offline
Цитата (admin)
(2*а) в скобках надо. либо так "/2/а"


эх точно.

Добавлено (26 Декабрь 2012, 23:12)
---------------------------------------------

Цитата (admin)
Найти количество элементов массива, делящихся на 3 нацело.


вааааа wacko wacko wacko в школе объясните?
 
adminДата: Суббота, 29 Декабря 2012, 09:33 | Сообщение # 9
Александр Владиславович
Сообщений: 281
Статус: Offline
Эта задача на обработку массива. Сначала надо определить массив, затем произвести его обработку.
приведу часть программы:
Код

begin
    write ('Введите количество элементов массива');
    read (n);
    i:=1;
    s:=0;
    repeat
    write ('a[',i,']=');
    readln (a[i]);
    .....здесь проверка на делимость: если a[i] делится на 3 без остатка, то счетчик s увеличиваем на 1.....
    i:=i+1;
    until i>n;
    write ('s=',s);
end.

попробуйте.


Учитель физики, математики и информатики
 
Олег-АлжиковДата: Среда, 04 Сентября 2013, 11:14 | Сообщение # 10
Олег
Сообщений: 4
Статус: Offline
Сюда буду закидывать задачи по программированию, тоже язык паскаль, преподаватель новенький только 5 курс закончил, объясняет не очень, надеюсь поможете:-)
 
Форум » Обучение » Информатика и ИКТ » Некоторые задачи по программированию (примеры программ на языках программирования)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск: