Записи в Pascal

Комментарии

помогите решить пожалуйста

Е. Окружность
Васе, младшему брату Пети, исполнилось 5 лет. Петя подарил ему тетрадку в клетку, цветные карандаши и циркуль. Вася нарисовал окружность радиуса R клеток (R может быть дробным числом). Центр этой окружности был размещен на пересечении двух линий (посередине 4-х клеток). Потом Вася закрасил все клетки, которые пересекаются окружностью (которые содержат часть окружности). (Если окружность только касается границы клетки, Вася не закрашивал эту клетку). Сколько клеток закрасил Вася?
Формат входного файла
Во входном файле записано вещественное число R (0 < R < 50).
Формат выходного файла
В выходной файл выведите количество закрашенных клеток.
Примеры входного и выходного файлов
input.txt
2.5
5
output.txt
20
28

помогите решить

Для некоторого заданного натурального числа Х вычислим сумму его цифр. Если при этом получим число больше 9, то опять просуммируем цифры полученной суммы и так до тех пор пока не получим однозначное число, которое называется числовым кодом заданного числа Х. Например, рассмотрим число Х = 23879. 23879  2 + 3 + 8 + 7 + 9 = 29  2 + 9 = 11  1+1 = 2. Т. е. числовой код числа 23879 равен 2. Задано число N. Вывести на печать числовой код числа 21 + 22 + ... + 22N-1 + 22N . Напомним, что 2N — это произведение N множителей, каждый из которых равен 2, а 22N = 2(2N).
Формат входного файла
Во входном файле записано число N (0 < N <1 000).
Формат выходного файла
В выходной файл выведите числовой код числа 21 + 22 + ... + 22N–1 + 22N .
Примеры входного и выходного файлов

input.txt output.txt
2 3
4 6

Помогите решить пожайлуста

Написать программу pascal для решения задачи с одномерным числовым массивом. Переставить элементы массива в порядке убывания и найти сумму элементов массива, находящихся между наибольшим и наименьшим элементами, не включая их самих.

дано двовимірний масив

дано двовимірний масив a[1..m,1..n] Знайти кількість елементів <10

Найти максимальное из трех

Program MAX;
  Var a,b,c,m: integer; 
Begin 
   WriteLn('Максимальное из трех');
   Write('Введите a= ');ReadLn(a);
   Write('Введите b= ');ReadLn(b);
   Write('Введите c= ');ReadLn(c);
   If a>b
      then m:=a
      else m:=b;
   If b>a
      then m:=b
      else m:=a;
   If c>m
      then m:=c
      else m:=m;
   WriteLn('m=',m);   
end.

У меня правильно сделано или нет

Правильно. Вот еще, только через массивы.

var
  mas: array [1..3] of longint;
  i, max: longint;
 
begin
  for i := 1 to 3 do 
  begin
    write('Число ', i, ': ');readln(mas[i]);
  end;
  max := mas[1];
  for i := 2 to 3 do if max < mas[i] then max := mas[i];
 
  writeln('MAX = ', max);
 
end.

Помогите

нужно сделать так, чтобы на часах было время
И чтобы оно показывало сколько дней и часов прошло с того момента, когда ты родился

Помогите решить!!!!!

u=x^3+tg^2y*z+(lny/(1+y+z)^2)

Найти umax
xЕ[-1;2.2] при hx=0.5
y=4.2; z=1

program lab3;
var x,u:real;
y,z:integer;
begin
write('y,z:');
realn(y,z);
umax:=-10000;
s:=0;
x:-1;
write x<=2.2 do
begin
u:=exp(3*ln(x))+sqr(sin(y)/cos(y))*z+(ln(y))/(sqr(1+y+2));
writeln('x=',x:5:2,'u=',u:7:3);
if u>umax then umax:=u;
s:s+u;
x:x+0.5;
end;
write ln('s=',s:10:4);
write ln('umax=',umax:7:3);
end.

Помогите решить задачу, пожалуйста!

Напечатай на экране все 2-значные числа, кратные заданному числу К. Нужно составить программу на языке паскаль.

помогите решить!

Функция для перевода гривни в долар за курсом НБУ

помогите решить

Из трехзначного числа x вычли его последнюю цифру. Полученный результат разделили на 10 и к частному слева приписали последнюю цифру числа x. Выведите на экран полученное число.

var x, d:

var 
    x, d: integer;
begin
    write('Введите трехзначное число: ');
    readln(x);
    d := x mod 10;
    x := x div 10;
    x := d*100 + x;
    writeln(x);
end.

Помогите

Составить программу, которая вычисляет сумму всех однозначных чисел!

Найти остаток от деления

Найти остаток от деления целой части значения функции z = ln(x2+ab) на 7 и, в зависимости от его величины, напечатать сообщение об одном из дней недели, пронумеровав их от 0 до 6. Значения переменных а, b, x получить случайным образом на произвольном интервале (границы интервала ввести с клавиатуры)

решение

Пожалуйста помогите решить

Составить и вывести на экран массив из различных элементов исходного массива.

Поможiт розвязати задачу:

дано два катети ,знайти гiпотинузу i площу прямокутного трикутника.

var a,b,c,S:real;begin

var
  a,b,c,S:real;
begin
  a:=5;
  b:=3;
  c:=sqrt(sqr(a)+sqr(b));
  S:=(a*b)/2;
end.

как-то так

Суть решения.

Хм. В общем.
Формула нахождения гипотенузы такова
C²=B²+A²
Где C— собственно, гипотенуза, а A и B — два катета

Сначала приравниваешь значения катетов к этим двум переменным.
Каждый из них возводишь в квадрат.
Затем складываешь их
Полученное приравниваешь к переменной гипотенузы
А потом находишь корень значения
Результат выводишь на экран (как бы кэп наставляэ)

Program GIPOTINYZA;var

Program GIPOTINYZA;
var C,B,A:real;
begin
writeln('Введите катеты');
Readln(A,B);
C:=sqr(A)+sqr(B);
C:=sqrt(C);
Writeln('Гипотенуза=',C);
end.

помогите решить.... В массиве

помогите решить....
В массиве Х(N) найти k1 – количество элементов массива, расположенных после минимального элемента и k2 – количество элементов массива, расположенных после максимального элемента.

ПОМОГИТЕ!!!

Создать массив из 20 элементов,хранящих информацию о студенках факультета.Каждый элемент содержит фамилию,курс,форму обучения,(специалист,бакалавр,магис тр)и оценки по 5 предметам за последнюю сессию.
Упорядочить массив по среднему баллу.Осуществить перевод студентов на следующий курс.Переводятся студенты ,не имеющие задолжностей за последнюю сессию,студенты 5-ого курса(специалисты) и 6-ого курса(магистры)должны быть удалены ,как окончившие курс обучения.

Решить задачу в Delphi.C помощью процедур и функций.Помогите разобраться...нужно сначало создать запись,потом сортировать,потом процедура перевода на другой курс,там в цикле до 6 или 5 курса проверка,подфункция на проверку двоечников,если они есть удаляем их,если 5 или 6 курс тоже удаляем.я начала.подскажите правильно ли.и как дальше?

 program str155n10; 
 
 {$APPTYPE CONSOLE} 
 
 uses 
 SysUtils, 
 windows; 
 
 const n=20; 
 type 
 Tsession = array[1..20,1..5] of record //Сведения об экзаменах 
 name: string[10]; //название экзамена 
 mark: 1..5; //оценка 
 end; 
 student = record // Сведения о студенте 
 FIO: string[40]; // фамилия, имя, отчество 
 curs: 1..6; // курс 
 results: Tsession; // сведения об экзаменах 
 form:string; // форма обучения 
 end; 
 TFile=array [1..n] student; // файловая переменная, содержащая сведения о студентах 
 var k:integer; 
 fname: string; 
 a:TFile; 
 sr: real; 
 //-- 
 procedure vvoddannuh(var a:TFile); //ввод данных 
 var i:Integer; 
 begin 
 for i:=1 to n do 
 begin 
 Writeln('введи ФИО'); 
 Readln(a[i].FIO); 
 Writeln('введи курс'); 
 Readln(a[i].curs); 
 Writeln('введи форму обучения'); 
 Readln(a[i].form); 
 Writeln('введи оценки за последнюю сессию'); 
 Readln(a[i].results); 
 writeln; 
 end 
 end; 
 Procedure vuvoddannuh(a:TFile); //вывод данных 
 var i:Integer; 
 begin 
 writeln ('--------------------------------------------------------------------------'); 
 writeln (' ФИО / курс / форма обучения / оценки за последнюю сессию '); 
 writeln ('--------------------------------------------------------------------------'); 
 for i:=1 to n do 
 writeln(a[i].curs:15,' ',a[i].FIO:15,' ',a[i].form:5,' ',a[i].ball:15); 
 end; 
 //------------------------------------------------------------------------------------------ 
 procedure Perevod( a:TFile); 
 var i:Integer; 
 i:=1;k:=0; 
 while i<=n-k 
 Function Dvoechniki(a:TFile); 
 var i:integer; 
 begin 
 write('Оценки за последнюю сессию '); 
 readln(results); 
 for i:=1 to n do 
 if a[i].results < 3 then 
 
 delete(a, i, 1) 
 k:=k+1; 
 end;

program primer 2 ;type

program primer 2 ; 
type anketa=record 
   fio: string[45]; 
   dat_r: string[8]; 
   adres: string[50]; 
   curs: 1..5; 
   grupp: string[3]
end; 
var student: array [1..100] of anketa; 
   I: integer; 
begin 
   {последовательно вводим каждую запись} 
   for I:=1 to 100 do 
   begin 
      writeln (‘введите сведения о’, I ,-м студенте’); 
      writeln (‘введите фамилию, имя и отчество’); 
      readln (student[I].fio); 
      writeln (‘введите дату рождения’); 
      readln (student[I].dat_r); 
      writeln (‘введите адрес’); 
      readln(student[I].adres); 
      writeln (‘введите курс’); 
      readln(student[I].curs); 
      writeln (‘введите группу’); 
      readln (student[I].grupp); 
   end; 
   writeln (‘ввод закончен’); 
   writeln ; 
   {просматриваем массив записей и выбираем только студентов 2-го курса } 
   for I:=1 to 100 do 
      if student[I].curs=2 then 
         writeln(‘ фамилия студента :, student[I].fio); 
end.

помогите решить((

Составить таблицу значений функции y =5e^-x^2/2 на отрезке-5,5 с шагом 0.5.

У вас непонятно, что имеется

У вас непонятно, что имеется в виду после цифры 5. Запись e^ кажется бессмысленной.

Решение без e здесь.

После каждого слова поставить

После каждого слова поставить "*",на языке Паскаля,через delete

решение