Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
avtivo4ka
0 / 0 / 0
Регистрация: 13.06.2016
Сообщений: 17
#1

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

14.06.2016, 21:48. Просмотров 147. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сложить три программы в одну (Pascal ABC):

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

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

Соедините программы в одну пожалуйста - Pascal ABC
Есть 4 метода сортировки массива,но препод говорит надо сделать одной программой. Надо так:рандомно заполнился массив. Потом что бы...

требуется составить три программы - Pascal ABC
1: Используя арифметические операции, определить и вывести первую цифру из дробной части положительного вещественного числа x (0&lt;=x&lt;=1000)....

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

Используя все три вида операторов цикла составить программы табулирования функции - 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
Привет! Вот еще темы с ответами:

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

Сдвинуть на три позиции влево, заменив последние три единицами - Pascal ABC
Сдвинуть на три позиции влево, заменив последние три единицами.

Переставить первые три и последние три элемента массива местами, сохраняя их следование - Pascal ABC
Дан массив целых чисел (n = 15), заполненный случайным образом числами из промежутка . Переставить первые три и последние три элемента...

Дан вектор D(n). Сдвинуть на три позиции влево, заменив последние три единицами - Pascal ABC
паскаль


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

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

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