Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
avtivo4ka
0 / 0 / 0
Регистрация: 13.06.2016
Сообщений: 17
1

Сложить три программы в одну

14.06.2016, 21:48. Просмотров 156. Ответов 1
Метки нет (Все метки)

Программа должна содержать интерфейс с вариантами выбора дальнейшей работы:

1. Автор.
2. Задача №1.
3. Задача №2.
4. Задача №3.
5. Выход.

Причем каждый пункт основного меню должен содержать свои собственные подпункты, согласно постановки каждого отдельного задания.
пункт Автор должен выводить на экран сведения об авторе данной работы, вид этой работы, номер индивидуального варианта. Данная информация вывода должна быть оформлена в виде подпрограммы;
пункт Задача №1 должна содержать следующие подпункты:

1. Условие Задача №1,
2. Решение Задача №1.

пункт Задача №2 должна содержать следующие подпункты:

1. Условие Задача №2,
2. Создание записи в файле,
3. Вывод записи на экран,
4. Решение Задача №2.

пункт Задача №3 должна содержать следующие подпункты:

1. Условие Задача №3,
2. Табуляция функций,
3. Графики функций.

Каждый пункт меню предусматривает возвращение на основную страницу. Выход закрывает все окна данной программы.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program Project1;
const N=4;
  var a:array[1..N,1..N] of integer;
    sum,i,j,nummin,nummax,max,min,p:integer;
begin
  randomize;
  sum:=0; nummin:=0; nummax:=0;
  for i:=1 to N do begin
      for j:=1 to N do begin
          a[i,j]:=-10+random(21);
          write(a[i,j]:4);
      end;
  writeln;
  writeln;
  end;
  max:=-N*20;
  min:=N*20;
  for i:=1 to N do begin
      for j:=1 to N do
          sum:=sum+a[i,j];
      if sum>max then begin nummax:=i; max:=sum; end;
      if sum<min then begin nummin:=i; min:=sum; end;
      sum:=0;
  end;
  p:=min*max;
  writeln ('Строка с максимальной суммой элементов = ',nummax);
  writeln ('Строка с минимальной суммой элементов = ',nummin);
  write ('Произведение = ',p);
  readln;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
program pr;
const
  Csize = 10;
type
  Tgranary = record
    district: string[50];
    number: integer;
    cI: integer;
    cII: integer;
    cIII: integer;
  end;
  Tarr = array [1..Csize] of Tgranary;
 
var
  f: file of Tgranary;
  a: Tarr;
  i, n, af, b, c, s, sum: integer;
 
begin
  assign(f, 'gra.txt');
 
  rewrite(f);
  writeln('Введите количество запсей');
  readln(n);
  for i := 1 to n do
  begin
    sum := 0;
    writeln('Введите название района');
    readln(a[i].district);
    writeln('Введите номер элеватора');
    readln(a[i].number);
    writeln('Введите количество зерна 1 сорта');
    readln(a[i].cI);
    writeln('Введите количество зерна 2 сорта');
    readln(a[i].cII);
    writeln('Введите количество зерна 3 сорта');
    readln(a[i].cIII);
    write(f, a[i]);
    writeln;
  end;
  close(f);
  writeln('Введите стоимость 1,2,3 сорта');
  readln(af, b, c);
  reset(f);
  while not eof(f) do
  begin
    read(f, a[i]);
    writeln('Район: ', a[i].district, ' Номер эл: ', a[i].number, ' 1 сорт: ', a[i].cI, ' 2 сорт: ', a[i].cII, ' 3 сорт ', a[i].cIII, ' ');
  end;
  for i := 1 to n do
  begin
    writeln('Район: ', a[i].district, ' ', ' Стоимость 1 сорт: ', a[i].cI * af, ' Стоимость 2 сорт: ', a[i].cII * b, ' Стоимость 3 сорт: ', a[i].cIII * c, ' '); end;
  writeln('Введите сорт');
  readln(s);
  if s = 1 then
    for i := 1 to n do
    begin
      sum := sum + (a[i].cI);
    end;
  if s = 2 then
    for i := 1 to n do
    begin
      sum := sum + (a[i].cII);
    end;
  if s = 3 then
    for i := 1 to n do
    begin
      sum := sum + (a[i].cIII);
    end;
  writeln('Общее количество зерна ', s, ' сорта: ', sum);
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
uses graphABC;
var x,m:real;
    x0,y0,xn,xk,i:integer;
