кто-нибудь помогите решить!!!!! - Форум
Воскресенье, 04.12.2016, 17:15
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » кто-нибудь помогите решить!!!!! (прошу тех, кто может помочь в решении задачи..)
кто-нибудь помогите решить!!!!!
RomaNДата: Среда, 20.01.2010, 18:25 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 8
[ 0 ]
Статус: Offline
Составить таблицу значений функции y = f(x) на отрезке от a до b с шагом h. Вид функции, значения a, b, h взять из нижеприведенной таблицы.
Для построения таблицы значений использовать цикл с постусловием. Таблица должна выводиться на экран в два столбца с заголовками 'x' и 'f(x)'.
Функция y = f(x) =x * sin x; а=0; b=6; шаг=0,25
 
ignorerДата: Среда, 20.01.2010, 19:25 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
подожди чуть-чуть. алгебру доделаю и решу.
 
ignorerДата: Среда, 20.01.2010, 20:57 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
вотъ:
const a=0;
b=6;
h=0.25;
var x : real;
begin
cls;
writeln('x':7, 'y':7);
x:=a;
writeln(x:7:2, sin(x)*x:7:3);
repeat
x:=x+h;
writeln(x:7:2, sin(x)*x:7:3);
until x=b;
end.
 
RomaNДата: Среда, 20.01.2010, 21:12 | Сообщение # 4
Сержант
Группа: Новичок
Сообщений: 8
[ 0 ]
Статус: Offline
Спасибо огромное!!!! Ты не мог бы посмотреть ещё 2 задачи, решить их нужно в procedure. Что это такое я вообще не знаю и не понимаю... sad
Задача 1 (Разветвленные алгоритмы). Составить программу, выводящую на экран ответ на вопрос, поставленный в соответствии с условиями задачи. Ответ выводится в виде текстовой строки. Составьте программу для определения принадлежности точки P с координатами (x, y) заштрихованной области в виде прямоугольника
с координатами главной диагонали: (x1, y1), (x2, y2).

Задача 2. Обработка одномерных массивов.
1 – 6 (Исходные данные). В результате изучения наличия товаров в магазинах города получена информация о видах товаров, имеющихся в магазинах, количестве имеющихся наименований продукции данного вида, количестве наименований импортной продукции данного вида (названия видов, численные данные вводятся с клавиатуры – не менее 5 видов).
Товар-колбаса Количество видов-25 Из них импортных-8

2. Напечатать таблицу только тех товаров, у которых доля им-
портных видов составляет более 50%.

 
ignorerДата: Среда, 20.01.2010, 21:25 | Сообщение # 5
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
что такое procedure я понимаю, да только не въеду каким боком они здесь
Quote (RomaN)
Задача 1 (Разветвленные алгоритмы). Составить программу, выводящую на экран ответ на вопрос, поставленный в соответствии с условиями задачи.

хм... непонятно...
Quote (RomaN)
Составьте программу для определения принадлежности точки P с координатами (x, y) заштрихованной области в виде прямоугольника с координатами главной диагонали: (x1, y1), (x2, y2).

ну где тут можно приткнуть процедуры я не понимаю, также, как и во второй. ну во всяком случае попробую, но на этом на сёня всё, а то спать уж скоро пора.
 
ignorerДата: Среда, 20.01.2010, 21:36 | Сообщение # 6
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
ну вроде вот так. если у тебя тут закорючки показываются, то не волнуйся в паскале должны в норм буквы превратиться.
Code
{примечание: если точка не лежит на границе, то считается, что она не принадлежит области}
var x, x1, x2, y, y1, y2 : integer;
procedure proverka(x, y, x1, y1, x2, y2 : integer);
var b : boolean;
begin
  if (x>x1)and(x<x2)and(y<y1)and(y>y2)then
  write('ïðèíàäëåæèò') else write('íå ïðèíàäëåæèò');
end;
begin
  cls;
  write('êîîðäèíàòû òî÷êè '); read(x, y);
  write('êîîðäèíàòû êðàéíèõ òî÷åê îáëàñòè '); read(x1, y1, x2, y2);
  proverka(x, y, x1, y1, x2, y2);
end.
 
ignorerДата: Среда, 20.01.2010, 21:58 | Сообщение # 7
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
аццкая штука эти процедуры, я чуть не упал, пока всё это писал:)
procedure procedura(var a : array[1..100] of string; i : integer; var b : array[1..100] of real);
var x, y : real;
begin
write('òîâàð-'); read(a[i]);
write('êîë-âî âèäîâ-'); read(x);
write('èç íèõ èìïîðòíûõ-'); read(y);
b[i]:=y/x;
end;
procedure vivod(b : array[1..100] of real; i : integer; a : array[1..100] of string);
begin
if b[i]>0.5 then write(a[i]);
end;
var a : array[1..100] of string;
b : array[1..100] of real;
i, n : integer;
begin
cls;
write('êîë-âî òîâàðîâ '); read(n);
for i:=1 to n do procedura(a, i, b);
for i:=1 to n do vivod(b, i, a);
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » кто-нибудь помогите решить!!!!! (прошу тех, кто может помочь в решении задачи..)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016