Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
=)
0 / 0 / 0
Регистрация: 27.08.2010
Сообщений: 1
#1

Дифференцированное задание по PASCAL

30.08.2010, 23:41. Просмотров 924. Ответов 1
Метки нет (Все метки)

Ввести с клавиатуры целое число.
• Если число находится в интервале от 100 до 110, то используя подпрограмму, в матрицах P(N,M), Q(N1,M1) и R(N2,M2) найти и отпечатать L - количество положительных и К - количество отрицательных элементов.
• Если число находится в интервале от 120 до 130, то в заданной матрице X(G,H) найти наибольший и наименьший элемент и записать нуль на те места, где они находятся. Исходную и преобразованную матрицы вывести на экран в
общепринятом виде.
• Если число находится в интервале от 150 до 200, то для заданного целочисленного файла найти и напечатать сумму элементов с нечетными индексами и произведение элементов с четными индексами. Исходный файл распечатать.

Добавлено через 1 час 11 минут
Нужна только эта задача)
• Если число находится в интервале от 100 до 110, то используя подпрограмму, в матрицах P(N,M), Q(N1,M1) и R(N2,M2) найти и отпечатать L - количество положительных и К - количество отрицательных элементов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.08.2010, 23:41
Ответы с готовыми решениями:

Задание по Pascal
Японская радиокомпания провела опрос N радиослушателей по вопросу: «Какое...

Олимпиадная задание на Pascal
Добрый день! Помогите пожалуйста решить задачу: Имя входного файла: input.txt...

Курсовая работа по pascal (1 задание)
программа должна выполнять сортировку данных смешанного типа следующей...

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo...

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и...

1
Puporev
Модератор
54370 / 41958 / 28981
Регистрация: 18.05.2008
Сообщений: 98,831
31.08.2010, 07:04 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Цитата Сообщение от =) Посмотреть сообщение
Нужна только эта задача)
Вообще то это все одна программа, а не несколько...

Добавлено через 31 минуту
Думаю структура программы будет примерно такой.
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
72
73
74
75
76
77
78
79
80
81
82
83
uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
procedure Vvod(var a:matr;var x,y:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
repeat
write('Количество строк до ',nmax,' =');
readln(x);
until x in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' =');
readln(y);
until y in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to x do
 begin
   for j:=1 to y do
    begin
     a[i,j]:=random(20)-9;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
end;
procedure PolOtr(a:matr;x,y:byte;var kp,ko:integer);
var i,j:byte;
begin
kp:=0;
ko:=0;
for i:=1 to x do
for j:=1 to y do
if a[i,j]>0 then kp:=kp+1
else if a[i,j]<0 then ko:=ko+1;
writeln('Положительных=',kp,'  отрицательных=',ko);
writeln;
end;
 
var p,q,r:matr;
    m,n,m1,n1,m2,n2,ch:byte;
    k,l:integer;
begin
clrscr;
randomize;
repeat
clrscr;
repeat
write('Введите натуральное число от 100 до 200 (131-149 - выход) ch=');
readln(ch);
until ch in [100..200];
case ch of
100..110:begin
         writeln('Введено число из диапазона 100-110');
         writeln('Выполняется программа № 1.');
         write('Нажмите Enter...');
         readln;
         Vvod(p,n,m,'P');
         PolOtr(p,n,m,l,k);
         Vvod(q,n1,m1,'Q');
         PolOtr(q,n1,m1,l,k);
         Vvod(r,n2,m2,'R');
         PolOtr(r,n2,m2,l,k);
         readln;
         end;
120..130:begin
         {задача 2}
         end;
150..200:begin
         {задача 3}
         end;
else
 begin
  writeln('Введено число из диапазона 131-149,');
  writeln('pабота программы завершена.');
  write('Нажмите Enter...');
  readln;
  exit;
 end;
end;
until ch in [131..149];
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.08.2010, 07:04

Нужен Turbo pascal или Free pascal на русском
Нужен Turbo pascal или Free pascal на русском языке, есть такой или нет? По...

Чем отличаются Turbo Pascal и Pascal ABC?
Чем отличаются турбо паскаль и abc? Просто у меня windows7 последняя теперь...

Задание по Pascal
Решение задачи по Pascal abc,запутался как делать строки и отступы.


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

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

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