begin
setwindowsize(400,450);
centerwindow;
xn:=-2;xk:=2;//интервал по Х
x0:=windowwidth div 2;
y0:=windowheight-100;
m:=(y0-30)/(xk*xk);//масштаб
line(0,y0,windowwidth,y0);///оси
line(x0,0,x0,windowheight);
for i:=1 to 4 do//максимальное количество засечек в одну сторону
 begin
  line(x0-3,y0-round(i*m),x0+3,y0-round(i*m));//засечки на оси У
  textout(x0-20,y0-round(i*m),inttostr(i));//соответственно засечкам
  line(x0-3,y0+round(i*m),x0+3,y0+round(i*m));
  textout(x0-20,y0+round(i*m),inttostr(-i));
  line(x0+round(i*m/2),y0-3,x0+round(i*m/2),y0+3); //засечки на оси Х
  line(x0-round(i*m/2),y0-3,x0-round(i*m/2),y0+3);
  //подпись оси Х
  textout(x0+round(i*m/2),y0+10,floattostr(i/2));
  textout(x0-round(i*m/2),y0+10,floattostr(-i/2));
 end;
//центр
textout(x0+5,y0+10,'0');
//подписи концов осей
textout(windowwidth-20,y0-20,'X');
textout(x0+5,10,'Y');
//графики
setpencolor(clBlue);
setbrushstyle(bsClear);
circle(x0,y0,round(m));
x:=xn;
setpencolor(clRed);
moveto(x0+round(x*m),y0-round(x*x*m));
while x<=xk do
 begin
  lineto(x0+round(x*m),y0-round(x*x*m));
  x:=x+0.1;
 end;
//setbrushcolor(clLime);
floodfill(x0-10,y0-10,clLime);
floodfill(x0+10,y0-10,clLime);
//название
setfontsize(12);
setfontcolor(clBlue);
textout(x0+20,20,'x^2+y^2=1');
setfontcolor(clRed);
textout(x0+20,40,'y=x^2');
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt; 
function funcs():real; 
begin 
writeln('___________________'); 
writeln('| x | y1 | y2 |'); 
writeln('|______|______|______|'); 
end; 
function F1(x:real):real; 
begin 
F1:=x*x; 
end; 
function F2(x:real):real; 
begin 
F2:=power(1-power(x,2),1/2); 
end; 
var i:integer;y1,y2:real; 
begin 
funcs(); 
for i:=-2 to 2 do 
begin 
y1:=F1(i); 
y2:=F2(i); 
writeln('| ',i,' |',' ',y1:1:2,' |',' ',y2,' |'); 
end; 
writeln('____________________ '); 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2016, 21:48
Ответы с готовыми решениями:

Объединить три графика из разных программ в одну
Нужно объединить три графика из разных программ в одну, так, что-бы они...

Соединить три части программы "Лабиринт" в одну
Всем доброго времени суток.Это моя первая тема и все такое поэтому если будет...

Соедините программы в одну пожалуйста
Есть 4 метода сортировки массива,но препод говорит надо сделать одной...

требуется составить три программы
1: Используя арифметические операции, определить и вывести первую цифру из...

соединить эти две программы в одну Pascal ABC
соедините эти две программы в одну вот условие самой задачи:Используя...

1
ZX Spectrum-128
15.06.2016, 09:53     Сложить три программы в одну
  #2
 Комментарий модератора 
avtivo4ka, программы загружены на форум. Вложения удалены, так как задания в них были не на официальных языках форума.
Задания перепечатайте на русском языке.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2016, 09:53
Привет! Вот еще темы с ответами:

Cоставить три варианта программы табулирования заданной функции
помогите пожалуйста.. составить три варианта программы табулирования функции -...

Используя все три вида операторов цикла составить программы табулирования функции

Требуется разработать две программы (или одну с двумя циклами) с использованием операторов повтора (циклических операторов) WHILE и REPEAT
расчитать \sum_{\propto }^{n=1}{-1}^{n}\frac{1}{n(2n+1)} c точностью \alpha...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru