Turbo Pascal

Hamster

Well-Known Member
Приклад вхідних та вихідних даних
Вхід: 2 2 7 5 3 4 8 1
Вихід: 4

Проекция АВ- в рамках от 2 до 7.
Проекция СД-в рамках от 3 до 8.

Общую часть находят так:
min{8;7}-max{2;3}
 

Cris

Member
Ответ: Turbo Pascal

шо такое min{8;7} и max{2;3}
а если числа дригие:
пишу тока Х:
1)АВ - 1 до 2
СД - 3 до 4
2)АВ - 1 до 1
СД - 1 до 1
3) АВ - 1 до 4
СД - 1 до 4
4)АБ - 1 до 10
СД - 3 до 5
5)АВ - 6 до 8
СД - 9 до 9
6) АВ - 1 до 1
СД - 10 до 10
 
Останнє редагування:

Hamster

Well-Known Member
1. 2-3 = -1 (нету общей части)
2. 1-1=0 (точка)
3. 4-1 = 3 (есть)
4. 5-3=2 (есть)
 

San4ezz

Member
Ответ: Turbo Pascal

шо такое min{8;7} и max{2;3}
а если числа дригие:
пишу тока Х:
1)АВ - 1 до 2
СД - 3 до 4
2)АВ - 1 до 1
СД - 1 до 1
3) АВ - 1 до 4
СД - 1 до 4
4)АБ - 1 до 10
СД - 3 до 5
5)АВ - 6 до 8
СД - 9 до 9
6) АВ - 1 до 1
СД - 10 до 10
ты жжеш! думаеш самый умный? терь ясно почему ты так мощно сегодня 4 задачы выставил)))))
 

Пух

كنت بلهاء
Модератор
Ответ: Turbo Pascal

2 Cris

Проекция АВ- в рамках от 2 до 7.
Проекция СД-в рамках от 3 до 8.

Общую часть находят так:
min{8;7}-max{2;3}
GHOST написал все правильно. Ты должен из координаты по иксу точки B и D найти минимальную из них и из координаты точек А и С найти максимальную из них. Потом отнимаеш от мин-мах (как писал GHOST). Если результат больше нуля, то общая часть есть, если результат равен 0, то будет одна общая точка, если меньше нуля, то общей проекции не будет.
з.ы. я Рождественскому все расскажу :Р
 

Cris

Member
Ответ: Turbo Pascal

та говори мне пополам
а воше спс за задачку
 

Русечкин

♥♠♣•♀?♪ §╘
Ответ: Turbo Pascal

program idz;
uses crt;
var direct,my_name,cel,date,zav,spec,opit,dolg,oplata:integer;
begin
writeln ('Vvedite imja direktora:');
readln (direct);
writeln ('Vvedite F.I.O.:');
readln (my_name);
writeln ('Cel napisanija zajazlenija:');
readln (cel);
writeln ('Vvedite F.I.O.:');
readln (my_name);
writeln ('Vvedite daty svoego rogdenija:');
readln (date);
writeln ('Mesto raboti:');
readln (zav);
writeln ('Specialnost:');
readln (spec);
writeln ('Opit raboti:');
readln (opit);
writeln ('Dolgnost:');
readln (dolg);
writeln ('Yroven zarplati:');
readln (oplata);
Clrscr;
Textcolor (red);
Gotoxy (50,1);
write ('Directoru:' , direct);
gotoxy (50,2);
write ('Ot:' , my_name);
gotoxy (50,3);
write ('S celju:' , cel);
gotoxy (35,6);
write ('Rezume');
gotoxy (5,8);
write ('F.I.O.:' , my_name);
gotoxy (5,9);
write ('Data rogdenija:' , date);
gotoxy (5,10);
write ('U4ebnoe zavedenie:' , zav);
gotoxy (5,11);
write ('Specialnost:' , spec);
gotoxy (5,12);
write ('Opit raboti:' , opit);
gotoxy (5,13);
write ('Dolgnost:' , dolg);
gotoxy (5,14);
write ('Uroven oplati:' , oplata);
readkey;
end.



вот програмка токашо написал ИДЗ по програмированию а он выдаёт ошибка 106 подскажите пожулуйста что не так? Выбивает ошибку на том что выделено красным...
 

Hamster

Well-Known Member
Долго раздуплятся в твоем транслите, но большинство переменных должно иметь тип string либо же везде вводи только цифры.
 

Русечкин

♥♠♣•♀?♪ §╘
Ответ: Turbo Pascal

error 106 invalid numeric format

которую он выдаёт... может кто подскажет что это?

П.С программа чуть выше!
 
Зверху