Прогаммы на Turbo Pascal

[reper]

Только что разобрался с первой прогой.
перед END. надо readkey; вставить.
А как с другими (№2, №3,№5) ничего в голову не лезет, мож у кого есть какие то идеи!
 

[-Twizzted-]

reper

Только что разобрался с первой прогой.
перед END. надо readkey; вставить.

Можешь просто в свойствах программы (экзешника) отключить опцию "Закрывать по завершению работы"

[bestya]

Только что разобрался с первой прогой. перед END. надо readkey; вставить.

Если прямо из редактора хочешь посмотреть результаты работы программы, то Alt+F5

[-Twizzted-]

Я сегодня добрый, вот написал тебе еще 5-ю прогу:

Код Выделить Развернуть

program Prog5;
 uses CRT;
 type TSex = (male, female);

 student = record
   group : string;
   sex : TSex;
   FIO : string;
   mark : real;
 end;

 var Arr : array [1..5] of student;
     ch : char;
     s : TSex;
     i : integer;

BEGIN
 Arr[1].group := 'VT-04';
 Arr[1].sex := male;
 Arr[1].FIO := 'Ivanov Ivan Ivanovich';
 Arr[1].mark := 4.5;

 {...}

 ClrScr;
 repeat
   Write('Пол студента (м/ж) > ');
   ReadLn(ch);
 until ch in ['м', 'ж'];

 if ch = 'м' then s := male
   else s := female;

 WriteLn('Студенты :');
 for i := 1 to 5 do
   if (Arr[i].sex = s) and (Arr[i].mark > 4) then
     Write(Arr[i].FIO, ' ', Arr[i].group, ' - ', Arr[i].mark);
END.

Вместо {...} вставишь аналогичные описания еще четырех студентов - Arr[2], ... , Arr[5]

[reper]

Twizzted спасибо за твою доброту!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Но надеюсь на этом она не кончилась (У МЕНЯ ВСЕГО ЛИШЬ ДВЕ ПРОГИ ОСТАЛОСЬ, МОЖ ПОМОЖЕШЬ А?)
Кстати могу опять их перечислить (но только ради тебя) это №2, №3!

[reper]

Смотрите что у меня есть!!!
Это же прога №2

uses crt;
var
a:array[1..5,1..5] of integer;
i,j,x,j1,i1,i2,j2,min,max:integer;
sred:real;
begin
textcolor(lightgreen);
clrscr;
randomize;
{§ Ї®«­Ґ­ЁҐ б«гз ©­л¬Ё зЁб« ¬Ё}
for i:=1 to 5 do
 begin
   for j:=1 to 5 do
    begin
     a[i,j]:=random(100)-50;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;writeln;

{б।­ҐҐ Ї® бва®Є ¬}
for i:=1 to 5 do
 begin
   sred:=0;
   for j:=1 to 5 do
     sred:=sred+a[i,j];
   sred:=sred/5;
   writeln('б।­ҐҐ §­ 祭ЁҐ ',i,' бва®ЄЁ= ',sred:3:0);
 end;
writeln;

{бв।­ҐҐ Ї® бв®«Ўж ¬}
for j:=1 to 5 do
 begin
   sred:=0;
   for i:=1 to 5 do
     sred:=sred+a[i,j];
   sred:=sred/5;
   writeln('б।­ҐҐ §­ 祭ЁҐ ',j,' бв®«Ўж = ',sred:3:0);
 end;
writeln;
readkey;  {§ ¤Ґа¦Є  ЇҐаҐ¤ ®зЁбвЄ®© нЄа ­ , ўҐ¤м ­Ґ Ї®¬Ґй Ґвбп}
clrscr;
for i:=1 to 5 do
   begin
     for j:=1 to 5 do
      write(a[i,j]:4);
     writeln;
   end;
writeln; writeln;

{ᬥ­  ¬Ґбв???}
write(',ўҐ¤Ё ­®¬Ґа бва®ЄЁ ');
readln(i);
max:=a[i,1];
i1:=i;
j1:=1;
for j:=1 to 5 do
   if a[i,j]>max then
   begin   {б®еа ­Ґ­ЁҐ Ё­¤ҐЄб  ¬ ЄбЁ¬ «м­®Ј® §­ 祭Ёп}
    max:=a[i,j];
    i1:=i;
    j1:=j;
   end;
writeln('¬ ЄбЁ¬ «м­®Ґ §­ 祭ЁҐ ',i,' бва®ЄЁ: ',max:3);

write(',ўҐ¤Ё ­®¬Ґа бв®«Ўж  ');
readln(j);
min:=a[1,j];
i2:=1;
j2:=2;
for i:=1 to 5 do
   if a[i,j]<min then
   begin
    min:=a[i,j];
    i2:=i;

    j2:=j;

   end;
writeln('¬Ё­ЁЁ¬ «м­®Ґ §­ 祭ЁҐ ',j,' бв®«Ўж : ',min:3);
writeln;


a[i1,j1]:=min;
writeln(i1,' ',j1); {¤«п Ў®«ҐҐ «ҐЈЄ®© Їа®ўҐаЄЁ}
a[i2,j2]:=max;
writeln(i2,' ',j2); {Ё §¤Ґбм ¤«п нв®Ј® ¦Ґ}

writeln;
for i:=1 to 5 do
   begin
     for j:=1 to 5 do
      write(a[i,j]:4);
     writeln;
   end;

readkey;
end.

Осталась всего одна!!!!!!!!!!!
помогите мне с ней разобраться.
Я даже условие еще раз могу показать! Вот! Смотрите!

прог3. Три точки заданы своими координатами А(X1,У1), В(Х2,Y2), С(Х3,У3) в новом квадрате определить и напечатать точку, для которой угол между осью ординат (Oy)
и лучом, соединяющего начало координат с точкой, минимальный.

[reper]

прог3. Три точки заданы своими координатами А(X1,У1), В(Х2,Y2), С(Х3,У3) в первом квадрате определить и напечатать точку, для которой угол между осью ординат (Oy)
и лучом, соединяющего начало координат с точкой, минимальный.

Назнаю даже как объяснить(на рисунке былоб понятнее), но попробую.
Зададим точке А значения Х1=2, У1=3, тогда угол между осью ординат(Оу) и лучем соединяющим точку А с началом координат можно найти по тангенсу угла
tg(угла)=Х1/У1 ,т.е. 2/3. Если точка В(Х2,У2) имеет координаты В(4,2), то tg(угла)=4/2, ну и т.д. Делаем вывод: чем меньше Х и больше У тем меньше угол.
Как только все это расписать в Паскале?  

препод достал еще задал две проги сделать  
Вот они:
new1. Вычислить значение функции F, при изменении любых двух аргументов по закону арифметической прогрессии (табулирование функции).
Значение аргумента выбрать самостоятельно из области допустимых значений таким образом, чтобы каждый из аргументов организовать в виде двух вложенных циклов с постусловием на внешнем цикле, с предусловием на внутреннем цикле.
Вот значение функции написаной на Паскале (где a и b константы a=2, b=3)
f:=4*x*sqrt(a)*ln(e*exp(-b*y*y/x))

new2. Объединение каждой последовательности пары строк в одну строку.
Пояснение: Составить программу обработки текстовых данных, хранящихся в произвольном файле на магнитном диске.
Текстовые данные во входном файле создаются с помощью текстового редактора, например, блокнота. Длина строки файла не должна превышать 80 символов. Текст исходного файла должен позволять тестировать программу в нормальных, граничных и исключительных условиях.

У кого какие предложения, пишите!

[reper]

Ау! Народ вы где?
Я так сам все проги сделаю!

Кстати у меня уже есть прога new2.
Можете на ней не отвлекаться, ну а другие две все же лучше сделать!

Давайте не проходите момо!

Если кому то очень хочется посмотреть на прогу new2, то пишите(не напишите не покажу)!
 

[bestya]

Ау! Народ вы где? 
Я так сам все проги сделаю!

А вот это действительно хорошая идея.

[NEOKILLER]

А вот это действительно хорошая идея.